Add password to open excel file via VBA

[Harshil Mehta]

I am looking for a code which adds PASSWORD TO OPEN FILE in the current workbook before closing it.

This will help if the user has removed the protection by applying the password automatically before closing it.

 

[kennypete]

Create BeforeClose code on the Workbook object, i.e. right click ThisWorkbook, View Code

Then add the code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Password:="abcd"
    Application.DisplayAlerts = True
End Sub

And replace the "abcd" with whatever password you are wanting the Workbook to always have.

 

[Harshil Mehta]

Create BeforeClose code on the Workbook object, i.e. right click ThisWorkbook, View Code
View attachment 36476
Then add the code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Password:="abcd"
    Application.DisplayAlerts = True
End Sub

And replace the "abcd" with whatever password you are wanting the Workbook to always have.

Can this be saved in the same path?

 

[kennypete]

Can this be saved in the same path?

Sorry, can what be saved in the same path?

 

[Harshil Mehta]

Sorry, can what be saved in the same path?

I am looking for a code which saves the file with same name & path along with password to open

Basically, replaces the files without any prompt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim a110w As Variant
Dim path As String


a110w = "123" 'P
path = Application.ThisWorkbook.path



Application.DisplayAlerts = False

With ThisWorkbook
   .SaveAs Filename:=path, FileFormat:=50, Password:=a110w
   
End With
     
      
Application.DisplayAlerts = True

      

End Sub

 

[kennypete]

I am looking for a code which saves the file with same name & path along with password to open

Basically, replaces the files without any prompt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim a110w As Variant
Dim path As String


a110w = "123" 'P
path = Application.ThisWorkbook.path



Application.DisplayAlerts = False

With ThisWorkbook
   .SaveAs Filename:=path, FileFormat:=50, Password:=a110w
 
End With
   
    
Application.DisplayAlerts = True

    

End Sub

Did you test it? The code I provided will save to the same path (where the file is already) when you close the file, so it looks like your modified code should too?