Unprotect Sht, Run VBA , Protect Sheet

[DctheDC]

I am using the following VBA to copy a row complete with all the Formulas, but my users keep *accidentally* deleting the formulas so I want to protect Col B:K

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      
        
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents


End Sub

I cannot figure out how to Unprotected the Sheet, run the code above to copy the Row, and then Protect the sheet again.

I have been playing with ActiveSheet.Unprotect Password:="123" and then ActiveSheet.Protect Password:="123"but can't get it right


Any ideas?

Thanks

 

[Fluff]

Do you have any other code in that sheet module?

 

[DctheDC]

There is code in another module that runs a macro to 'sort' the sheet in a particular order. I removed this but it did not help.

I created a new excel workbook and entered the code and it worked as expected, so it look like there is something in my original workbook that prevents it from working correctly.

Thanks Fluff for your assistance the code you provided works correctly. Looks like I will have to create the workbook and data from scratch.

Thanks again Fluff