VBA
12.10.2005 11:54:59
ste
Im Beispiel unten habe ich eine Möglichkeit für eine Person mit Passwort. Möchte nun auch noch Spieler2 und Spieler3 hinzufügen. Am besten wäre eine Box (drop down box) um den Spieler auszuwählen und danach das Passwort einzugeben.
Weiss nur nicht, wie ich das anstellen soll... Hoffe es kann mir jemand helfen,
Besten Dank,
Stephan
Sub Abfrage()
Dim codeName As String
Dim Passw As String
codeName = InputBox("spieler1")
Passw = InputBox("sunshine")
If codeName = "spieler1" And Passw = "sunshine" Then
MsgBox ("Hello " & codeName)
Sheets("1").Activate
Else
MsgBox ("Hallo " & codeName & " wrong password")
End If
End Sub
Anzeige