SaveAs Readonly

[KoenAlberts]

Hallo allemaal,

Ik wil graag een macro maken die mijn bestand opslaat als alleen-lezen

ActiveWorkbook.SaveAs Filename:=strPath & "\planning\" & OpslaanAls & ".xlsm", vbReadOnly

Dit doet hij dus niet.

ActiveWorkbook.SaveAs Filename:=strPath & "\planning\" & OpslaanAls & ".xlsm", _
ReadOnlyRecommended:=True

Dit ook niet.

Hoe lukt dit wel?

Bedankt alvast!

[Marko_J]

ActiveWorkbook.SaveAs Filename:="C:\test.xls", ReadOnlyRecommended:=True

Werkt bij mij prima, dus ik vermoed dat de opbouw van je locatie en bestandsnaam niet helemaal goed gaat. Wat zit er in strPath en OpslaanAls?