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

Blattschutz

Blattschutz
07.11.2002 18:35:02
Andreas R.
Hallo

Ich möchte gerne wissen ob es möglich ist in einer Datei mit 12 Tabellen nur ein Passwort einzugeben. Es ist nervig bei jeder Tabelle die ich ändern möchte das Passwort vom Blattschutz einzutippen.
Kann mir da jemand weiter helfen?

Gruß
Andreas R.

P.S. Arbeitsmappenschutz habe ich ausprobiert. Funktioniert aber irgendwie nicht.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Blattschutz
07.11.2002 18:51:20
Hajo_Zi
Hallo Andreas

Gruß Hajo

Re: Blattschutz
07.11.2002 18:56:11
Martin
Hallo Andreas,
probiers mal damit, hier heißt das Passwort "super"


Sub Passwort_auf_alle_Blätter_setzen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, Password:="super"
Next i
End Sub

Sub Passwort_auf_alle_Blätter_löschen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=False, _
Contents:=False, _
Scenarios:=False, Password:="super"
Next i
End Sub

Gruß Martin

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige