AW: Verschiedene Passwörter für Tabellenblätter
27.07.2005 11:50:01
Werner
Hallo Karin
ca. 13 Threads weiter oben (username regelt den Zugang zu Arbeitsblättern) von F.M. wird das auch von Ramses(Rainer) beschrieben.
Meine Version:
uNam ist der Anmeldename im Netzwerk.
Wenn jetzt der Mitarbeiter sich anmeldet, wird sein zugehöriges Blatt eingeblendet.
Beim schliessen der Datei werden die Blätter ausgeblendet und können auch unter Format - Blatt, nicht eingeblendet werden.
Private Sub Workbook_Open()
uNam = Environ("Username")
If uNam = "yyy" Then Sheets("Tabelle1").Visible = True
If uNam = "abc" Then Sheets("Tabelle2").Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Visible = xlVeryHidden
Sheets("Tabelle2").Visible = xlVeryHidden
End Sub
Gruss Werner