VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Passwort vergeben und bei CheckBox-Aktivität abfragen

Gruppe

Dialog

Bereich

CheckBox

Thema

Passwort vergeben und bei CheckBox-Aktivität abfragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox