Tabellenblätter mit passwort sichtbar machen

[BachFel]

Vielen Dank mal wieder Käpt´n

klappt super. Tausend Dank

[Käpt'n Blaubär]

Hallöchen,

na, dann habe ich ja alles richtig gemacht  :05:

[BachFel]

Eine letzte Frage hätte ich doch noch

wie kann ich nun dafür sorgen dass man erst garnicht die Möglichkeit hat sich den Code anschauen zu können. Also dass auch beim rechtsklick auf das Tabellenblatt - Code anzeigen auch per Passwort gesperrt ist.

Vielen Dank vorab
Felix

[Käpt'n Blaubär]

Hallo,

... wie kann ich nun dafür sorgen dass man erst garnicht die Möglichkeit hat sich den Code anschauen zu können.

Ich bin mir nicht sicher, ob ich Dich richtig verstanden habe.

1. habe ich angenommen, daß Du meinen Schnipsel an geeigneter Stelle in einen bestehenden Code einarbeitest.

2. könnte man den den Code auch  in DieseArbeitsmappe in ein Makro mit Namen
"Private Sub Workbook_BeforeClose(Cancel As Boolean)" einarbeiten.

3. warum sollte man die Passwortgeschichte beim Ausblenden in Anspruch nehmen. Das reicht doch völlig, wenn
die Passwortabfrage beim Wiedereinblenden abläuft.

4. mit dem Codeschnipsel sind die Blätter nur durch ein Makro wieder einblendbar.
Ein Klick in's Tabellenblatt reicht da nicht aus, wegen: Visible = xlVeryHidden

[BachFel]

Code:

Private Sub Blatt_verstecken_vorholen()
'Holt alle ausgeblendeten Tabellen wieder vor
Dim a As Long, PW As String
PW = InputBox("Kennwort")
If PW = "FLM" Then
   For a = 1 To Sheets.Count
   Sheets(a).Visible = True
   Next
End If
End Sub


Private Sub Blatt_verstecken()
'versteckt Tabellen, =eine Stufe mehr wie ausblenden
Dim a As String
On Error Resume Next
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Stunden (hier schreiben))" Then Sheets(InI).Visible = xlVeryHidden
Next InI
End Sub


Private Sub CommandButton1_Click()
Blatt_verstecken_vorholen
End Sub


Private Sub CommandButton2_Click()
Blatt_verstecken
End Sub

So der Code. Deinen Teil habe ich also eingearbeitet und er fkt. einwandfrei.
Ich würde gerne Sperren das man sich den Code überhaupt anschauen kann, da er das Passwort enthält :D
Beim Ausblenden brauch man kein Passwort, da gebe ich dir absolut Recht
Nachvollziehbar?

[Käpt'n Blaubär]

Hallo,

Ich würde gerne Sperren das man sich den Code überhaupt anschauen kann, da er das Passwort enthält 

... und was will der Autor dem geneigten Leser damit sagen?
Ich kann Deine Argumentaton weder nachvollziehen noch überhaupt begreifen, was Du erreichen willst.
Wenn Du erreichen willst, daß der Gesamtcode nicht sichtbar ist, dann mußt Du im VBA-Editor ein
Passwort für das Projekt vergeben.

[BachFel]

Ich will verhindern das jemand den Code sehen kann, da dieser auch das Passwort fürs Anzeigen der versteckten Tabellenblätter beinhaltet.

Daher die Frage ob man den Zugriff darauf auch per Passwort codieren kann.

Hoffe das war verständlicher :D

[Käpt'n Blaubär]

Hallo,

Hoffe das war verständlicher

nö, war es nicht und da reicht auch kein Bild.

Aber wie ich oben schon geschrieben habe, sperre im VBA-Editor mit einem Passwort den Zugang auf den Code.
dann sollte sich das auch auf Dein Bildchen auswirken.

Im Übrigen: Du gibst doch Dein Passwort über: PW = InputBox("Kennwort") ein.
Die Anzeige ist auch weg, wenn die Box wieder geschlossen ist. Du siehst, ich kann Deine Bauchschmerzen
wirklich nicht nachvollziehen.

[Wastl]

Hi Bachfel,

haste wirklich alle Beiträge gelesen?
Igelbauer hat dir gezeigt wie du den Zugriff zum Code sperrst in Beitrag #5
http://www.clever-excel-forum.de/thread-...#pid106522

[BachFel]

Hi Wastl,

ich habe es gelesen und auch genauso schon bestimmt 10 mal versucht aber es passiert einfach nichts.
Wenn ich im Reiter Schutz das PW zwei mal eingegeben habe und bestätige und danach wieder auf Code anzeigen gehe werde ich nicht aufgefordert ein PW einzugeben =(

Grüße
Felix