Autofilter

[artcreativity]

Hallo an Alle,

ich habe eine Exceldatei mit Autofilter in der auch pdf-datein hinterlegt sind.

zur Benutzung habe einige Makros drauf.

Jedes pdf als Button mit Makro wie folgt:
Public Sub PDFöffnen6()
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="0000" ' im geschützten Blatt arbeiten
    ActiveSheet.Shapes.Range(Array("Object 502")).Select
    Selection.Verb Verb:=xlPrimary
End Sub

Blattschutz auf heben und Autofilter
Sub BlattschuzBeiAutoFilter()
With Sheets("Zertifizierung")
.Unprotect Password:="0000"
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True, Password:="0000"
End With
End Sub

Eigentlich klappt alles super,aber wenn ich ein pdf geöffnet habe und wieder schließe ist leider der Autofilter nicht mehr nutzbar.

Hat jemand eine Idee  wie ich es lösen kann.

Danke Annette

[Landmann66]

Hallo,
kann es sein, das die Autofilter deshalb nicht funktionieren, weil es Lücken in der unmittelbar anschliessenden Tabelle gibt?
Oder hast Du unterhalb der Tabelle etwa eine Zeile mit Abstand und Teilergebnis-Formel stehen?
Beides mag Excel nicht sehr bzw. die Autofilter.

Bisher konnte ich da Abhilfe mit Autofilter de - und installieren erreichen.
Kann man auch in ein Minimakro packen:
' Filterzeile_NN_ein-und-ausschalten
    Rows("1:1").Select
    Selection.AUTOFILTER
    Selection.AUTOFILTER

Wenn's nicht hilft, bitte Datei hochladen.
Gruß
Georg

[atilla]

Hallo,

füge im Code für den PDF Aufruf als letzte Zeile folgendes ein:

Code:

ActiveCell.Activate

[artcreativity]

guten morgen an Alle :15:

vielen Dank erst einmal.
Versuche es mit den Tipps ansonsten bastel ich mal eine Probedatei und lade die hoch.

artcreativity

[artcreativity]

Hallo an Alle,

es ist sehr korios.
Ich habe jetzt eine Probedatei gemacht und es läuft alles perfekt.
In der Originaldatei geht der Autofilter nur so lange ich kein pdf öffne, danach geht nichts mehr.
Es ist aber eine riesige Datei mit 200 hinterlegten pdfs.

Hat jemand noch eine Idee,vielleicht liegt es nicht an dem Makro?

danke

artcreativity
Excel 2016

[Landmann66]

Hallo,
in geschützten Blättern/Bereichen/Dateien geht ja der Autofilter nicht.
Deswegen hebst Du ihn ja auch temporär auf, oder?
Ist da irgendwo der Fehler zu sehen?
Andere Idee: wenn das pdf-öffnen immer VBA ausser Kraft setzt (soll es ja mit Exceldateien aus fremden Quellen öfter geben), mal die Excelgrundeinstellungen prüfen.
Nur so ne Idee.
Gruß
Georg

[Landmann66]

Noch was im Forum könnte Dir helfen:
Ein anderer User hatte auch den Wunsch, trotz Blatt/Dateischutz noch Autofilter und Gliederung zu nutzen.
Schreibe diesen Code doch auch mal in "Diese Arbeitsmappe" im VBA-Browser!
Das Dateiformat muss aber vorher von .xlsx in .xlsm über
"Datei speichern unter" und Auswahl Excelmappe mit Makros geändert sein, sonst Fehlermeldung.
Gruß
georg


Sub Workbook_Open()
' Folgende Zeilen ermöglichen Autofilter und Gliederung (beispielsweise) in einer geschützten Datei:
' muss auf "Diese Arbeitsmappe" geschrieben sein, nicht in Module!
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub

[artcreativity]

guten Morgen an Alle

nach zwei Tagen tritt auch in meiner Probedatei das Problem auf.

Nach dem Öffnen der Pdf geht der Autofilter nicht mehr.

Stell mal die Probedatei hier rein.

  Probedatei.xlsm (Größe: 342,14 KB / Downloads: 4)
PW 0000

danke Artcreativity

[atilla]

Hallo,

das ist aber nicht von alleine passiert, sondern da muss jemand versucht haben, den Code anzupassen.

1.  Füge in Dein Projekt ein allgemeines Modul ein.
Folgenden Code:

Code:

Sub BlattschuzBeiAutoFilter()
With Sheets("Zertifizierung")
.Unprotect Password:="0000"
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True, Password:="0000"
End With
End Sub

aus dem Codemodul von DieseArbeitsmappe ausschneiden und in das neu eingefügte Modul einfügen.

2. Beim Aufruf der PDf könnte dann eigentlich die Zeile mit dem Blattschutz entfallen.
Aber wenn zwischendurch manuell der Schutz aufgehoben wird, und ihr sicherstellen wollt,
dass er wieder drin ist, muss der Schutz im Code erst aufgehoben dann am Ende wieder gesetzt werden.

Du musst alles Code für die PDF wie folgt anpassen, dann klappt es auch mit dem ...........

Code:

Public Sub PDFöffnen1()
   Unprotect Password:="0000"
   ActiveSheet.Shapes.Range(Array("Object 350")).Select
   Selection.Verb Verb:=xlPrimary
   ActiveCell.Activate
   .Protect UserInterfaceOnly:=True, Password:="0000"
End Sub

[artcreativity]

Hallo Atilla

danke erst einmal für die Hilfe.

habe versucht alles umzusetzen aber jetzt kommt Fehlermeldung:

Fehler beim Kompilieren
unzulässiger oder nicht ausreichend definierter Verweis

Lade Datei mit Änderung nochmals hoch

danke Artcreativity