habt Ihre eine Idee, wie ich das anstellen kann, dass man einzelne Tabellenblätter nur mit Passwort sehen kann ? Wenn ich die nur ausblende, kann ja jeder nachschauen...
Gruß
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a
If Sh.Name = "Tabelle1" Then'Tabelle1 wird geschützt
Application.EnableEvents = False
Sheets("Tabelle2").Select' hier eine nicht geschützte Tabelle angeben
a = InputBox("Passwort")
If a = "1234" Then Sh.Select
Application.EnableEvents = True
End If
End Sub