Refference Poem by Alvinzor Flores

[Back]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Answ As String
Application.ScreenUpdating = False
Answ = MsgBox('This range will now be locked.', vbOKCancel, 'Confirm Change')
If Answ <> vbOK Then
Application.EnableEvents = False
Target.ClearContents 'clear contents if cancel is pressed
Application.EnableEvents = True
Exit Sub
End If
ActiveSheet.Unprotect '1'
Target.Locked = True
ActiveSheet.Protect Password: ='1', DrawingObjects: =True, Contents: =True, Scenarios: =True
Application.ScreenUpdating = True
End Sub

[Back]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Answ As String
Application.ScreenUpdating = False
Answ = MsgBox('This range will now be locked.', vbOKCancel, 'Confirm Change')
If Answ <> vbOK Then
Application.EnableEvents = False
Target.ClearContents 'clear contents if cancel is pressed
Application.EnableEvents = True
Exit Sub
End If
ActiveSheet.Unprotect '1'
Target.Locked = True
ActiveSheet.Protect Password: ='1', DrawingObjects: =True, Contents: =True, Scenarios: =True
Application.ScreenUpdating = True
End Sub


[Back]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Answ As String
Application.ScreenUpdating = False
Answ = MsgBox('This range will now be locked.', vbOKCancel, 'Confirm Change')
If Answ <> vbOK Then
Application.EnableEvents = False
Target.ClearContents 'clear contents if cancel is pressed
Application.EnableEvents = True
Exit Sub
End If
ActiveSheet.Unprotect '1'
Target.Locked = True
ActiveSheet.Protect Password: ='1', DrawingObjects: =True, Contents: =True, Scenarios: =True
Application.ScreenUpdating = True
End Sub