SaveAs Macro

**sumitomo** · 09-10-2010, 12:06 PM

Hi,

I'm trying to make a Save As macro that has all of the following:
* Adds "P-" to the beginning original file name
* Adds a password to open the file

Please help!! Thank you in advance!

**Leith Ross** · 09-10-2010, 02:08 PM

Hello sumitomo,

This macro will save the ActiveWorkbook as the original name prefixed with "P-" and adds a password. Change the password in the macro to what you want to use.

Sub SaveWorkbookAs()

  Dim Pwd As String
  Dim WkbName As String
  
    Pwd = "password"
    WkbName = "P-" & ThisWorkbook.Name
  
    ThisWorkbook.SaveAs Filename:=WkbName, Password:=Pwd
    
End Sub