VBA Versteckte Blätter per Button anzeigen

[Alooha]

Hallo,

im angehängten WB gibt es eine Reihe individueller Blätter die versteckt sind (jede Person in LISTE hat ein Blatt).
Nun möchte ich, dass die Blätter nur mittels des betreffenden Passwortes angezeigt werden.

Ich habe selbst einen Code hingekriegt, aber der funktioniert nur mit F8. Wenn ich ihn normal laufen lasse, werden alle Passwörter als falsch angesehen.

Vielleicht habe ich die Ursache gefunden: mit F8 beginnt der Code, nach dem Anzeigen des Blattes für das ich das Passwort eingegeben habe, wieder von vorne.

D.h. es fehlt eine Instruktion, die ihn stoppt.
Wenn jemand so freundlich wäre, die einzufügen.

Mit freundlichen Grüßen
Alooha

[Alooha]

Ich konnte das Problem lösen: End Sub stand an der falschen Stelle

[marose67]

Hallo  zusammen,

dann kann ich ja jetzt auch zeigen, wie weit ich war. Bin aber zu blöde ...

Gruß
Marcus

[Werner.M]

Hallo Marcus,

so:

Code:

If Sheets("Tabelle2").Visible = xlVeryHidden Then Sheets("Tabelle2").Visible = True
    If Sheets("Tabelle3").Visible = xlVeryHidden Then Sheets("Tabelle3").Visible = True

Gruß Werner

[Alooha]

Hallo,
vielen Dank, dass du dich mit meinem Problemchen beschäftigt hast.
MfG
Alooha

[marose67]

Hallo Werner,

 Mist ... warum klappt das jetzt? Muss ich wohl einen Schreibfehler drin gehabt haben. Ich saß ewigkeiten vor dem Code ... Abgespeichert - auf Vorlage gelegt. Ich lerne das wieder!!!!
Danke Dir

Liebe Grüße
Marcus

[marose67]

Hallo Alooha,

hier eine neue Version. Ursprünglich Hat sie mal mit Sendkeys funktioniert. Das klappte aber scheinbar nur bis 2003. Zum spielen setze ich die Tabelle gerne mal ein. Es existiert nur ein Schalter um die Tabellenblätter, mit Passwortabfrage, einzublenden und den Blattschutz aufzuheben. Bei erneutem betätigen des Schalters werden Blattschutz wieder gesetzt und die Tabellenblätter wieder ausgeblendet.

Gruß
Marcus

[schauan]

Hi Marcus,

mit dem Tipp geht Dein SendKeys mit ALT+F11 ..:

http://www.devx.com/vb2themax/Tip/19094