Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Anzeige
Inhaltsverzeichnis

Blattschutzpasswort auf allen Blättern ändern.

Blattschutzpasswort auf allen Blättern ändern.
16.09.2008 11:13:00
Hannes
Hallo VBA-Gemeinde
Ich habe eine Exceldatei mit mehrern Tabellenblättern. Alle diese Blätter sind mit demselben Blattschutzpasswort versehen. Nun habe ich die Möglichkeit eingebaut, dass User das Passwort ändern können (neues Passwort wird in eine Zelle geschrieben).
Wie kann ich nun auf allen Tabellenblättern das neue Blattschutzpasswort hinterlegen? Überhaupt möglich?
Vielen Dank!
Hannes

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutzpasswort auf allen Blättern ändern.
16.09.2008 11:25:14
serge
Hallo Hannes

Sub Schutz()
' Tastenkombination: Strg+T
Dim AktZelle As Variant
Set AktZelle = ActiveCell
Application.ScreenUpdating = False
For Each WsTabelle In Sheets
WsTabelle.Protect Password:="passwort"
Next WsTabelle
Application.ScreenUpdating = True
Application.Goto Reference:=AktZelle
End Sub



Sub Schutzaus()
' Tastenkombination: Strg+U
Dim AktZelle As Variant
Set AktZelle = ActiveCell
Application.ScreenUpdating = False
For Each WsTabelle In Sheets
WsTabelle.Unprotect Password:="passwort"
Next WsTabelle
Application.ScreenUpdating = True
Application.Goto Reference:=AktZelle
End Sub


Gruss Serge

Anzeige
AW: Blattschutzpasswort auf allen Blättern ändern.
16.09.2008 11:31:00
Mac4
Hallo Hannes,
das neue Passwort steht in A1:

Sub Blattschutz()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Unprotect "altes_passwort"
WS.Protect WS.[A1].Value
Next
End Sub


Marc

AW: Blattschutzpasswort auf allen Blättern ändern.
16.09.2008 11:50:26
Hannes
Super! Vielen Dank für eure Hilfe. Funzt prima!
Gruss
Hannes

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige