Re: Arbeitsblätter ausblenden
14.08.2002 12:28:14
Oliver S.
Hi,versuche es doch mal mit nachfolgendem Makro. Damit werden die Tabellenblätter ausgeblendet und auf Knopfdruck nach erfolgreicher Paßwortabfrage wieder eingeblendet.
Einfügen in Diese Arbeitsmappe:
Private Sub Workbook_Open()
Worksheets("Tabellenblattname").Visible = xlVeryHidden
End Sub
Makro zum Aufrufen des Blattes mit Passwortabfrage:
Sub Blatt_eiblenden()
If InputBox("Bitte Paßwort eingeben", "Abfrage") = "Hier Dein Paßwort" Then
Worksheets("Tabellenblattname").Visible = True
Sheets("Tabellenblattname").Select
Range("B6").Select
End If
End Sub
Ich hoffe, ich konnte Dir helfen,
Oliver