Blattschutz



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Blattschutz
von: Roder
Geschrieben am: 10.06.2002 - 13:07:34

Hallo,
wie kann ich in einer Mappe alle Bätter gleichzeitig Schützen oder den Schutz wieder aufheben?

Geht das auch ohne VBA?

Vielen Dank


nach oben   nach unten

Re: Blattschutz
von: Hajo
Geschrieben am: 10.06.2002 - 13:11:57

Hallo Roder

ohne VBA sieht es schlecht aus. In ein Modul


Private Sub Aufheben()
    For I = 1 To Sheets.Count
        Sheets(I).Unprotect ("Passwort")
    Next I
End Sub

Private Sub Schutz()
    For I = 1 To Sheets.Count
        Sheets(I).Protect ("Passwort")
    Next I
End Sub

Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz"