Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vZeilenanzahl As Variant
Dim i As Long
ActiveSheet.Unprotect Password:="xxx"
vZeilenanzahl = InputBox("Wieviel Zeilen?")
If IsNumeric(vZeilenanzahl) Then
For i = 1 To vZeilenanzahl
Debug.Print "zahl"
Rows(ActiveCell.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Next
End If
Cancel = True
ActiveSheet.Protect Password:="xxx"
End Sub