Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blätter schützen

Blätter schützen
17.12.2003 08:37:31
Chrsitian
Hallo,

ich habe eine Datei mit ca. 60 TAbellenblättern. Ich möchte diese nun schützen. Kann mir jemand den Quellcode dafür sagen?

Gruß christian.

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

Betreff
Datum
Anwender
Anzeige
AW: Blätter schützen
17.12.2003 08:39:06
ChrisL
Hi Christian

Option Explicit


Sub Schützen()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Protect
Next WS
End Sub


Gruss
Chris
AW: Blätter schützen
17.12.2003 11:42:35
Christian
Hallo Chris,

vielen Dank für den schnellen Tip. Zwei Fragen noch:
Wie kann ich ein indiv. Passwort integrieren?
Wie kann ich den Schutz aufheben?

Freue mich auf Deine Antwort. Danke! Christian.
AW: Blätter schützen
17.12.2003 11:51:17
ChrisL
Hi Christian

Option Explicit


Sub Schützen()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Protect Password:="test"
Next WS
End Sub



Sub EntSchützen()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Unprotect Password:="test"
Next WS
End Sub


Gruss
Chris
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige