Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Tabellenblatt einblenden mit Passworteingabe
14.12.2008 11:48:00
Claudia
Hallo guten Morgen zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt einblenden mit Passworteingabe
14.12.2008 12:16:15
Nepumuk
Hallo Claudia,
warum machst du nicht einfach eine eigene Routine dafür?
Private Sub Einblenden_Gesamt()
    Worksheets("Gesamt").Visible = xlSheetVisible
    Application.Goto Reference:=Worksheets("Gesamt").Range("A1"), Scroll:=True
End Sub

Gruß
Nepumuk
Anzeige
AW: Tabellenblatt einblenden mit Passworteingabe
14.12.2008 12:52:53
Claudia
Hallo Nepumuk,
na klar, habe irgendwie um die falsche Ecke gedacht.
Danke für Deine Aufmerksamkeit und Deine Hilfe
Gruß
Claudia

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige