Autofilter

[atilla]

Hallo,


 sorry, mein Fehler.

hinter der Tabelle im Code muss vor Unprotect -> ActiveSheet.  (mit Punkt)

und vor .Protect -> ActiveSheet (ohne Punkt).

so das Ganze:

Code:

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

[artcreativity]

Hallo Atilla,

habe deine Korrektur eingearbeitet und damit ist Fehlermeldung weg,
Doch leider ändert sich nichts am Problem.
Wenn einmal ein pdf geöffnet wurde, funktiniert nicht mehr der Autofilter anschließend.

danke

Artcreativity

[schauan]

Hallöchen,

nimm mal dieses Prinzip. Der Landmann hat ja schon mal in die Richtung gewiesen, hier nun der entsprechende Code dazu:

Code:

Public Sub PDFöffnen1()
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="0000", AllowFiltering:=True  'für Autofilter im geschützten Blatt arbeiten
    ActiveSheet.Shapes.Range(Array("Object 350")).Select
    Selection.Verb Verb:=xlPrimary
    ActiveCell.Activate
End Sub

Codeänderung in erster Anweisung: , AllowFiltering:=True
und in den anderen Sub's genau so.