habt Ihre eine Idee, wie ich das anstellen kann, dass man einzelne Tabellenblätter nur mit Passwort sehen & bearbeiten kann ? Wenn ich die nur ausblende, kann ja doch wieder jeder nachschauen...
Gruß
Jutta
Private Sub Worksheet_Activate()
Dim passwort As String
ActiveSheet.UsedRange.Font.ColorIndex = 2
passwort = InputBox("Passwort?")
If passwort = "xxx" Then
ActiveSheet.UsedRange.Font.ColorIndex = xlAutomatic
Else
Sheets(1).Activate
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Geheim").Visible = xlVeryHidden
End Sub