Ich möchte die Checkbox1 mit einem Passwort schützen, dass bei JEDEM Klick die Abfrage erfolgt. Das hat mit dem folgend ausgeführten Sub auch einmal super funktioniert. Nur jetzt führt er alles ohne Abfrage aus. Muss ich noch etwas hinzufügen oder rausnehmen?
VG
Private Sub CheckBox5_Click()
Dim PW As String, Antwort As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
PW = "Bitte"
If CheckBox1 Then
Antwort = InputBox("Wie lautet das Zauberwort?")
If Antwort PW Then
MsgBox "Nein Nein Nein :)"
Exit Sub
End If
End If
Rows("6").Hidden = Not CheckBox5
CheckBox1.Visible = CheckBox5
CheckBox2.Visible = CheckBox5
CheckBox4.Visible = CheckBox5
ToggleButton1.Visible = CheckBox5
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub