Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Blätter in einer Datei schützen

Forumthread: Alle Blätter in einer Datei schützen

Alle Blätter in einer Datei schützen
30.07.2008 09:05:03
Doro
Hallo Excel-Experten,
gibt es eine Möglichkeit alle Blätter auf einmal zu schützen?
Wenn ich alle mit Gruppierung anlege und auf Blatt schützen gehe (ohne Passwort) geht das nicht und natürlich Blattschutz aufheben auch nicht.
Vielleicht könnt ihr mir helfen.
Schon mal vielen Dank im Voraus.
Gruß
Doro

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Blätter in einer Datei schützen
30.07.2008 09:08:00
Tobias
Hallo Doro!


Sub Protect()
    Dim sht As Worksheet
    For Each sht In Sheets
        sht.Protect
    Next
End Sub
Sub UnProtect()
    Dim sht As Worksheet
    For Each sht In Sheets
        sht.UnProtect
    Next
End Sub


Schönen Gruß, Tobias
http://www.tobiasschmid.de/

Anzeige
-> Korrektur!
30.07.2008 09:10:00
Tobias
Fehler!


Sub Protect()
    Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Protect
    Next
End Sub
Sub UnProtect()
    Dim sht As Worksheet
    For Each sht In Worksheets
        sht.UnProtect
    Next
End Sub


Schönen Gruß, Tobias
http://www.tobiasschmid.de/

Anzeige
AW: -> Korrektur!
30.07.2008 10:11:00
Doro
Hallo Tobias,
ich bin begeistert - es geht!!!!!!
Vielen, vielen Dank du hast mir sehr geholfen und
mit der Zeit begreife ich immer besser die Makros.
Schönen Tag und viele Grüße
Doro

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige