Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blettschutz aktivieren und deaktivieren mit Makro!

Blettschutz aktivieren und deaktivieren mit Makro!
29.12.2005 20:22:02
Swen
Hallo an alle,
wie muss ein Makro aussehen mit dem ich
ein Tabellenblattschutz (keine schreib rechte in die zellen)
mit dem Passwort (z.B. wolf") aussehen!
und wie das makro mit dem ich diesen makro schutz aufheben kann!
gruß
swen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blettschutz aktivieren und deaktivieren mit Makro!
29.12.2005 20:28:59
Rocky
Hallo Sven,
Lass doch einfach mal den Recorder laufen. - fertig-
Gruß Rocky
Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!

Nachtrag
29.12.2005 20:36:26
Rocky
Ich Korrigiere mich, das klappt nicht ganz
Schützen:
ActiveSheet.Protect Password:= "Wolf", DrawingObjects:=True, Contents:=True, Scenarios:=True
Aufheben:
Activesheet.Unprotect Password:= "Wolf"
Gruß Rocky
Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!

Anzeige
AW: Nachtrag
29.12.2005 20:38:22
Swen
Hallo Rocky,
vielen Dank!
gruß
Swen
AW: Blttschutz aktivieren und deaktivieren mit Makro!
29.12.2005 20:37:29
Swen
Hallo Rocky,
Ich habe dieses über den Makrorecorder bekommen,
ich frage mich aber gerade wo hier das Passwort steht?

Sub Makro1()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Sub Makro2()
ActiveSheet.Unprotect
End Sub

Gruß
Swen
AW: Blettschutz aktivieren und deaktivieren mit Makro!
30.12.2005 08:48:48
Harald
Hallo Swen,
das Passwort wird beim Makrorecorder nicht mit aufgezeichnet.
Folgende Codes benutzte ich:
'Blattschutz raus ("Passwort")
ActiveSheet.Unprotect ("Passwort")
'Blattschutz rein ("Passwort")
ActiveSheet.Protect ("Passwort")
'Benutzer darf ungeschützte Zellen auswählen
ActiveSheet.EnableSelection = xlUnlockedCells
'Benutzer darf keine Zellen auswählen
ActiveSheet.EnableSelection = xlNoSelection
Gruß, Harald G. aus Köln
Anzeige
AW: Blettschutz aktivieren und deaktivieren mit Makro!
01.01.2006 10:02:11
Swen
.vielen Dank!
gruß
swen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige