Masterpasswort für Blattschutz

Forumthread: Masterpasswort für Blattschutz

17.11.2024 21:21:49

Elspacko

Hallo liebe Excelgemeinde
Ich hatte vor einigen Jahren das Glück in irgendeinem Forum (Ich weis nicht ob es hier war) Hilfe zu einem Problem zu bekommen.
Da ich schon einige Zeit diese Datei in der die Hilfe funktioniert hatte, nicht mehr geöffnet habe, habe ich nun das Problem, dass ich das Passwort nicht mehr im Kopf habe.

Das Problem war, das ich für jedes Tabellenblatt einen Blattschutz erstellt hatte. Um aber nicht in jedem Blatt den Blattschutz aufheben zu müssen hatte Ein b.z.w. Eine nette Person ein VBA Code geschrieben mit dem ich ein Masterpasswort eingeben konnte und alle Tabellenblätter wieder frei bearbeitbar waren.

Ich habe zwar eine Datei gefunden mit dem ich ein Blatt freigeben und bearbeiten kann, aber leider komme ich mit dem Passwort nicht in den VBACode rein um den für eine Neue Datei einzusetzen.
Ich kann aber auch die Hilfeseite und das Thema mit dem ich nach Hilfe gefragt habe nicht mehr finden. Deshalb frage ich mal in die Runde hier ob mir jemand(e) von Euch einen neuen VBA schreiben kann.
Sollte Eine(r) von Euch Interresse haben, würde ich Euch dann genauere Infos zukommen lassen.

Ich würde mich sehr Freuen wenn es klappen könnte.
Mit bestem Dank und freundlichen Grüßen
Ralf B. aus B. an der E.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Masterpasswort für Blattschutz

17.11.2024 22:28:02

Elspacko
AW: Masterpasswort für Blattschutz

17.11.2024 22:33:47

ralf_b
AW: Masterpasswort für Blattschutz

17.11.2024 22:38:53

ralf_b
AW: Masterpasswort für Blattschutz

17.11.2024 22:55:23

Elspacko

AW: Masterpasswort für Blattschutz

17.11.2024 22:28:02

Elspacko

Hallo Ihr lieben
In diesem Thread Forumthread: Blattschutz aller Blätter wieder aufheben habe ich gefunden was ich suchte. Es gibt nur ein kleines Manko.
Ich möchte zwei Tabellenblätter vom Blattschutz ausnehmen. Das sind die Tabellenblätter Eckpunkte und Kommentare.
Was muss ich wo ändern oder Einfügen, damit diese Tabellenblätter nicht mit einem Passwort geschützt werden?

Sub Schutz_ein()
Dim intSheet As Integer
Application.ScreenUpdating = False
'Blaetter schuetzen:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Protect "DeinPasswort"
Next intSheet
Application.ScreenUpdating = True
End Sub

Vielen Dank für Eure Mühe die ich Euch mache
Ralf B. aus B. an der E.

AW: Masterpasswort für Blattschutz

17.11.2024 22:33:47

ralf_b

if Worksheets(intSheet).name > "Eckpunkte" And Worksheets(intSheet).name > "Kommentare" then .Protect "DeinPasswort"

AW: Masterpasswort für Blattschutz

17.11.2024 22:38:53

ralf_b

hier mal komplett. der andere Post war fehlerhaft.

Sub Schutz_ein()

    Dim intSheet As Integer

    Application.ScreenUpdating = False

    For intSheet = 1 To Worksheets.Count

        Select Case Worksheets(intSheet).Name

              Case "Kommentare", "Eckpunkte"

              Case Else

                 Worksheets(intSheet).Protect "DeinPasswort"

        End Select

    Next intSheet

    Application.ScreenUpdating = True

End Sub

AW: Masterpasswort für Blattschutz

17.11.2024 22:55:23

Elspacko

Guten Abend ralf_b
Du bist ein Schatz den man nicht bezahlen kann.
Dieser Code funktioniert bestens.
Vielen Dank für Dein Interesse und Superschnelle Hilfe.

Sei freundlichst Gegrüßt
Ralf B. aus B. an der E.

Forumthread: Masterpasswort für Blattschutz

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread