I applied it to the first sheet named "Quote".

In 2003 Excel, I can only right click on the sheet and go to code.
I will copy and paste and make it run

Thanks for your help!

"Mark Ivey" wrote:

Which sheet did you paste the code to?

What needs to be done is when you open the Visual Basic Editor is to double
click on the sheet you need to monitor for this change event.

Then paste the code below into the right hand screen. This code will monitor
to see when cells A1, B1, C1, D1, and E1 have something in them. When all
these cells have some type of data in them, the code will unprotect the
sheet and prompt you with a Messagebox letting you know it has been
unprotected. You can change the A1, B1, etc. references to the cells you
need to monitor. I just used these to get you started.

Mark Ivey


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1").Value < "" And Range("B1").Value < "" And _
Range("C1").Value < "" And Range("D1").Value < "" And _
Range("E1").Value < "" Then


If ActiveSheet.ProtectContents = True Then
Sheets(ActiveSheet.Name).Unprotect
MsgBox "Your worksheet is now unlocked", vbOKOnly
End If

End If

End Sub