Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Passwort vergeben und bei CheckBox-Aktivität abfragen

Gruppe

CheckBox

Problem

Wie kann ich ein Paßwort festlegen und bei Anklicken einer CheckBox abfragen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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