VBA-Passwort für best. User aufheben
Jenny
ich habe den Code in einer Tabelle per Passwort geschützt und lese beim Öffnen der Tabelle den User-Login per Environ aus.
Könnt Ihr mir sagen, wie ich das Passwort beim Öffnen der Datei automatisch für 2 bestimmte User-Logins aufheben und dieses beim Schließen der Datei wieder automatisch setzen kann ?
Subs für Workbook_Open und BeforeClose habe ich schon und auch eine Fallunterscheidung (s.u.) - kann ich es hier mit einbinden ?
Falls man den Code unten noch irgendwie vereinfachen kann, sind Tipps auch gerne willkommen. :-)
Option Explicit
Private Sub Workbook_Open()
Call Disclaimer
Select Case Environ("Username")
Case "AAA", "BBB"
Worksheets(1).Visible = True
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = False
End With
Worksheets(2).Unprotect "XXX"
Worksheets(2).Range("L5") = Environ("username")
Worksheets(2).Protect UserInterfaceOnly:=True, Password:="XXX"
Case Else
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = True
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Application.DisplayFullScreen = False
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = False
End With
Worksheets(2).Unprotect "XXX"
Worksheets(2).Range("L5") = Environ("username")
Worksheets(2).Protect UserInterfaceOnly:=True, Password:="XXX"
End Select
End Sub
LG und vielen Dank Euch im Voraus, Jenny