ich benötige Hilfe bei folgendem Problem:
Ich möchte eine Excel-Datei beim Schließen automatisch an einen zweiten Ort speichern.
Die Originaldatei hat die Endung .xlsm. Die Kopie sollte als .xls- oder .xlsx-Datei gespeichert werden und mit jeweils einem Kennwort zum Öffnen sowie einem zum Bearbeiten der Datei versehen werden.
Bisher habe ich dazu folgendes Makro erstellt:
Option Explicit
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "R:\Test\" & ThisWorkbook.Name & ".xls"
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Das Speichern an dem zweite Ort beim Schließen der Originaldatei funktioniert auch. Allerdings wird meine Datei dann als Dateiname.xlsm.xls gespeichert, mit der Folge, dass beim Öffnen dieser Datei ein Hinweis erscheint, dass der Dateiname und die Dateiendung nicht zusammen passen.Darüber hinaus fehlt mir eine Idee, wie das mit den beiden Kennwörtern funktionieren könnte.
Hätte jemand eine Idee?
Vielen Dank im Voraus,
Sascha