Zugriffsregelung für Tabellenblätter
02.02.2006 11:35:15
Oswald
hab das Problem dass ich den Zugriff auf Tabellenblätter regeln will.
Es sollte alls nicht jeder auf bestimmte Tabellenblätter zugriff haben.
Im Moment hab ich es über den folgenden Code gelöst, hat aber den Nachteil das wenn mann beim öffnen der Datei die Makros nicht aktivier das ganze nicht klappt.
~
Private Sub Worksheet_Activate()
If aktive = 1 Then Exit Sub
'Call aktivieren
Sheets("Tabelle3").Visible = 2
kennwort = InputBox("Bitte Kennwort eingeben!", "Kennworteingabe")
If kennwort = "ossi" Then Sheets("Tabelle3").Visible = 1: aktive = 1: Worksheets("Tabelle3").Activate Else Sheets("Tabelle3").Visible = 1: Worksheets("Tabelle1").Activate
End Sub
Private Sub Worksheet_Deactivate()
aktive = 0
Application.ScreenUpdating = True
End Sub
~
Hat jemand noch einen Tipp für mich.
Danke euch schon mal.
Gruß
Oswald