L
Legacy 98055
Guest
Good Morning Friends!
Can someone take a look at the following code and tell me how I can keep the protected sheet warning from popping up?
The code in the event functions as it should and the values change as they should but the protection warning pops up after the event exits.
Not a huge deal, but would like to know how to get rid of this msgbox. Thanks!
Tom
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim CurrentCategory As String
Dim RowCntr As Long
Dim HoldSelectionRow As Long
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.EnableEvents = False
'Code Here
Application.EnableEvents = True
ActiveSheet.Protect
End Sub
This message was edited by TsTom on 2002-04-02 01:46
This message was edited by TsTom on 2002-04-02 01:51
This message was edited by TsTom on 2002-04-02 01:53
Can someone take a look at the following code and tell me how I can keep the protected sheet warning from popping up?
The code in the event functions as it should and the values change as they should but the protection warning pops up after the event exits.
Not a huge deal, but would like to know how to get rid of this msgbox. Thanks!
Tom
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim CurrentCategory As String
Dim RowCntr As Long
Dim HoldSelectionRow As Long
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.EnableEvents = False
'Code Here
Application.EnableEvents = True
ActiveSheet.Protect
End Sub
This message was edited by TsTom on 2002-04-02 01:46
This message was edited by TsTom on 2002-04-02 01:51
This message was edited by TsTom on 2002-04-02 01:53