Workbook.SaveAs einer schreibgeschüzten Datei

ich habe mein Problem der Automatisierung mit Hilfe der Recherche fast gelöst. Ein letzter Punk ist leider offen:
Der Befehl ActiveWorkbook.SaveAs soll eine Datei die Schreibgeschützt ist überschreiben. Ich dachte dadurch, dass man das Argument WriteResPassword:="test" mit dem selben Kennwort wie bei der zu überschreibenden Datei angibt, hebt Excel den Schreibschutz auf. Dem ist aber leider nicht so.
Kann ich in der Zeile vor dem saveAs den Schreibschutz per VBA aufheben um die Datei dann wieder mit Schreibschutz zu speichern???

Bitte helft mir, dann kann ich nach Hause!

Gruß,
Bernhard