Thema: Blattschutz für eine Serie von Tabellen setzen und aufheben

Home

Gruppe

Allgemein

Problem

Mit der ersten Schaltfläche soll für Tabelle2 bis Tabelle6 ein Blattschutz gesetzt, mit der zweiten soll dieser aufgehoben werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub BlattSchutzSetzen()
   Dim iWks As Integer
   For iWks = 3 To Worksheets.Count
      Worksheets(iWks).Protect "MeinPasswort"
   Next iWks
End Sub

Sub BlattSchutzAufheben()
   Dim iWks As Integer
   For iWks = 3 To Worksheets.Count
      Worksheets(iWks).Unprotect "MeinPasswort"
   Next iWks
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Blattschutz

Blattschutz per Userform ein und ausschalten	Userform soll Blattschutz regeln
Autofilter trotz Blattschutz	Blattschutz mit Abfragefenster
Blattschutz in Makro integrieren	Blattschutz vs. Gruppierung
Blattschutzpasswort in Zelle?	Blattschutz mit falschem Passwort entfernt
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Autofilter mit Blattschutz	Blattschutz bei Diagrammen
Makro trotz Blattschutz	Blattschutz
Probleme mit Blattschutz bei Excelvorlage	Benutzerdefinierte Ansicht nach Blattschutz
Benutzerdefinierte Ansichten trotz Blattschutz	Blattschutz auch bei Formeln aufheben
Gesperrte zellen trotz Blattschutz überschrieben	Gruppierung bearbeiten trotz Blattschutz
Blattschutz und Makros	Tastenkombination freigeben trotz Blattschutz
allgemein	Checkbox - LinkedCell - Blattschutz
Gruppierung trotz Blattschutz	speichern von Blattschutz änderungen
Fehlermeldung wenn Blattschutz aktiv	Blattschutz macht was er will
Fehler wegen Blattschutzautomatik??	Kopieren in Blattschutz
Makro für Blattschutz	Makro für Blattschutz mit Passwort
Blattschutz mit Kennwort als Makro	Blattschutz mit Kennwort als Makro
Blattschutz	Makro ausführen mit Blattschutz auf Tabelle 2
Autofilter trotz Blattschutz	Verwendung von Makro trotz Blattschutz
mit VBA Blattschutz	Listen und Blattschutz
Freigegebene Arbeitsmappe, Ansichten & Blattschutz	option field - Blattschutz
Blattschutz an Bedingung knüpfen	Blattschutz mit Passwort
Blattschutz	blattschutz
Blattschutz	allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage	Blattschutz