Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeilenanzahl As Integer, i As Integer
On Error Resume Next
zeilenanzahl = InputBox("Wieviel Zeilen?")
If zeilenanzahl = "" Then Exit Sub
ActiveSheet.Unprotect Password:="xxx"
For i = 1 To zeilenanzahl
Rows(ActiveCell.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Next
Cancel = True
ActiveSheet.Protect Password:="xxx"
End Sub