Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
436to440
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
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige