besteht die Möglichkeit innerhalb einer Arbeitsmappe bestimmte Tabellenblätter mit einem Passowrt zu schützen - so dass sich diese dann erst öffnen lassen.
Wenn ja- wie geht das ?
Liebe Grüße
Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "Hier dein Paßwort eintragen"
With Worksheets("Hier Name vom Tabellenblatt eintragen was wieder eingeblendet werden soll")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Sub Verbergen()
Worksheets("Hier Namen vom Tabellenblatt eintragen was ausgeblendet werden soll").Visible = xlVeryHidden
End Sub