Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Paßwortabfrage

Gruppe

TextBox

Problem

Wie kann ich eine einfache Paßwortabfrage über InputBox starten?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Passwort()
   Dim sWord As String
   Do While InputBox("Passwort:") <> "MeinPasswort"
      Beep
      If MsgBox("War wohl nix!", vbOKCancel) = vbCancel Then End
   Loop
   MsgBox "Paßwort stimmt!"
End Sub