Office: Filter / Sortierung ausschalten

Hallo,

gibt es eine Möglichkeit die Sortierung per VBA auszuschalten?(Die Pfeile in der 1. Zeile) Am besten beim Ereignis on Open.
(Excel 2000)

Kann ich verhindern, daß ein user beim öffnen der Tabelle mit der üblichen Abfrage: Makro..... deaktivieren beim Öffnen dies unterläuft?


Mfg

Turbo

:)

 

Moin, Turbo,

wenn Du die Symbole auf der Leiste Standard meinst - können kann man. Dann sollte man aber auch das Menü DATEN/SORTIEREN deativieren.

Zum zweiten: Beim Schließen der Mappe ein Blatt mit dem Text "Nur mit aktivierten Makros zu öffnen" einblenden und alle anderen Blätter per VBA auf den Zustand VeryHidden setzen. Beim Ausführen des Startmakros alle anderen Blätter wieder einblenden und das Startblatt ausblenden. Bitte dabei das VBA-Projekt schützen und die Möglichkeit des Abbruchs beim Speichern ausschalten.

 

Hallo,

vielen Dank für die Antwort.

ich habe mich wohl etwas unverständlich ausgedrückt.

Der Anwender soll filtern können- aber der Zustand beim öffnen soll ungefiltert sein.


Den Tipp zu 2 Probiere ich gleich...


Danke Turbo

 

Moin,Turbo,

dann muss es doch aber irgendein Kriterium geben, was die Sortierung in den "Urzustand" zurücksetzt - dann müsste nach dem bei der Öffnung sortiert werden.

Zum anderen Problem: siehe dazu auch als Ansatz nur mit aktivierten Makros.

 

Hallo,

ich habe jetzt eine Möglichkeit gefunden:
On Error goto Fehler
ActiveSheet.ShowAllData
Exit Sub

Achtung wenn schon alle Daten gezeigt werden könnte ein Fehler ausgelöst werden.

Fehrer:
n=Err
Debug.print Err
Debug.print Error(n)
If n=1004 then ' wahrscheinlich kein filter gesetzt
exit sub
Else on error goto 0

end if

end sub


Die Fehlerbehandlund ist sicher sehr primitiv aber anscheinend ausreichend.
Für Verbesserungsvorschläge bin ich dankbar.

Güße

Turbo