Hallo zusammen,
aufgrund einer Umstellung von Office 2016 auf Office365 (64bit) schlage ich mich gerade mit der Anpassung eines Macros herum, dass sich renitent meinen Bemühungen widersetzt. Es funktioniert reibungslos unter 2016, unter 365 leider nicht mehr.
Eigentlich soll gar nicht viel gemacht werden:
- vorgegebene Datei aus einem SharePoint-Verzeichnis öffnen
- Da SharePoint-Dateien bei uns in der Firma immer Read-Only geöffnet werden, Schreibschutz aufheben
- In eine Zelle einen Wert eintragen.
Das sieht dann so aus
...
Set wb = Workbooks.Open(dca_path)
ActiveWorkbook.LockServerFile 'SharePoint-Schreibschutz aufheben
wb.Sheets("Tabelle1").Range("I3").Value = next_id
...
Alles nicht schwer, aber LockServerFile führt zur Fehlermeldung:
Run-time error 1004: Method 'LockServer' of object'_Workbook' failed
Hat jemand eine Idee wie man das hinbekommt?
Vielen Dank,
Volker