Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe wie Arbeitsblatt sperren

Forumthread: 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

Anzeige

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)

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