Vba- open/close password protected excel file

[KUYJS]

Hi,
How to save an excel file with password to open using vba. I am able to do it with SaveAs but it is prompting to replace the existing file. Is there a way to apply password to open workbook with save function?

 

[yky]

Did you try this:

<code class="lang-vb x-hidden-focus">Application.DisplayAlerts = False 
your saveas code here
Application.DisplayAlerts = True</code>

 

[KUYJS]

Yes i tried this but that's not working

 

[ZVI]

Hi, try this:

Sub SaveWpWithPassword()
  ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, Password:="123"
End Sub

To suppress a warnimg message use Application.DisplayAlerts as it's suggested in post #2

 

[KUYJS]

This is again saveas command that i am already using but saveas is actually replacing the existing file, that i don't want.

 

[ZVI]

Any saving replaces an existing file.
This saves file with a password without warning message appearing.

Sub SaveWbWithPassword()
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, Password:="123"
  Application.DisplayAlerts = True
End Sub

You may replace ActiveWorkbook.Name by something like "C:\Temp\Test.xlsx" if required.

Code to open workbook with a (file) password protection:

Sub OpenWbWithPassword()
  Workbooks.Open Filename:="C:\Temp\Test.xlsx", Password:="123"
End Sub

Please describe the exact problem with those suggested code.