Erweiterung Makro
Delf
Ich möchte gern in folgendem Makro eingebaut haben, dass trotz des Blattschutzes ein Bearbeiten des Diagramms möglich ist. Wie und wo muss ich welchen Befehl hinzufügen? Danke für die Hilfe im Voraus!
Sub Schaltfläche()
ActiveSheet.Unprotect "Passwort"
Rows("52:122").EntireRow.Hidden = False
Range("H52:M122").Sort Key1:=Range("L52")
Rows(52 + Application.WorksheetFunction.Count(Range("M52:M122")) & ":" & 122).EntireRow. _
Hidden = True
ActiveSheet.Protect "Passwort"
End Sub
Anzeige