Blattschutz

[cysu11]

Hi,

bei mir funktioniert der Teil ohne Probleme:

Sub test()
Dim wstabelle As Worksheet
For Each wstabelle In Sheets
If wstabelle.Name <> "Rechnungssumme" Then
wstabelle.Protect
End If
Next wstabelle
End Sub

Lade doch mal deine Beispieldatei hoch, dann können wir gucken woran es hackt...

LG, Alexandra

[MisterBurns]

Bringt bei If ....... einen Fehler - Laufzeitfehler 424 - Objekt erforderlich!

Das wundert mich nicht, du hast schließlich meinen Code nicht richtig kopiert.

[Ubi5]

Hallo Alexandra,

es funktioniert einwandfrei, habe  "protect" auf "unprotect" berichtigt.

Recht herzlichen Dank!

Lg Ubi5