That didn't work. This is a workbook with several tabs. Each sheet in the
workbook is password protected. The guy who opens this workbook has to put a
requisition # and the date that he needs the order on the req. He always
forgets to enter into these fields. I want to make this idiot proof for him
so that when he opens the workbook and goes to the worksheet that needs this
information, the pop-up box will tell him that he needs to put this
information in. When I added the code to that particular worksheet, a box
came up telling me that there were macros. I don't have any macros in the
workbook and don't understand why this box comes up.

Hope I explained this correctly.

Thanks

"Luke M" wrote:

This needs to go on the ThisWorkbook sheet. Also of caution, does the
workbook only have one sheet? If not, you might want to include the line
"Sheets("SheetIwant").select" near the beginning.


Private Sub Workbook_Open()
msgbox "PUT IN REQ # AND DATE NEEDED NOW"
ActiveSheet.Unprotect
Range("T10") = Now()
ActiveSheet.Protect

ActiveSheet.Unprotect Password:="password"
Range("T10") = Now()
ActiveSheet.Protect Password:="password"
End sub


--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"patsy" wrote:

I need to know how to create a pop-up message when a worksheet is opened. I
need it to say "PUT IN REQ # AND DATE NEEDED NOW". I already have the
following VBA Code to add the current date:

ActiveSheet.Unprotect
Range("T10") = Now()
ActiveSheet.Protect

ActiveSheet.Unprotect Password:="password"
Range("T10") = Now()
ActiveSheet.Protect Password:="password"

What code and where does it go to add the pop-up box?

I would appreciate any help possible.

Thanks.