Office: Tabellenblatt schützen

Hallo, hab noch ein Problem.
Ich habe in meiner Arbeitsmappe ca. 350 Tabellenblätter.
Ich möchte nun gerne das ich bei allen den Blattschutz aktivieren oder deaktivieren kann. Aber mit Passwot. Habe schon viele möglichkeiten
aus dem forum probiert, komm aber einfach nicht drauf.

Vieleicht auch über eine Dropdown - Auswahl in im ersten Tabellenblatt ??


Vielen Dank im voraus für die Mühe.

Gruss Alfred

 

Hallo Alfred,

das geht nur über Makro.

Code:

Option Explicit
Dim WsTabelle As Worksheet
'**************************************************
'* H. Ziplies                                     *
'* 28.12.02                                       *
'* erstellt von [email]HajoZiplies@web.de[/email]                *
'* [url]http://Hajo-Excel.de/[/url]                          *
'**************************************************

Private Sub Aufheben()
    For Each WsTabelle In Sheets
        WsTabelle.Unprotect ("Passwort")
    Next WsTabelle
End Sub

Private Sub Schutz()
    For Each WsTabelle In Sheets
        WsTabelle.Protect ("Passwort")
    Next WsTabelle
End Sub

Die Makros sind als Privat bezeichnet, damit Sie nicht jeder ausführen kann sonndern nur aus dem VBA Ediotor

Gruß Hajo

 

Hallo, irgendwie sitz ich auf der Leitung.
diesen code eingeben in " Dieser Arbeitsmappe" oder wo.
die Tabellenreiter haben alle unterschiedliche Namen.....???
weiss nicht weiter...sorry

 

Hallo Alfred,

in ein Modul, der Tabellename ist egal. Es werden alle geschützt oder entsperrt. Starten geht nur aus dem Vba Editor durch Private.

Gruß hajo

 

re Blattschutz

Hallo Hajo, so klappt es wunderbar, Danke.
aber wie schütze ich den code im vba editor`???
gruss alfred

 

Hallo Alfred,

Dzu meinst das keiner Das VBA Projekt sehen kann. Nur über rechte Maus und der Datei (im VBA Editor), Eigenschaften VBA Projekt, Register Schutz. Passwort nicht vergessen. In Excl ist nichts sicher.

Gruß Hajo

 

ist dein anderer thread beendet...?

 

alles klar

Hallo Hajo, so nun ist alles klar. Bestens.
Danke dir vielmal.
Hoffe ihr habt jetzt eine weile ruhe vor mir.......

Liebe Grüsse Alfred

 

das hoffe ich auch!!!!