Office: makro sortierung trotz blattschutz

hallo

ich habe ein problem mit der sortierung meiner tabellenblätter (ab blatt2 und folgende) durch ein makro, wenn ich einen blattschutz verwende.

die sortierung an sich funktioniert einwandfrei,aber sobald der blattschutz hinzu kommt tut sich nix mehr...

das makro "sortierung" wird entweder beim öffnen der arbeitsmappe mittels "workbook_open" oder durch klicken auf eine "commandbutton" gestartet.

habe schon mit

ActiveSheet.Unprotect Password:="meinpasswort"
und
ActiveSheet.Protect Password:="meinpasswort", DrawingObjects:=True, Contents:=True, Scenarios:=True

rumgespielt, aber irgenwie klappts nicht...


hier der betreffende code:


Sub sortieren()

For intI = 2 To 16
With Worksheets(intI)
.Range("B6:U35").Sort Key1:=.Range("B6"), Order1:=xlAscending, Key2:=.Range("C6") _
, Order2:=xlAscending, Key3:=.Range("D6"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

End With
Next

End Sub

:)

 

Moin, datec,

den Parameter UserInterfaceOnly:=True nutzen, um Makros ausführen zu können - trotz Blattschutz:

Code:

 

ich danke dir für deine mühe mit mir...

und jetzt wieder für idioten:
was?
und wohin mit dem ganzen? =(

 

Moin, Datec,

da die Eigenschaft für UserInterfaceOnly nicht dauerhaft gespeichert werden kann, muss sie beim Öffnen der Mappe gesetzt werden, Dafür gibt es in DieseArbeitsmappe die Prozedur Workbook_Open, die zumindest den Aufruf der Prozedur enthalten sollte, Die Prozedur selbst könnte entweder in diesem Ereignis oder in einem Standardmodul platziert werden...

 

ok. also ich habe das jetzt so verstanden, dass ich deinen code in ein neues modul kopiere, und mittels "dieseArbeitsmappe" über "workbook_open" und "call ProtectWS" ausführe, ja?

gut, hab ich gemacht, jetzt wird mir aber meine code zum sortieren vom debugger als fehlerhaft angezeigt. hab schon bisschen rumexperimentiert, aber ich bekomm es nicht zum laufen.

hier der code, es sollen die tabellenblätter 2-16 sortiert werden
Code:

 

hiho

Code:

deinen Sortiercode habe ich mal nicht verändert.

 

Moin, Datec,

das Ereignis Workbook_Open wird nur beim Öffnen einer Arbeitsmappe abgearbeitet - hast Du die Mappe einmal erneut nach dem Speichern geöffnet oder den Code per F5 angestoßen und dann Deinen Code laufen lassen?

 

hi

mit dem code von chris-kaiser funktionierts!
jetzt habe ich nur noch ein problem: ich kann die sortierung nicht mehr manuell mit einem command-button und "call sortieren" starten.

"laufzeitfehler 1004
die sort methode des range-objekts konnte nicht ausgeführt werden"

 

HI

ich vermute mal, da es ja ohne CMD geht
das der Commandbutton die Eigenschaft
TakeFocusOnClick
auf True hat
dies in den Eigenschaften auf FALSE ändern

 

jawohl, das war es!

vielen dank euch allen!