VBA - Autofilter via Command Button trotz Blattschutz

[SteBen]

Hallo zusammen,

ich versuche gerade eine Tabelle zu schützen, in der mittels Comand Buttons ein Auto Filter angewendet wird.

Hab schon diverse Möglichkeiten versucht, aber es will einfach nicht klappen.
Beim Klick auf die Buttons bekomme ich immer eine Fehlermeldung, dass der Blattschutz noch aktiv ist.

Hat jemand eine Idee, wie ich das lösen kann?

Vielen Dank

[StefanB]

Hallo,

gib mal folgenden Code in "DieseArbeitsmappe" ein:

Code:

Option Explicit
Private Sub Workbook_Open()
   Dim wksSheet As Worksheet
   For Each wksSheet In ThisWorkbook.Worksheets
       wksSheet.Protect UserInterfaceOnly:=True, Password:="1"
Next wksSheet
End Sub

[SteBen]

Danke für Deine Antwort.

Ich habe das Problem derweil schon wie folgt lösen können.

Code:

Private Sub Workbook_Open()
    'Autofilter auch bei geschützem Tabellenblatt
     ActiveSheet.Protect ("Password"), userinterfaceonly:=True
     ActiveSheet.EnableAutoFilter = True
End Sub

[StefanB]