habe ein kleines Problem. Ich habe eine .xlsm-Datei mit Paßwortschutz, die beim Schließen automatisch eine Kopie als .xlsx-Datei erstellt. Problem hierbei ist, daß natürlich auch der Code und das Paßwort mitkopiert wird und sich die Datei dann nicht mehr öffnen läßt. Gibt es eine Möglichkeit, den Code so zu ergänzen, daß beim
Kopiervorgang nur in der .xlsx-Datei der Code und das Paßwort automatisch entfernt werden (Paßwort für Lese-& Schreibschutz) ?
Vielen Dank im Voraus
Dirk
Hier noch mein Code :
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim pfad As String
Dim pfad2 As String
pfad = "W:\Omni_KFZ\"
pfad2 = "W:\omni_kfz\sicherungen\"
With ThisWorkbook
.Save
Application.DisplayAlerts = False
.SaveCopyAs pfad & "Fahrzeuge_Neuwagen_Kopie.xlsm"
.SaveCopyAs pfad2 & "Fahrzeuge_Neuwagen_Kopie" & Format(Now, "YYYYMMDD hhmm") & ".xlsm"
Application.DisplayAlerts = True
End With
End Sub