Password protecting excel with macros

[Z A Mustafa]

Hi,

I am trying to protect one of my workbooks having 7-8 sheets in it.

When I password protect the workbook and open it again, the macros become disfunctional and my cells with VLOOKUP too dont work.

How do I protect the workbook, but also be able to have functional macros and Vlookup.

Your help would be greatly appreciated.

Regards,

 

[Michael M]

If your macros are in the worksheets, like sheetchange or selectionchange events, you will need to incorporate a worksheet.unprotect / reprotect into those macros
So the code will unprotect the sheet / do the processes / reprotect the sheet

 

[Z A Mustafa]

Thanks for this Michael.

If it's not too much to ask, will you be able to help me with the code for the same?

P.S. - I am not too familiar with codes, so at times these codes go above my head.

Thanks & Regards,
Mustafa

 

[Michael M]

Ok, What codes do you have so far ?
AND
where do the codes reside ??

 

[Z A Mustafa]

The codes are VB codes, that run simple tasks like going to next sheet, back to previous sheet and print command.

The codes reside on the VBA Project (hope this is correct) of the same workbook.

Regards,
Mustafa

 

[Michael M]

OK, post one of them and we'll modify it for you.....then you will be able to modify the rest yourself.

 

[Z A Mustafa]

One of the codes is as follows:

I tried password protecting the workbook previously through the FILE menu and hence that error that popped up as mentioned above.

----------Example Macro code---------
' Todays date entered when clicked
Sub ProjectInfoQuoteDate()
ActiveSheet.Range("C5").Value = Date 'Get today's date
End Sub

Sub Page1_Click_Next()
' Page1_Click_Next Macro

Range("L19").Select
Sheets("Racks").Select
End Sub

-----------------------------
Thanks,
Mustafa

 

[Michael M]

Try

Sub ProjectInfoQuoteDate()
With ActiveSheet
.Unprotect Password:="password"
.Range("C5").Value = Date 'Get today's date
.Protect Password:="password"
End With
End Sub

 

[diddi]

it is worth noting that excel's password security is not especially rigorous and easily bypassed, so good for stopping general fiddling, but not for commercial secrecy

 

[Michael M]