Slet linie ved hjælp at inputbox VBA

Lav beskyttelse med mulighed for at selecte beskyttede celler
indsæt denne kode i aktuel ark's kodemodul (højreklik på arkfane)

Koden sletter række hvis der dobbeltklikkes i den

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
Target.EntireRow.Delete
ActiveSheet.Protect
ActiveCell.Offset(1, 0).Select
End Sub

Tak for dit svar!

Det var ikke helt den løsning jeg søgte, da jeg gerne ville slette linier via
en knap på arket.

Jeg har selv søgt lidt videre på nettet og fundet denne løsning (som fungerer):

Public Sub SletLinie()
    Dim firstrow As Integer
    ActiveSheet.Unprotect
    firstrow = InputBox("Hvilken række vil du slette")
    Rows(firstrow & ":" & firstrow).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Protect
End Sub

Men din løsning er da bestemt også en mulighed. Send et svar så får du pointene

det er ok tag dem selv :-)