M
MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
Hallo zusammen,
um mein Thema lösen zu können, habe ich mich neben eigenen Versuchen auch im Netz umgesehen. Im WWW stoß ich auf einen Artikel und ein YouTube-Video (beides das gleiche).
Mein Versuch lautete
If Target.Value <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Keiner der Beispiele funktioniert. Ich kann eine einmalige Eingabe in dem Bereich machen. Danach ist das Blatt gesperrt. Der Gedanke dahinter ist jedoch, dass man in leere Zellen einen Eintrag tätigen kann. Aus welchem Grund wird das Unprotect ignoriert?
um mein Thema lösen zu können, habe ich mich neben eigenen Versuchen auch im Netz umgesehen. Im WWW stoß ich auf einen Artikel und ein YouTube-Video (beides das gleiche).
Mein Versuch lautete
If Target.Value <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Keiner der Beispiele funktioniert. Ich kann eine einmalige Eingabe in dem Bereich machen. Danach ist das Blatt gesperrt. Der Gedanke dahinter ist jedoch, dass man in leere Zellen einen Eintrag tätigen kann. Aus welchem Grund wird das Unprotect ignoriert?