Makro für Blattschutz

Forumthread: Makro für Blattschutz
7 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro für Blattschutz

02.03.2008 19:21:56

P.Ro

Hallo,
kann mir jemand helfen und ein Makro schreiben, mit dem ich ein Blatschutz mit Kennwort erzeugen kann. Wenn möglich mit dem Einlesen des Kennwortes aus einer Zelle.
Vielen Dank für eure Hilfe
Paul

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro für Blattschutz

02.03.2008 19:33:00

mumpel
AW: Makro für Blattschutz

02.03.2008 19:40:00

P.Ro
AW: Makro für Blattschutz

02.03.2008 19:43:31

mumpel
AW: Makro für Blattschutz

02.03.2008 19:36:21

Gast
AW: Makro für Blattschutz

02.03.2008 19:42:43

P.Ro
AW: Makro für Blattschutz

02.03.2008 21:42:51

Gast
AW: Makro für Blattschutz

02.03.2008 19:42:00

mumpel

AW: Makro für Blattschutz

02.03.2008 19:33:00

mumpel

Hallo!
zum Beispiel:


Sub KennwortSetzen()
ActiveSheet.Protect ThisWorkbook.Sheets("Tabelle1").Range("A1").Value
End Sub

Gruß, Rene

AW: Makro für Blattschutz

02.03.2008 19:40:00

P.Ro

Hallo Rene,
das passt. Vielen Dank.
Wenn ich den Schutz wieder aufheben will, wie geht das mit Makro?
Paul

AW: Makro für Blattschutz

02.03.2008 19:43:31

mumpel


Sub KennwortSetzen()
ActiveSheet.Unprotect ThisWorkbook.Sheets("Tabelle1").Range("A1").Value
End Sub

AW: Makro für Blattschutz

02.03.2008 19:36:21

Gast


Sub BlattschutzEin()
ActiveSheet.Protect Password = Sheets("Tabelle1").Range("A2").Value
End Sub


Sub BlattschutzAus()
ActiveSheet.Unprotect Password = Sheets("Tabelle1").Range("A2").Value
End Sub

Gruß SP

AW: Makro für Blattschutz

02.03.2008 19:42:43

P.Ro

Ihr seid einfach Spitze.
Vielen Dank
Paul

AW: Makro für Blattschutz

02.03.2008 21:42:51

Gast

Hallo Paul,
unter Excel XP läuft der Code allerdings fehlerfrei.
Gruß Gast

AW: Makro für Blattschutz

02.03.2008 19:42:00

mumpel

Hallo lieber Peter.
Dein Code enthält einen Fehler Du hast den Doppelpunkt nach "Password" vergessen, wodurch ein Fehler entsteht. Im Übrigen ist "Password:=" nicht erforderlich. Es genügt, das Kennwort in Anführungszeichen zu setzen, siehe mein Beispielcode.
Gruß, Rene