Tabellenblatt einblenden mit Passworteingabe
14.12.2008 11:48:00
Claudia
ich habe eine Datei mit einigen ausgeblendetetn Tabellenblättern. WEnn ich diese einblende werde ich nach einem Passwort abgefragt und dann blendet es auch ein. Code nachstehend. Das Passwort ist bekannt und lautet test.
Private Sub Gesamt()
If InputBox("Bitte Paßwort eingeben", "Abfrage") = "test" Then
Sheets("Gesamt").Visible = True
Sheets("Gesamt").Select
Range("A1").Select
End If
'Sheets("Einstellungen").Visible = xlVeryHidden
'Sheets("Antrag").Visible = xlVeryHidden
End Sub
Jetzt möchte/muss ich aber eine VBA Abfrage einbauen in der ich auch das ausgeblendete Tabellenblatt Gesamt einblende. Wir übergebe ich in der Abfrage das Passwort automatisch mit, das ich mittels VBA auch dieses Blatt einblende. Ich hoffe das ist einigermaßen verständlich ausgedrückt.
Vielen Dank für Eure Mithilfe
Anzeige