Hi:

The following does not stop the alert message box if
an attempt is made to enter data into a protected cell.
Any advice as to how to stop the alerts would be greatly
appreciated.

Private Sub Worksheet_Activate()
Worksheets("Sheet1").Unprotect
Application.DisplayAlerts = False
Worksheets("Sheet1").Protect
End Sub

Thanks
TK