Hallo zusammen
Ich versuche an einem Code zu basteln. Der Code muss das geschützten Blatt mit Passwort entsperren
die Aktion ausführen und nach wieder sperren.
Es scheint zu funktionieren, aber jedoch nach dem Ausführen kommt folgende Fehlermeldung:
Laufzeitfehler '1004'
Kann mir jemand helfen, wie ich die Fehlermeldung loswerde?
Hier ist mein Code:
Private Sub CommandButton1_Click()
Sheets("Tabelle2").Unprotect Password:="1234"
Range("D" & Rows.Count).End(xlUp).Select
ActiveCell.EntireRow.Insert
Sheets("Tabelle2").Protect Password:="1234"
End Sub
|