Schaltfläche bei Klick
11.02.2005 11:26:58
HeinzH
Eine allerletzte Frage.
Habe unterstehenden Code eine Schaltfläche zum aktivieren von Blattschutz.
Gibt es auch einen Code,den ich auch in eine Schaltfläche einfüge,um den Schreibschutz zu deaktivieren.
Noch besser wäre natürlich eine Schaltfläche 1x Klicken "Schreibschutz akiviert" 2x Klicken "Schreibschutz deaktiviert"
Sub Schaltfläche5_BeiKlick()
ActiveSheet.Unprotect "Passwort"
ActiveSheet.Protect "Passwort"
End Sub