AW: Passwortabfrage beim Start
17.12.2008 21:27:00
fritz
Hallo Hajo
Danke für die Antwort. Auch das mit dem Ausblenden beim Schließen habe ich schon versucht. Dabei muß aber ein Tabellenblatt stehenbleiben. Alle ausblenden geht nicht, es kommt sonst eine Fehlermeldung.
Dieses Makro läuft zurzeit bei mir:
Sub auto_open()
Dim str_name As String
'Default als StartSeite anzeigen
Sheets("Default").Visible = True
'Bildschirm "Einfrieren" lassen
Application.ScreenUpdating = False
'Wichtige Datenblätter ausblenden
Sheets("Hauptseite").Visible = False
Sheets("Monatseintragungen").Visible = False
Sheets("Tagesliste").Visible = False
Sheets("Monatsübersicht").Visible = False
Sheets("Werkstattzeiten").Visible = False
Sheets("Statistik").Visible = False
Sheets("Jahresbericht").Visible = False
Sheets("Werkstattbelegung").Visible = False
Sheets("Übersicht").Visible = False
Sheets("Kalender").Visible = False
'Bildschirm aktuallisieren
Application.ScreenUpdating = True
'Default auswaehlen
Worksheets("Default").Activate
'Bildschirm wieder "Einfrieren" lassen
Application.ScreenUpdating = False
'Ausgabe der Eingabebox fuer den Anmeldenamen
str_name = InputBox("Anmeldename: ", "Logininformationen")
'Administrator-abfrage
If str_name = "Admin" Then
'Passwordabfrage
ActiveSheet.Protect Password:="brummi"
If ActiveSheet.Unprotect = "Wahr" Then
'Wenn das Password stimmt, blende alle Standardblaetter ein
Sheets("Hauptseite").Visible = True
Sheets("Monatseintragungen").Visible = True
Sheets("Tagesliste").Visible = True
Sheets("Monatsübersicht").Visible = True
Sheets("Werkstattzeiten").Visible = True
Sheets("Statistik").Visible = True
Sheets("Jahresbericht").Visible = True
Sheets("Werkstattbelegung").Visible = True
Sheets("Übersicht").Visible = True
Sheets("Kalender").Visible = True
Sheets("Default").Visible = False
Worksheets("Hauptseite").Activate
Application.ScreenUpdating = True
End If
End If
'Usera-abfrage
If str_name = "Leiter" Then
ActiveSheet.Protect 'Password:="mR9gfejBa8"
If ActiveSheet.Unprotect = "Wahr" Then
'Wenn das Password stimmt, blende alle Standardblaetter ein
Sheets("Hauptseite").Visible = True
Sheets("Monatseintragungen").Visible = True
Sheets("Tagesliste").Visible = True
Sheets("Monatsübersicht").Visible = False
Sheets("Werkstattzeiten").Visible = False
Sheets("Statistik").Visible = True
Sheets("Jahresbericht").Visible = True
Sheets("Jahrestage").Visible = False
Sheets("Werkstattbelegung").Visible = False
Sheets("Übersicht").Visible = True
Sheets("Default").Visible = False
Worksheets("Hauptseite").Activate
Application.ScreenUpdating = True
End If
End If
End Sub
Gruß
Fritz