in einer sehr umfangreichen Excel habe ich das folgende Makro
Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireRow.AutoFit
Target.EntireColumn.AutoFit '/Optional/
End Sub
Hierdurch wird die Zelle dynamisch an die Zeichenlänge des Inhaltes der Zelle angepasst. Dieser funktioniert auch aber sobald ein Blattschutz auf der Arbeitsmappe liegt gibt es einen Laufzeitfehler 1004 "Die AutoFit-Methode des Range-Objektes konnte nicht ausgeführt werden.
Wie bekomme ich nun hin, dass das Macro trotz Schutz funktioniert.
ich habe es sowohl mit als auch ohne probiert. Daran kann es nicht liegen. Ich vermute das das Makro erweitert werden muss damit vor dem eigentlichen Anpassen der Seitenschutz aufgehoben wird und danach wieder gesetzt wird. Aber da stosse ich gerade an meine Grenzen und hoffe jemand kann mir helfen.
Hierdurch wird die Zelle dynamisch an die Zeichenlänge des
Inhaltes der Zelle angepasst. Dieser funktioniert auch aber
sobald ein Blattschutz auf der Arbeitsmappe liegt gibt es
einen Laufzeitfehler 1004 "Die AutoFit-Methode des
Range-Objektes konnte nicht ausgeführt werden.
Hallo Jule,
die Fehlermeldung kann ich nicht nachvollziehen.
Vielleicht hilft dir dies trotzdem weiter:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect password:=„abc“
Target.EntireRow.AutoFit
Target.EntireColumn.AutoFit '/Optional/
ActiveSheet.Protect password:=„abc“
End Sub