Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatisches schüzen von Zellen

Forumthread: Automatisches schüzen von Zellen

Automatisches schüzen von Zellen
01.07.2003 15:26:06
Olaf
Hallo zusammen,
Ich habe eine Datenbank, in der jeder reinschreibt, jedoch nichts bereits geschriebenes ändern soll. Besteht die Möglichkeit, ausgefüllte Zellen automatisch schreibzuschützen?
Besten dank im voraus
Olaf
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches schüzen von Zellen
01.07.2003 16:05:26
Matthias G.
Hallo Olaf,
hier ein grober Entwurf ohne Blattschutz:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Set T = Target
c = Target.Count
v = Target.Value
Application.Undo
On Error GoTo weiter
If c = 1 And T.Value = "" Then T.Value = v
weiter:
Application.EnableEvents = True
End Sub

im Workbook-Code einzufügen.
Wenn die Benutzer auch Formeln eingeben sollen, müsste noch was geändert werden.
Aber vielleicht hilft Dir das schon weiter.

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige