Datei ersetzen?-Meldung unterdrücken
07.01.2016 13:49:51
Robin
ich möchte ein Workbook unter gleichem Namen abspeichern und dabei folgende Fehlermeldung unterdrücken und mit "Ja" beantworten:
"Eine Datei mit dem Namen '..xlsm' ist bereits an diesem Speicherort vorhanden. Soll sie ersetzt werden?"
Es geht um eine Schreibgeschützte Mappe, die von einigen Usern gleichzeitig geöffnet ist, wobei die einzige Möglichkeit der Änderung ein Makro ist, welches den Schutz aufhebt, die Datei unter identischem Namen überschreibt und sodann wieder (bis zum Schließen mit ThisWorkbook.Saved=True) Schreibgeschützt ist.
PS: Warum wird der Parameter "Filename" autovervollständigt, und "WriteResPassword" nicht einmal groß geschrieben, beziehungsweise durch STRG+Leer vervollständigt? Muss ich das Ganze in Klammern setzen, oder fehlt evtl. noch ein zugehöriger Parameter?
Liebe Grüße,
Robin
Sub ZelleAendern()
UserForm1.Show
ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite
ThisWorkbook.SaveAs Filename:="pfad\..xlsm", writerespassword:="1"
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
End Sub