Makrobefehl fehlerhaft?
29.04.2019 07:35:26
Alex
Ich habe ein kleines Problem mit meinem Makro. (Der macht nicht was er soll)
Er soll: Benanntes (Anlage) ausblenden und nur mittels Passwort wieder freigeben
Er macht: blendet nur die Zeile aus und bringt einen Laufzeitfehler "438"
(Objekt unterstützt diese Eigenschaft nicht)
Passwortabfrage funktioniert
Für Ideen Offen :)
Viele Grüße
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 heißt das Zauberwort?!")
If Antwort PW Then
MsgBox "Nein Nein Nein :)"
Exit Sub
End If
End If
Rows("5").Hidden = Not CheckBox5
CheckBox1.Hidden = Not CheckBox5
CheckBox2.Hidden = Not CheckBox5
CheckBox4.Hidden = Not CheckBox5
ToggleButton1.Hidden = Not CheckBox5
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Anzeige