Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
996to1000
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
Inhaltsverzeichnis

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

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

84 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige