Microsoft Excel

Herbers Excel/VBA-Archiv

Gültigkeit Zelleneingaben bei geschütztem Blatt

Betrifft: Gültigkeit Zelleneingaben bei geschütztem Blatt von: Marcl
Geschrieben am: 17.08.2004 07:45:59

Guten Morgen Excel Forum,

ich habe eine Datei mit mehreren Blättern. Diese sind geschützt. Ich möchte nun, dass man in die Zellen nur x eintragen kann.
Mit der Gültigkeit habe ich das nicht hinbekommen. Ist wohl zu früh am Morgen ;-).

Bin für jede Hilfe dankbar.

Gruß
Marcl

  


Betrifft: Ohne Blattschutz nur best. Zeichen zulassen von: Beate Schmitz
Geschrieben am: 17.08.2004 08:06:49

Hallo Marci,

gebe folgendes Makro ins Codefenster der Tabelle ein:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> "x" Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
    End If
End Sub


Blattschutz braucht nicht gesetzt zu werden, alle Eingaben außer "x" werden rückgängig gemacht mit Undo.

Gruß,
Beate


  


Betrifft: supi dat, Danke Beate o.T. von: Marcl
Geschrieben am: 17.08.2004 08:28:24