VBA to password protect excel file clear all its contents and returns a blank file (that is password protected)

[reubenjacobc]

Hi Everyone,

I am working to password protect all the excel files in a folder based on the file path and password entered in an excel sheet. After I run the code, the files in the folder are encrypted, but they are all blank and all the previous contents have been cleared.

Can anyone tell me what I am doing wrong?? Below is the code:
Set wslist = ThisWorkbook.Worksheets("Home_Page")

With wslist

For i = first_row To last_row - 1

'Worksheets("Processing File").Cells(i, 4) = Worksheets("Home_Page").Cells(i, 5).Value

file_name = Worksheets("Home_Page").Cells(i, 5).Value
temp_password = Worksheets("Home_Page").Cells(i, 6).Value

'ActiveWorkbook.SaveCopyAs filename:=file_name, FileFormat:=xlOpenXMLWorkbook
Set masterWB = Workbooks.Add
masterWB.SaveAs filename:=file_name, FileFormat:=xlOpenXMLWorkbook, password:=temp_password

masterWB.Close
Set WB = Nothing
Next i
End With

Thank you so much for your help!

PS: I am pretty new to VBA

 

[RoryA]

Workbooks.Add creates a new blank workbook, and that is what you are saving. It seems you just need to open existing files, add a password and save them, in which case it would be more like this (air code):

Set wslist = ThisWorkbook.Worksheets("Home_Page")

With wslist

For i = first_row To last_row - 1

'Worksheets("Processing File").Cells(i, 4) = Worksheets("Home_Page").Cells(i, 5).Value

file_name = Worksheets("Home_Page").Cells(i, 5).Value
temp_password = Worksheets("Home_Page").Cells(i, 6).Value

Set masterWB = Workbooks.Open(file_name)
masterWB.Password = temp_password
masterWB.Close savechanges:=true

Next i
End With

 

[RoryA]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:

Why does my VBA code clear contents when encrypting Excel files in a folder with passwords?

VBA to password protect Excel files in folder does job of encrypting with a password, but clears all the contents in the excel file being encrypted I am working to password protect all the excel fi...

stackoverflow.com

There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.