Format ein + ausschalten
Heinz
Habe ein Makro zum ein + ausschalten von Format.
Warum funktioniert ColUnLock nicht sofort.
Habe im Sheets "Jänner 2 OptionButton.
OptionButton1 reagiert sofort und sperrt mir die Formatierungen.
OptionButton2 reagiert aber erst nach klick,dann in anderen Sheets gehen,zurück zu Jänner und eine Zelle anklicken.
Habe es schon mit Activate probiert aber ohne Erfolg.
Hätte bitte jemand eine Hilfe?
Gruß
Heinz
'Modul Mainbase
Function ColLock()
ActiveSheet.Unprotect "vetro"
ActiveSheet.Range("A3:B156").Locked = True
ActiveSheet.Protect "vetro"
End Function
'Modul Mainbase
Function ColUnLock()
ActiveSheet.Unprotect "vetro"
ActiveSheet.Range("A3:B156").Locked = False
ActiveSheet.Protect "vetro"
End Function
'In Sheets "Jänner"
'Format Automatik
Private Sub OptionButton1_Click()
Call ColLock
Application.EnableEvents = True
End Sub
'In Sheets "Jänner"
'Format Hand
Private Sub OptionButton2_Click()
Call ColUnLock
Application.EnableEvents = True
End Sub
Anzeige