Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blattschutz-Makro: Für alle außer 1 Blatt...

Forumthread: Blattschutz-Makro: Für alle außer 1 Blatt...

Blattschutz-Makro: Für alle außer 1 Blatt...
04.12.2012 09:47:46
R.
Hallo ins Forum!
Ich verwende die folgenden Makromodule, um für alle Bätter einer Arbeitsmappe den Blattschutz zu (de-)aktivieren:
Option Explicit
Sub Blattschutz()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Protect Password:="beispiel"
Next i
End Sub
Sub Blattschutz_aufheben()
Dim i As Integer
Dim pw As String
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Unprotect Password:="beispiel"
Next i
End Sub

Leider muss ich (nach dem Schützen) für ein bestimmtes Tabellenblatt den Blattschutz immer wieder aufheben, da dieses eben nicht geschützt sein soll. Wie müsste ich den Code verändern, damit alle Tabellenblätter außer einem Blatt "XY" geschützt wird?
Viele Grüße
Rüdiger

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz-Makro: Für alle außer 1 Blatt...
04.12.2012 10:02:25
Klaus
Hi Rüdiger,
gar nicht, unschütze das Blatt doch direkt im Makro.
Sub Blattschutz()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Protect Password:="beispiel"
Next i
Sheet("XY").Unprotect Password:="beispiel"
End Sub

Grüße,
Klaus M.vdT.

Anzeige
Du mußt die Blätter nicht erst aktivieren ...
04.12.2012 10:04:59
Matthias
Hallo
Option Explicit
Sub BlattschutzAn()
Dim i&
For i = 1 To Worksheets.Count
If Worksheets(i).Name  "XY" Then Worksheets(i).Protect Password:="beispiel"
Next i
End Sub
Sub BlattschutzAus()
Dim i&
For i = 1 To Worksheets.Count
If Worksheets(i).Name  "XY" Then Worksheets(i).UnProtect Password:="beispiel"
Next i
End Sub
Und ActiveWorkbook würde ich weglassen oder ThisWorkbook benutzen
Gruß Matthias

Anzeige
AW: Blattschutz-Makro: Für alle außer 1 Blatt...
04.12.2012 10:28:07
R.
Hallo Klaus, hallo Matthias!
Danke Euch beiden recht herzlich!
Grüße
Rüdiger

Danke für die Rückmeldung! o.w.T.
04.12.2012 11:00:57
Klaus
.
;
Anzeige

Infobox / Tutorial

Blattschutz für alle Arbeitsblätter außer einem


Schritt-für-Schritt-Anleitung

Um in Excel alle Arbeitsblätter zu schützen, mit Ausnahme eines bestimmten Blattes, kannst du das folgende VBA-Makro verwenden. Dieses Makro schützt alle Blätter, außer dem Blatt mit dem Namen "XY".

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle im Menü Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Kopiere und füge den folgenden Code in das Modul ein:
Sub Blattschutz()
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(i).Name <> "XY" Then
            ThisWorkbook.Worksheets(i).Protect Password:="beispiel"
        End If
    Next i
End Sub

Sub Blattschutz_aufheben()
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(i).Name <> "XY" Then
            ThisWorkbook.Worksheets(i).Unprotect Password:="beispiel"
        End If
    Next i
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro Blattschutz aus, um alle Arbeitsblätter zu schützen, außer "XY".

Häufige Fehler und Lösungen

  • Fehler: "Blatt XY konnte nicht gefunden werden."

    • Überprüfe den Namen des Blattes. Er muss genau mit dem im Code angegebenen Namen übereinstimmen (z. B. "XY").
  • Fehler: "Schutz konnte nicht angewendet werden."

    • Stelle sicher, dass du die Schreibweise des Passworts korrekt eingegeben hast.

Alternative Methoden

Eine Alternative zum oben beschriebenen Makro ist die Verwendung von Excel-Funktionen wie Blattschutz über das Menü. Du kannst auch das Workbook_BeforeClose-Ereignis verwenden, um den Blattschutz automatisch zu aktivieren, wenn die Arbeitsmappe geschlossen wird.


Praktische Beispiele

Wenn du mehrere Arbeitsblätter in einer großen Arbeitsmappe verwaltest, kannst du das oben genannte Makro verwenden, um schnell und effizient den Blattschutz für alle Arbeitsblätter außer einem bestimmten zu aktivieren. Dies ist besonders nützlich, wenn du regelmäßig mit vertraulichen Daten arbeitest und den Zugriff auf bestimmte Blätter einschränken möchtest.


Tipps für Profis

  • Setze ein komplexeres Passwort, um den Blattschutz zu erhöhen.
  • Teste dein Makro in einer Kopie deiner Arbeitsmappe, bevor du es in der Originaldatei anwendest.
  • Nutze ThisWorkbook anstelle von ActiveWorkbook, um sicherzustellen, dass das Makro nur auf die Arbeitsmappe wirkt, in der es gespeichert ist.

FAQ: Häufige Fragen

1. Kann ich mehrere Blätter gleichzeitig auswählen und schützen? Ja, du kannst die Blätter im Makro durch eine Schleife durchgehen und den Schutz auf alle außer dem angegebenen Blatt anwenden.

2. Was passiert, wenn ich das Passwort vergesse? Wenn du das Passwort vergisst, gibt es keine einfache Möglichkeit, den Blattschutz zu umgehen. Du solltest deine Passwörter sorgfältig aufbewahren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige