Clever-Excel-Forum

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

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

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

SteBen

StefanB

SteBen

StefanB