beveiliging d.m.v. een Macro en autofilter

[Bruggemanmark]

Hallo,

Hou kun je alle werkbladen die beveiligd zijn d.m.v. een macro beveiliging met wachtwoord ook gebruik maken
van het filter. Als ik de standaard beveiliging gebruik werkt het wel alleen met de macro knop niet.
Dit is de code welke ik gebruik.

Sub Beveiligen()
' Beveiligen van bladen 2 t/m 4, 5 t/m 11
Dim ww As String, x As Integer
ww = InputBox("Geef uw wachtwoord")
For x = 1 To 11
If x = 10 Then x = 11
Sheets(x).Protect ww
Next x
End Sub
Sub Opheffen()
' Beveiliging alle bladen opheffen
Dim ww As String, x As Integer
ww = InputBox("Geef uw wachtwoord")
For x = 1 To 11
Sheets(x).Unprotect ww
Next x
End Sub

Wie kan me op weg helpen.
Heb al op het forum en Google gekeken maar deze werken niet. (code in Thisworkbook)

 

[ExcelAmateur]

Deze code is van "Cobbe"

Zet dit in this workbook en sluit het bestand, daarna het bestand weer openen.
Het zou nu moeten werken.

Private Sub Workbook_Open()
  For i = 1 To Sheets.Count
    With Sheets(i)
      .Protect Password:="data", UserInterfaceOnly:=True, AllowUsingPivotTables:=True
    End With
  Next
End Sub