Office: Password-Schutz deaktivieren und aktivieren

Hallo,

habe folgendes Problem: Habe über VBA einige CommandButton programmiert. Diese sollen Bereiche bzw. Zeilen ein- oder ausblenden funzt bestens. Zusätzlich stellen sie den Blattschutz kurz aus und dann wieder an.

Nun möchte ich das dieses Passwort welches im Makro programmiert ist sich auf eine Zelle in excel Bezieht so das ich nur die Zelle ändern muss um das Passwort zu ändern. Habe mehrere Buttons eingebaut mit ähnlichen Funktionen hier mal ein Beispiel:

Private Sub Abwärmeanlage_Click()
Sheets("Hauptübersicht").Unprotect Password:="ergion"

->hier soll die Zelle eingebaut werden bzw. dessen Inhalt übernommen werden???

Rows("45:62").Hidden = False
Sheets("Laufende Kosten").Rows("9:10").Hidden = False
Sheets("Laufende Kosten").Rows("29:30").Hidden = False
Sheets("Laufende Kosten").Rows("49:50").Hidden = False
Sheets("Laufende Kosten").Rows("73:78").Hidden = False
Sheets("Hauptübersicht").Protect Password:="ergion"
End Sub

Ich hoffe ich konnte mein Problem gut beschreiben und bedanke mich im voraus für alle Antworten.

Gruß Tobi

 

esetze :
Sheets("Hauptübersicht").Unprotect Password:="ergion"

durch:
Sheets("Hauptübersicht").Unprotect Password:=Sheets("Hauptübersicht").Range("ZELLE")

Zelle= zb. F16, oder A1 (wichtig ist nur das du sie auserhalb des Zugriffbereiches der User postierst, diesen evtl mit ScrollArea begrenzen
und die farbe auf weiss setzen falls er doch mal zufällig dorthinkommt.

die zelle wo das Passwort drinsteht mit schützen weil sonst wenn es geändert wird wärend das blatt geschützt ist probleme beim aufheben des blattschutzes gibt.

 

Hallo,

funzt bestens. Vielen Dank und Gruß Tobi