Schreibschutz Passwort

Hallo Excel-Profis !

Ich hab ein Blatt Schreibgeschütz!
Und das Passwort jetzt vergessen !!!
Gibt es eine Möglichkeit diesen Schutz aufzuheben
Ohne die Formeln alle noch mal zu machen ??
Hat mich eine menge Zeit gekostet.

Vielen Dank für eure Hilfe

Mfg
Der Vergesser

Hi,
schick die Datei mal rüber:
[email protected]

Gruß.Timo

japp…
zeichne Dir ein Makro auf in dem Du ein Sheet gerade schützt.
dann gehst Du in das andere - geschützte Sheet und wendest dieses Makro an. Das gesetzte Passwort wird überschrieben und Du kannst es mit diesem Passwort wieder entsperren.

Hat zumindest bei meiner Excelversion schon geklappt ^^

… Oo - das zum Thema Schutz, mal wieder was gelernt.

*Gruß
Hooky

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

… Oo - das zum Thema Schutz, mal wieder was gelernt.

dito :wink:
so dachte ich auch…
Aber wenn es Dir wirklich wichtig ist gibt es noch ne andere Möglichkeit…
Mach Dir eine vba-Funktion, die Dir den Inhalt aus Zellen aus einem ausgeblendeten Blatt holt. Der Blattname sollte nur im Makro stehen also am Ende ein
=meinefunktion(„A1“)
verweist letztlich auf
=geheimesblatt!A1
Und dieses Blatt wird dann mit
Sub VeryHiddenSheet()
Sheets(„geheimesblatt“).Visible = xlVeryHidden
End Sub
so ausgeblendet, dass dann der Einblendemechanismus das Sheet nimmer anzeigt.
Am Ende VBA Code mit Passwort sichern und man tut sich beim knacken schon wesentlich schwerer…

*Gruß

thx :wink:

Greetz
Munich

Hallo Munich,

Und dieses Blatt wird dann mit
Sub VeryHiddenSheet()
Sheets(„geheimesblatt“).Visible = xlVeryHidden
End Sub
so ausgeblendet, dass dann der Einblendemechanismus das Sheet
nimmer anzeigt.

bisher setzte ich xlVeryHidden auch immer mit VBA. Aber geht auch ohne, gestern per Zufall gemerkt.
Die Eigenschaften des Blatts einblenden und Visible auf 2-xlSheeVeryHidden setzen.

Gruß
Reinhard