AW: Zwei kleine Fragen
04.04.2012 15:28:18
Jenny
Hallo Rudi,
vielen Dank - damit bin ich nun ein ganzes Stück voran gekommen ! :-)
Der unten stehende Code funktioniert nun soweit gut (die Workbook.Close Zeileergänze ich später).
Einziger Haken ist momentan, dass hier für nicht gelistete User zunächst für ein oder zwei Sekunden das Blatt2 zu sehen ist, bevor dieses verschwindet und statt dessen das korrekte Dummy-Blatt (Blatt5) erscheint.
Ich vermute, das liegt an den einzelnen Rechenschritten, die der Reihe nach abgearbeitet werden ?
Gibt es hier irgendeinen Weg, das zu verhindern, so dass nicht gelistete User wirklich nur Blatt5 und nichts anderes sehen ?
Private Sub Workbook_Open()
Call Disclaimer
Application.Calculate
Select Case Environ("Username")
Case "admin1", "admin2"
Worksheets(1).Visible = True
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Worksheets(5).Visible = True
Worksheets(2).Select
Range("E2").Select
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
If Application.CountIf(Sheets(1).Range("A1201:A1399"), Environ("Username")) 1 Then
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = xlVeryHidden
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Worksheets(5).Visible = True
Worksheets(5).Select
Range("A1").Select
MsgBox "Kein Zugriff"
Else
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = True
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Worksheets(5).Visible = xlVeryHidden
Worksheets(2).Select
Range("E2").Select
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 If
End Select
End Sub
LG und nochmals vielen Dank Dir,
Jenny