Gruppe
Dialog
Problem
Wie kann ich ein Paßwort festlegen und bei Anklicken einer CheckBox abfragen?
ClassModule: Tabelle2
Private Sub CheckBox1_Click()
Dim sWord As String
If CheckBox1.Value = True Then
sWord = InputBox("Passwort:")
If sWord = "" Then Exit Sub
If sWord = Range("IV1").Value Then
MsgBox "Passwort ist OK"
Else
MsgBox "Falsches Passwort"
End If
End If
End Sub
StandardModule: basMain
Sub SetPassword()
Dim sWord As String
sWord = InputBox("Passwort:")
If sWord = "" Then Exit Sub
With Range("IV1")
.Value = sWord
.NumberFormat = ";;;"
End With
End Sub