Makro funktioniert bei Blattschutz nicht mehr

Computer: Software & Programmierung Office Software
#1

Guten Tag,

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.

Vielen Dank für Eure Infos

#2

Hallo Jule00,
nur eine Vermutung:
als du den Blattschutz aktiviert hast, hast du „Zeilen formatieren“ aktiviert?

Gruß
Volkstiger

#3

Hallo Volkstiger,

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.

Gruß

#4

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

Gruß
Reinhard

#5

Hallo Reinhard,

es funktioniert. Vielen Dank das hilft mir sehr.

Schönen Tag noch