Blattschutz in Userform
12.09.2003 14:05:44
Peter
Ich habe mir eine kleine Userform zusammen gebaut, die bis auf eine Kleinigkeit auch funktioniert.
Wird die Userform aufgerufen wird der Blattschutz aufgehoben,
und die Abfrage nach den Zeilen erscheint. Wird jetzt auf
Abbrechen geklickt, wird der Blattschutz nicht wieder
aktiviert.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Range("A6").Select
Dim Zeile As Long, Spalte As Integer
Dim InsertRows As Long, i As Long
Zeile = Selection.Row + 1
Do
InsertRows = InputBox("Wieviele Zeilen ?")
'soweit wie ich es nachvollziehen kann (?!) müsste, wenn hier abgebrochen
'wird sich der Blattschutz wieder aktivieren.
If InsertRows > 50 Then MsgBox "das sind doch wohl ein bischen zu viele ..."
Loop Until InsertRows <= 50
For i = 1 To InsertRows Step 1
ActiveWindow.DisplayHeadings = False
Rows("5:7").Select
Range("A6").Select
Selection.EntireRow.Hidden = False
Selection.Offset(i, 0).EntireRow.Insert Shift:=xlDown
Selection.EntireRow.Copy Selection.Offset(i, 0).EntireRow
For Spalte = 1 To 10
If Not Cells(Zeile - 1 + i, Spalte).HasFormula Then Cells(Zeile - 1 + i, Spalte) = ""
Next Spalte
Next i
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Range("A7").Select
Unload Me
ActiveWindow.DisplayHeadings = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Gruß Peter