Macro not saving my file with a password

[SandsB]

I have a macro that does all kinds of magic. It's been working fine for years but I need to change it so the file it saves is password protected. I've tried a few things but no dice. Here's the code as is - what can I change to make it save with a password?

ActiveWorkbook.SaveAs Filename:="R:\MyFolder\MyFile.xlsx", CreateBackup:=False
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

 

[sykes]

Hi
You normally set the password whilst working in the workbook.
"Review" tab / "Protect Workbook."

 

[SandsB]

Hi
You normally set the password whilst working in the workbook.
"Review" tab / "Protect Workbook."

Hi
You normally set the password whilst working in the workbook.
"Review" tab / "Protect Workbook."

I can save a file with a password manually when I'm in the file. But - My macro is used by 2 or 3 other people to open a file, manipulate it, then save a copy in a folder for several people to use. The original is file is not saved by the macro and we don't want everybody in the office accessing it - the macro only makes changes and then saves a COPY for 35 people to read. People keep opening that file in edit mode and accidentally making changes. I need the macro to save that copy of the file with a password. I can open that copy and manually save it with a password but that's the only thing I
'm trying to avoid.