Verschiedene Passwörter für Tabellenblätter von
21.09.2005 09:40:56
ischi
Ich habe bereits im Juli mal eine Anfrage gemacht. Die Info von Werner wollte ich umsetzen. Ich möchte beim Öffnen einer Datei nur bestimmte Tebellenblätter anzeigen lassen. Den Username habe ich unter Extras-Optionen-Allgemein kontrolliert.
Ich habe folgendes Modul:
Private Sub Workbook_Open()
uNam = Environ("Username")
If uNam = "x72700094" Then Sheets("Mitarbeitende").Visible = True
If uNam = "x72700094" Then Sheets("Projekte").Visible = True
If uNam = "x72700094" Then Sheets("Gautschi Theresia").Visible = False
'If uNam = "abc" Then Sheets("Tabelle2").Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Projekte").Visible = xlVeryHidden
Sheets("Mitarbeitende").Visible = xlVeryHidden
Sheets("Gautschi Theresia").Visible = xlVeryHidden
End Sub
Kann mir jemand helfen und sagen, wo der Fehler liegt? Beim Öffnen werden mir nach wie vor alle Blätter angezeigt.
Herzlichen Dank!
Karin