Abfrage Ja/Nein, wenn Ja dann Passwortabfrage

Computer: Software & Programmierung Visual Basic
#1

Hallo Experten,

Ich möchte gerne eine Information anzeigen, wenn ja geklickt wird soll es eine passwortabfrage einblenden und wenn nein geklickt wird dann exit sub

mein code funktioniert nicht. wo ist der fehler?

Private Sub CBSchliessen\_Click()
 MsgBox "Wenn Sie diese Befehlsleiste schliessen," & Chr(13) & "wird diese erst nach erneutem öffnen der Datei wieder aufgerufen!" & Chr(13) & "Wollen Sie diese Befehlsleiste schliessen?", vbYesNo
 If Var = vbYes Then
 pw = InputBox("Passwort?")
 If pw = "admi" Then
Unload Makros
Else
MsgBox "Falsches Passwort"
 End If
End If
End Sub

lg sascha

#2

Moin, sascha,

Var fällt vom Himmel und hat keinen Wert. Schreib entweder

 Var = msgbox (...)

oder gleich

 If msgbox (...) =

Solche Fehler lassen sich durch

 Option Explicit

vermeiden.

Gruß Ralf

#3

ja genau. super.

vielen dank

gruss sascha