VBA dobbeltklik virker ikke online

Jeg bruger følgende vba kode i mit excel ark.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    ActiveSheet.Protect Password:="KODE", UserInterfaceOnly:=True
    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

Men hvis det tilgås via webbrowser, så vil den ikke indsætte ekstra række. Hvordan går jeg den til det?