|
VBA - Passwortabfrage Sheet sichtbar |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Dienstag, 23. Dezember 2008 um 06:37 Uhr |
|
Es kommt vor, dass wir ein Tabellenblatt (Sheet) nicht sofort für alle sichtbar haben wollen. Eine solche Funktion könnte man zum Beispiel einsetzen, wenn man ein Extra - Sheet mit Einstellungen angelegt hat. Unsere Beispiel - Code wird wieder mit einer If - Then - Else (Wenn) Anweisung erstellt. Diese benötigen wir da wir eine Passwortabfrage nutzen, damit das Tabellenblatt nur bei der richtigen Eingabe des Namens und des Passwortes sichtbar werden soll. Ein VBA Makro sähe ungefähr so aus:
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)
Sheets("Tabelle1").Visible = True
Else
MsgBox ("Hallo " & codeName & " Du hast keine Berechtigung")
Sheets("Tabelle1").Visible = False
End If
End Sub
Mit .Visible = True wird das Sheet sichtbar. False versteckt das Tabellenblatt.
|
VBA Makro Beispiele 