How to make working this code then sheet is protected? Target Cells are not protected (unchecked in properties)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("printR")) Is Nothing Then
Application.EnableEvents = False
Cancel = True
Target.ClearContents
Application.EnableEvents = True
End If
End Sub
you could try including this somewhere in your code
ActiveSheet.Unprotect Password:="123"
then:
Sheets("sheetName").Protect Password:="123"
Hope this helps :)
Collected from the Internet
Please contact [email protected] to delete if infringement.
Comments