Passwort für mehrere Tabellenblätter

[Portgas D. Ace]

Hallo ihr Lieben, 

meine Frage ist eigentlich Simpel. Habe bereits im Internet nachgelesen, jedoch keine klare Antwort rauslesen können. 

Ist es möglich mit einmal Passwort eingeben mehrere Tabellenblätter (z.B. bei 8 Tabellenblätter in einer Arbeitsmappe, Tabellenblatt 2-7) mit einem Passwortschutz zu versehen und diese dann auch mit einmal eingeben wieder aufzuheben? 

Danke im Voraus

MfG

Ace

[Jonas0806]

Hallo,

ich denk, ohne VBA wird das nicht gehen. Wäre das denn überhaupt eine Option?

[Klaus-Dieter]

Hallo,

du könntest versuchen, das mit dem "Schutz" der gesamten Arbeitsmappe zu lösen. Wobei man sich unter Schutz nichts sicheres vorstellen darf, das kann man in ein paar Sekunden aushebeln.

[Portgas D. Ace]

Also die gesamt Arbeitsmappe zu Schützen kommt nicht in Frage. Derjenige der die Datei bekommt, soll in den Tabellen bestimmte Zeilen und Spalten nicht verändern können. Deswegen Schütze ich jeweils nur bestimmte Berieche in einer Tabelle. Das man es in ein paar Sekunden aushebeln kann stellt auch kein Problem dar. 

Wenn Sie mir genau erklären können wie das mit VBA geht, dann kommt das natürlich auch in Frage  :19:

[Jonas0806]

Hallo,

zunächst mal bitte "Du" ;)

Und das klappt, z.B., so:

Code:

Option Explicit

Sub protectSheets()
   Dim wks As Worksheet
   
   For Each wks In ThisWorkbook.Worksheets
       If InStr(1, "Sheet1Sheet2Sheet3Sheet4....", wks.Name) Then 'In den Anführungszeichen trägst Du die Namen Deiner Sheets ein
           wks.Protect "DeinPasswort"
       End If
   Next wks
End Sub

Sub unprotectSheets()
   Dim wks As Worksheet
   
   For Each wks In ThisWorkbook.Worksheets
       If InStr(1, "Sheet1Sheet2Sheet3Sheet4....", wks.Name) Then 'In den Anführungszeichen trägst Du die Namen Deiner Sheets ein
           wks.Unprotect "DeinPasswort"
       End If
   Next wks
End Sub

Du solltest allerdings besser den CodeName, statt Name verwenden. Dazu kannst Du im Internet einiges lesen.

[Portgas D. Ace]

Ich hatte gehofft, dass du mir das etwas genauer erklären kannst  :19: 
Ich hab jetzt meine Datei mit Makros gespeichert. Dann gehe ich auf Entwicklertools und dann auf Visual Basic. Dann habe ich "Diese Arbeitsmappe" angeklickt. Dann den Code reinkopiert. Soll ich bei den Namen zwischen den Anführungszeichen eine Leerzeile lassen? oder das mit einem Komma trennen? oder jedes einzelne Blatt mit Anführungszeichen versehen? Also du siehst schon, dass ich eine etwas genauere Erklärung brauche  :19: wo finde ich die Codenamen? 

MfG und vielen Dank

Ace

[Steffl]

Hallo,

wo welcher Code zu stehen hat bzw. stehen sollte kannst Du hier nachlesen. Die Codennamen stehen im Projektexplorer in Klammern.

[Rabe]

Hi,

Soll ich bei den Namen zwischen den Anführungszeichen eine Leerzeile lassen? oder das mit einem Komma trennen? oder jedes einzelne Blatt mit Anführungszeichen versehen?

also für mich ist diese Zeile eindeutig:

If InStr(1, "Sheet1Sheet2Sheet3Sheet4....", wks.Name) Then 'In den Anführungszeichen trägst Du die Namen Deiner Sheets ein

einfach die Namen ohne Leer-, oder sonstiges Trennzeichen hintereinanderschreiben zwischen die "".

[Portgas D. Ace]

Habe das jetzt versucht ohne eine Leerzeile oder andere Trennzeichen zu benutzen, jedoch klappt das irgendwie nicht. 


Ich lade mal eine Beispieldatei hoch, und wenn einer so nett ist kann er ja mal den Code so reinkopieren wie es sein soll und wieder hochladen. Würde dann gerne sehen, ob das so klappt wie ich mir das vorstelle. Die Tabellenblätter Stunden, Tage und Anzahl sollten hierbei bei einmal eingeben geschützt werden und wieder mit einmal eingeben wieder aufgehoben werden.

Danke im Voraus

Gruß 

Ace

[Igelbauer]

Hi
Also in deiner Datei war noch nirgendwo Code enthalten.
Ich hab dann mal ein Modul eingefügt, Sperren_Entsperren genannt, Code reinkopiert, die Namen der gewünschten Tabellenblätter eingefügt und für die zwei Sub jeweils einen Shortcut angelegt.
Strg+Shift+P für Protect und
Strg+Shift+U für Unprotect

Taugt dir das so ?

Gruss Igel