Problem wurde gelöst:

Einfach die Zeile

Sheets(i).Protect userinterfaceonly:=True, Password:="Passwort"

in die Zeile

Sheets(i).Protect userinterfaceonly:=True, Password:="Passwort", AllowFormattingColumns:=True, AllowFormattingRows:=True

abändern.

...zur Antwort