Encrypt Password In VBA

[jstevens]

Is it possible to encrypt a password in Excel 2003 VBA? In the example below, the word "password" would be encrypted.

Example:

Code: Select all

Global Const pwProtect = "password"

ThisWorkBook.Sheets("MySheet").Protect Password:=pwProtect

Thanks,
John

[HansV]

You can't encrypt the password itself, but you can lock the VBA project for viewing:
- Activate the Visual Basic Editor (if necessary).
- Select Tools | VBAProject Properties... (the name VBAProject might be different, if you have changed it).
- Activate the Protection tab.
- Tick the check box "Lock project for viewing".
- Enter a password in both boxes.
- Click OK.
- Save the workbook.

To see the effect, quit and restart Excel. When you open the workbook and want to view the VBA code, you'll have to provide the password.

[jstevens]

Hans,

Thank you for the suggestion.

Regards,
John