offset command protected
Maybe you can just add a couple of lines:
Private Sub Worksheet_BeforeDoubleClick(...
me.unprotect password:="whatever"
'your existing code
me.protect password:="whatever"
end sub
cjupiter wrote:
Hi
I am currently using a macro that allows me to insert a row preserving
formulas by a doubleclick.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True 'Eliminate Edit status due to doubleclick
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstant s).ClearContents
On Error GoTo 0
End Sub
Reference: David McRitchie
My problem is when i protect my worksheet, this macro fails to operate when
it gets to the "Target.EntireRow.Copy Target.Offset(1).EntireRow" part.
When protecting i enabled all exceptions and still doesnt work. Is there a
way around this. Sorry, I am quite new at all this. Thanks
--
Dave Peterson
|