password protection

[MrYemin09]

Hello,
How can create VBA code for password protection for (.xls file).
When excel file ,ask for password box show and enter password and open.
Please help me! Thanks!

[Aflatoon]

If I understand your question correctly, you do not need code for this. Choose Save As from the Office menu, then in the Save dialog, choose Tools-General options and set a password to open the file.

[MrYemin09]

Thanks !
I know this action. I want to know how to write vba code for password protection.

very thanks Aflatoon.

[GTO]

Greetings,

Try:

Sub exa()
Const PWD As String = "YourPasswordHere"

Application.DisplayAlerts = False

ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, _
FileFormat:=xlNormal, _
Password:=PWD

Application.DisplayAlerts = True

End Sub


Hope that helps,

Mark