|
Sub Sicherheitstest()
Dim Abteilung As Byte
Dim Sicherheitsstufe As Byte
Dim Passwort As String
Abteilung = InputBox("Geben Sie ihre Abteilungsnummer ein:")
If Abteilung = 5 Then
Sicherehitsstufe = InputBox("Geben Sie Ihre Sicherheitsstufe ein:")
If Sicherheitsstufe = 9 Then
Passwort = InputBox("Geben Sie Ihr Passwort ein:")
If Passwort = "top secret" Then
MsgBox ("Sie sind berechtigt, auf die Daten zuzugreifen")
End If
End If
End If
End Sub
Problem: Navh der eingabe der Sichherheitsstufe 9 erfolgt keine Abfrage des Passworts...
Woran liegts?
|