|
VBA - Passwortabfrage / if-then-else |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Sonntag, 21. Dezember 2008 um 13:33 Uhr |
|
Bei dem folgenden Excel VBA Beispiel Code zählt der folgende Hintergedanke: Es soll eine Inputbox geöffnet werden, welche den Namen und ein Passwort abfragt. Stimmt der Name oder das Passwort nicht, dann wird die Excel Tabelle sofort geschlossen. Dieses geschieht ohne die Tabelle abzuspeichern. Um einen solchen VBA Code zu gestalten benötigen wir eine If - then - else Anweisung (der Wenn Befehl in Excel VBA). Der VBA Code könnte so aussehen:
Option Explicit
Sub Abfrage()
Dim codeName As String
Dim Passw As String
codeName = InputBox("Geben Sie Ihren Namen ein")
Passw = InputBox("Geben Sie Ihr Passwort ein")
If codeName = "Marcus" And Passw = "marcus" Then
MsgBox ("Hallo " & codeName)
Else
MsgBox ("Hallo " & codeName & " Du hast keine Berechtigung")
ActiveWorkbook.Close False
End If
End Sub
|
|
Zuletzt aktualisiert am Sonntag, 21. Dezember 2008 um 13:55 Uhr |
VBA Makro Beispiele 