expertenaustausch > microsoft.* > microsoft.excel

Herje70 (05.02.2019, 13:48)
Hallo zusammen,

wir haben eine größere Mappe, bei der beim Öffnen ein Schreibschutzpasswort eingegeben werden muss. Ohne PW wird sie nur geschütztgeöffnet.
Diese Mappe wird per Makro gefiltert, Zeilen und Spalten angepasst usw. MitActiveWorkbook.Unprotect ("Passwort") sollte das Passwort aufgehoben werden und die Mappe mit ActiveWorkbook.saveAs...an einem anderen Ort gespeichert.
Wird nun diese Kopie geöffnet, so erscheint wieder die Passwortabfragefür den Schreibschutz.

wie bekomme ich das hin, dass die neue Mappe ohne jeglichen Schutz gespeichert wird?
VG Jens
Claus Busch (05.02.2019, 16:08)
Hallo Jens,

Am Tue, 5 Feb 2019 03:48:14 -0800 (PST) schrieb Herje70:

> wir haben eine größere Mappe, bei der beim Öffnen ein Schreibschutzpasswort eingegeben werden muss. Ohne PW wird sie nur geschützt geöffnet.
> Diese Mappe wird per Makro gefiltert, Zeilen und Spalten angepasst usw. Mit ActiveWorkbook.Unprotect ("Passwort") sollte das Passwort aufgehoben werden und die Mappe mit ActiveWorkbook.saveAs...an einem anderen Ort gespeichert.
> Wird nun diese Kopie geöffnet, so erscheint wieder die Passwortabfrage für den Schreibschutz.


probiere mal:

With ThisWorkbook
.SaveAs .Path & "/Neu.xlsm", Password:="", ReadOnlyRecommended:=False
End With

Mit freundlichen Grüßen
Claus
Herje70 (06.02.2019, 11:44)
Am Dienstag, 5. Februar 2019 15:08:09 UTC+1 schrieb Claus Busch:
[..]
> --
> Windows10
> Office 2016


Hallo Claus,
hiermit funktioniert es...

WriteResPassword:""
Ähnliche Themen