habe gestern schon das Problem gepostet und dachte es sei gegessen, habe mich aber leider getäuscht.
Problem: Wie ist es möglich in einer Userform die Checkboxen zu schützen, wenn das aktive Arbeitsblatt ebenfalls geschützt ist und diese zu entsperren, wenn das Arbeitsblatt ebenso entsperrt ist?
Mein Makro (das aus irgendwelchen Gründen nicht funktioniert) sieht folgendermaßen aus:
Private Sub UserForm_Activate()
Sheets("T1").Select
If Worksheets("T1").Protect = True Then
CB1.Locked = True
CB2.Locked = True
CB3.Locked = True
CB4.Locked = True
CB5.Locked = True
ElseIf Worksheets("T1").Unprotect = True Then
CB1.Locked = False
CB2.Locked = False
CB3.Locked = False
CB4.Locked = False
CB5.Locked = False
End If
End Sub
ich habe es auf verschiedene Art und Weise probiert, mit und ohne den ELSEIF Teil usw. aber es hat nicht hingehauen.
Gruss,
Martin