Set password to closed workbook

[YasserKhalil]

I have searched but didn't find a way to put an external password on closed workbook. Suppose I have closed workbook named "Sample.xlm" .. and I am opening a workbook named "Test.xlm". Is there a code that enables me to put a password on the Sample.xlsm? I mean external password .. I tried the following but got error (method protect of object workbook failed)

Sub Test()
    Dim wb As Workbook

    Set wb = Workbooks.Open(ThisWorkbook.Path & "\Sample.xlsm")
    wb.Protect Password:="123"
    wb.Close True
End Sub

** I was protecting the Sample workbook with Protect and Share Workbook and I have changed to UnShare. This was the problem of the error that appears.
Now the code is working but when opening the Sample workbook after running the code, I found it unprotected. I expect to get it protected.

Thanks advanced for help
Posted here too

Protect closed workbook with password

I have searched but didn't find a way to put an external password on closed workbook. Suppose I have closed workbook named "Sample.xlm" .. and I am opening a workbook named "Test.xlm". Is there a c...

stackoverflow.com

 

[YasserKhalil]

** It seems I am wrong too at my approach. This would protect the structure of the workbook not to set the external password as the snapshot displays.

 

[YasserKhalil]

Solved using this line

wb.SaveAs Filename:=ThisWorkbook.Path & "\NewSample.xlsm", Password:="123"

But I welcome any other ideas. Such as using API to set the password to the closed workbook without the need to use the SaveAs feature

 

[Jaafar Tribak]

Hi Yasser,

I think there is some commercial softaware that locks folders (not sure about files) but I have never seen code that does that.

What is the problem with opening the workbook and re-saving it with a password for opeining via SaveAs ?

Regards.

 

[YasserKhalil]

No problem at all my friend. I am just curious if there is a solution except for SaveAs approach.