Drobdown und Schreibschutz
23.03.2008 16:02:49
Rainer
mein Problem mit dem Schreibschutz besteht noch immer:
In einem Excel-Sheet, das schreibgeschützt ist, habe ich etliche Dropdownfelder.
Nun sollen die Dropdownfelder trotz Schreibschutz Änderungen in dem Sheet vornehmen.
Ich habe dies mit folgendem Code versucht:
Sub Drobdown1_Click()
ActiveSheet.Unprotect
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect
End Sub
Jedoch funktioniert dies erst beim zweitenmal. Zuerst kommt immer der Hinweis das die Tabelle schreibgeschützt sei. Nachdem die Meldung mit "OK" bestätigt wird funktioniert bei der nächsten Auswahl in den Drobdown alles prima.
Meine Frage:
- kann man die erste Fehlermeldung umgehen, ausschalten und die Funktionalität beim ersten Mal durchführen?
Ich hoffe ich habe mich verständlich ausgedrückt
Ich habe die Datei hochgeladen:
https://www.herber.de/bbs/user/50954.xls
Hoffentlich kann mir jemand helfen!
Gruß
Rainer
Anzeige