Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe wie Arbeitsblatt sperren

Arbeitsmappe wie Arbeitsblatt sperren
17.10.2007 15:39:00
Matthias
Hallo,
ich habe einen Haufen Tabellenblätter und muss jedes einzelne Blatt sperren. In den Blättern sind Zellen, die gesperrt sind oder welche wo man was eingeben kann.
Nun ist es mühsam da durch alle Tabellenblätter zu gehen. Wie kann man da auf dem selben Wege ohne großen Aufwand die ganze Arbeitsmappen - tabellenblätter sperren?
Danke für Ideen,
Grüße, Matthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
alle Blätter per Makro sperren
17.10.2007 15:47:00
heikoS
Hallo Matthias,
das geht mit dem folgenden Makro, das Du z.B. hinter eine Schaltfläche in der Symbolleiste packst:

Sub alle_blaetter_schutz()
Application.ScreenUpdating = False
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect "DeinKennwort"
Next wks
Application.ScreenUpdating = True
End Sub


Und mit dem nächsten Makro hebst Du den Schutz wieder auf:


Sub alle_blaetter_schutz_aus()
Application.ScreenUpdating = False
Dim wks As Worksheet
For Each wks In Worksheets
wks.Unprotect "DeinKennwort"
Next wks
Application.ScreenUpdating = True
End Sub


Gruß Heiko

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige