Protect Worksheets

Jeg har beskyttet mit regneark med følgende kommando:

ActiveWorkbook.Worksheets(i).Protect Password:="kkk", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowInsertingRows:=True, AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowDeletingRows:=True

Det virker kun delvist. Jeg kan ikke få lov at slette rækker i regnearket og "Formater celler" er nogle gange spærret.
Alle celler i regnearket er markeret som "ikke låst".
Er der nogen der kan hjælpe mig?

Kåre