Passwortabfrage über Inputbox

Forumthread: Passwortabfrage über Inputbox
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Passwortabfrage über Inputbox

21.04.2006 14:00:22

Torge

Hallöchen,
folgendes Problem:
mittels Klickbutton und Passwort erst eins, beim zweiten Klick ein zweites Blatt einblenden lassen, welche beim öffnen ausgeblendet sind. Habe folgenden Coce aus dem Forum:
In einer UserForm:


Private Sub CommandButton1_Click()
If TextBox1 = Passwort Then
PassOK = True
Unload Me
Else
MsgBox "falsches Passwort!"
PassOK = False
Unload Me
End If
End Sub

und in einem Modul:
Public PassOK As Boolean
Public Const Passwort = "123"
Kann mir jemand unter die Arme greifen und den Cod erweitern?
Vielen Dank Torge

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Passwortabfrage über Inputbox

21.04.2006 14:51:55

Bertram

AW: Passwortabfrage über Inputbox

21.04.2006 14:51:55

Bertram

Hi Torge,
wenn du das mittels InputBox machen willst, würde ich das evtl. so machen:


Private Sub CommandButton3_Click()
Dim Passwort As String
Passwort = InputBox("Passwort:", "Eingabe")
If Passwort = "123" Then
If Sheets(2).Visible = True Then
Sheets(3).Visible = True
Else
Sheets(2).Visible = True
End If
Else
MsgBox ("Falsches Kennwort")
End If
End Sub

CommandButton3 bedindet sich direkt auf Tabellenblatt 1.
Gruß
Bertram