Office: Autofit für Zeilenhöhe in VBA

Moin moin,

ich habe eine Autofit Funktion mit einem Makro aufgenommen und im Worksheet eingebunden, hier der Code:

cells.Select
Selection.Rows.autofit
Range("I1").Select

ActiveSheet.protect "lean"
ActiveWorkbook.protect "lean"
End Sub


Ohne den Blattschutz (ActiveSheet.protect "lean"...) funktioniert es einwandfrei,
mit Blattschutz (ist zwingend notwendig) leider nicht, obwohl er erst nach der Autofit Funktion gesetzt wird.
Ich habe es sogar schon mit einer Zeitverzögerung zwischen Autofit und Blattschutz probiert,
leider ohne Erfolg.

Hat jemand eine Idee?

 

Hi,

stelle den Blattschutz so ein, dass Zeilen formatiert werden dürfen.

Bis später,
Karin