Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz automatisch einschalten

Forumthread: Blattschutz automatisch einschalten

Blattschutz automatisch einschalten
03.06.2004 10:21:45
Stefan
Hallo,
wie kann ich den Blattschutz automatisch einschalten. Wenn ich ihn ausschalte und vergesse kann ein anderer Benutzer die Tabelle bearbeiten.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz automatisch einschalten
Kurt
Auch eine Automatik muss irgendwie angestoßen werden. Wenn du dir überlegst,was
ein geeignetes Ereignis sein könnte, hast du auch schon die Lösung.
Kurt
AW: Blattschutz automatisch einschalten
03.06.2004 10:32:19
Andreas
Hallo,
hast du es so schon mal probiert?
Workbook Open (Einstellen)

Private Sub Workbook_Open()
Sheets("Tabellenname").Unprotect "Passwort"
End Sub

'Bei der Öffnung der Datei wird durch ein Passwort der Blattschutz aufgehoben!
Workbook Deactivate

Private Sub Workbook_Deactivate()
Sheets("Tabellenname").Protect "Passwort"
End Sub

'Beim Schließen der Datei wird durch ein Passwort der Blattschutz aktiviert!
MFG Andi
Anzeige
AW: Blattschutz automatisch einschalten
Markus
Hallo Stefan,
per Makro würde das zB mit dem Befehl
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
funktionieren. Statt ActiveSheet kannst du natürlich auch den Namen des zu
schützenden Blattes angeben
Viele Grüße,
Markus
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige