Excel 2003 VBA Tabellenblattzugriff

[bastimail 10]

Hallo,

 

ich hoffe das mir jemand helfen kann. Beim googlen hab ich keine Ergebnis zu dieser speziellen Frage erhalten.

Ich habe in Excel 2003 eine Arbeitsmappe, in dieser sind mehrere Tabellenblätter enthalten. Ich möchte nun erreichen, dass der Inhalt von zB "Tabellenblatt1" beim Öffnen der Arbeitsmappe nicht angeziegt wird. Erst wenn man ein Passwort eingibt, soll der Inhalt von "Tabellenblatt1" angezeigt werden. Ich schätz mal das wird nur über VBA funktionieren. Da ich aber in dem Thema nicht sehr bewandert bin, würd ich euch gern um Hilfe bitten.

 

mfG bastimail

[Cybquest 36]

Mit Passwortschutz ist das so ne Sache.

Wie sicher muss das denn sein?

Wenn's um nen einfachen Schutz gehen soll, wäre z.B. möglich, das Tabellenblatt kpl. auszublenden und auf Knopfdruck wieder einzublenden.

Hier entspr. Code:

Ausblenden:

   Tabelle2.Visible = xlSheetVeryHidden

Wieder einblenden (Passwort steht im Bsp. auf Tabelle2 in Feld N1):

If InputBox("Passwort") = Tabelle2.Range("N1") Then
   Tabelle2.Visible = xlSheetVisible
Else
   MsgBox "Passwort falsch!"
End If

Liesse sich allerdings recht leicht aushebeln (Makros deaktivieren, eigenes Makro ohne Passwortabfrage zum Einblenden etc.), aber vielleicht reichts ja als erster Ansatz...

[bastimail 10]

Sehr nice die Lösung.

Funktioniert super! Dank dir.

 

mfG basti