Makro i delt og beskyttet projektmappe (Autofilter)

Makroer virker ikke i en delt projektmappe. Det jeg gerne vil er at når en bruger åbner filen så skal tidligere brugeres indsatte filtre automatisk slås fra så alle poster i regnearket vises. Herefter skal filterfunktionen igen kunne anvendes af ny bruger. Arket skal også være beskyttet.

I en ikke delt mappe har jeg gjort sådan:

Private Sub Workbook_Open()
Sheets("Ark2").Select
ActiveSheet.Unprotect "Password"
    If Sheets("Ark2").FilterMode = True Then
    Sheets("Ark2").ShowAllData
    Else
End If
ActiveSheet.Protect "Password", DrawingObjects:=True, Contents:=True, Scenarios:=True, Allow-Filtering:=True
End Sub