VBA-Code erweitern / Blattschutz

Bild

Betrifft: VBA-Code erweitern / Blattschutz von: Sascha
Geschrieben am: 11.04.2005 11:52:01

Hallo,

ich habe folgendes VBA-Makro:


Sub AlleBlaetterSchuetzen()
For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
Next
End Sub



Wie kann dieser Code erweitert werden, dass pro Blatt ein Kennwort eingegeben werden muss? Mit diesem Code werden zwar mehrere Blätter einer Arbeitsmappe geschützt, jedoch ohne Kennwort und es muss dringend ein Kennwort hinterlegt werden.


Weiss jemand Rat?

Danke

Sascha
Bild


Betrifft: AW: VBA-Code erweitern / Blattschutz von: Hajo_Zi
Geschrieben am: 11.04.2005 12:01:46

Hallo Sascha,

Excel hat ein Klasse Hilfe. Ein Blick in die Hilfe hätte gereicht.

Option Explicit


Sub AlleBlaetterSchuetzen()
    Dim Blatt As Worksheet
    For Each Blatt In ActiveWorkbook.Sheets
        Blatt.Protect Passwor:="Passwort", _
        DrawingObjects:=True
    Next
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: AW: VBA-Code erweitern / Blattschutz von: Sascha
Geschrieben am: 11.04.2005 12:18:00

Hallo Hajo,

kenne mich in Sachen Makros überhaupt nicht aus und hätte in der Hilfe nicht mal ansatzweise verstanden was ich tun soll.
Vielen Dank für Deine schnelle Hilfe. Makro funktioniert jetzt wie gewünscht.

Schönen Tag noch.


Gruss

Sascha


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code erweitern / Blattschutz"