CommondButton die 2te
07.08.2003 07:20:47
Jörg
Ich möchte das mit Button 1 gerne den Blattschutz einschalten und mit Button 2 wieder aufheben, wobei Button2 nur nach abfrage des Kennwortes aktiv werden soll.
Ich habe diesen Code gekriegt:
Private Sub CommandButton3_Click()
Dim passwd As String
passwd = InputBox("Bitte Passwort eingeben.")
If passwd <> "Testpasswort" Then
MsgBox ("Passwort ist falsch!")
Exit Sub
End If
PROZEDURNAME
End Sub
Aber es kommt immer diese Meldung:
Fehler beim kompilieren: Sub oder funktion nicht definiert
Kann mir einer sagen woran es liegt?
Gruss
Jörg