Verschiedene Tabellenblätter mit Passwort öffnen

[Beltason]

Hallo Leute, ich habe eine Excel Datei mit verschieden Blättern. Die würde ich gerne erst nach eingabe von einem Passwort öffnen und zur Bearbeitung bereit stellen. Ich weiß das es kein 100% Schutz ist, aber es hilft immerhin etwas. Im Netz habe ich nur einen Artikel gefunden der ausreicht.

Zum Einblenden der Tabellen diesen Code:

Code:

Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "Hier dein Paßwort eintragen"
With Worksheets("Tabelle2")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub

Zum Ausblenden der Tabellen diesen Code:

Code:

Sub Verbergen()
Worksheets("Hier Namen vom Tabellenblatt eintragen was ausgeblendet werden soll").Visible = xlVeryHidden
End Sub

Dieser Code funktioniert auch tadellos. Solange es sich um EIN Tabellenblatt handelt. Was muss umgeschrieben werden, um mehrere Tabellenblätter Aus bzw. wieder Einzublenden?

Ganz lieben Gruß an alle Helfer!

[schauan]

Hallöchen,

der Code für eins ist doch dieser:

With Worksheets("Tabelle2")
.Visible = True
.Select
End With

Da erkennt man (hoffentlich) auch, dass das Blatt eingeblendet wird - was nicht erforderlich ist.

Also würde das reichen

With Worksheets("Tabelle2")
.Visible = True
End With

und weil in dem Fall With keinen Sinn ergibt besser alles für dieses Blatt in einer Zeile

Worksheets("Tabelle2").Visible = True

ich glaube, damit kommst Du weiter?

[Beltason]

Hallo Andre, danke das du dich meiner annimmst, doch jetzt geht gar nichts mehr. Ich hänge dir mal meine Testtabelle dran. 
Vieleicht erkennst du da äher, was ich da falsch mache. Ich bin eben was Makros und vba angeht ein Amateur
Lg Reiner

[schauan]

Hallöchen,

Worksheets("Tabelle2").Visible = True
Worksheets("Tabelle3").Visible = True
Worksheets("Tabelle4").Visible = True
...

Zusammenfassen geht z.B. so
Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Visible = False

[Beltason]

Guten morgen Andre, das sieht schon richtig gut aus. Vielen Dank!

Das einzige manko was da noch ist, es funktioniert genau andersrum...lach....habe wohl deinen Code an die falsche stelle gesetzt.
Wenn ich auf ÖFFNEN klicke verstecken sich die Blätter erst nach Passwort eingabe und wenn ich auf VERSTECKEN klicke öffnen sich die Blätter OHNE Passwortabfrage.  
Habe die Testdatei nochmal angehängt! 
Kannst du den Code auch so anpassen, das nach dem öffnen der versteckten Blätter, der Cursor sich auf Tabelle1 befindet? Er bleibt auf Tabelle3

GL Gruß Reiner

[schauan]

Hallöchen,

Sub Verbergen()
Worksheets("Tabelle2").Visible = True
Worksheets("Tabelle3").Visible = True
Worksheets("Tabelle4").Visible = True
End Sub

also, sichtbar = wahr steht im Widerspruch zum "Sub Verbergen" ... Analog auch Visible = False beim Einblenden.