deling og automakro fejler - excel office 365

Er der nogen der hjælpe med mit problem:

jeg har et ark hvor der ingår en del filtre

Disse filtre nulstilles via en automakro, når filen åbnes:


Private Sub Workbook_Open()
   
        Sheets("Liste").Select
        ActiveSheet.Unprotect Password:="XXX"
       
        If ActiveSheet.AutoFilterMode = True Then
          ActiveSheet.AutoFilterMode = False
          ActiveSheet.Range("a7:GV7").AutoFilter
        Else
        ActiveSheet.Range("a7:GV7").AutoFilter
       
        End If
       
     
        Range("l8:l8").Select
             
        ActiveSheet.Protect Password:="XXX", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
End Sub


Nu ville jeg gerne dele projektmappen, da vi ofte er mange der skal bruge filen. Bruger den "gamle" delingsmetode.

Når jeg slå delig til får jeg følgende fejlmeddelese:

Run-time error 1004:
Metoden unprotect for klassen Worksheet mislykkes.

Håber der er nogen af jer der er klogere end mig :-)