Lock filters

[lukasz_rz]

Hi Guys.

Is there a possibility in excel to lock the filters? Meaning that I do set up some filters for certain columns and I want prevent other file users to modify it ? Note - I do not want to lock cells to be edited, just filters.


Or maybe is there a simple clever macro that would show a pop-up window every time someone is trying to change a filter?

Thanks a lot in advance.

 

[Fluff]

This should be more robust than the previous code.

Sub lukasz()
    Dim Rng As Range
    Dim Cnt As Long, fltr As Object
    
    Application.ScreenUpdating = False
    With ActiveSheet.AutoFilter
        .Parent.Unprotect Password:="Pword"
        Set Rng = .Range
        Set fltr = .Filters
        With .Filters
            For Cnt = 1 To .Count
                If Cnt <> 7 Then
                    With .Item(Cnt)
                        If .On Then
                            Select Case .Operator
                                Case 0: Rng.AutoFilter Cnt, .Criteria1, , , False
                                Case 1, 2: Rng.AutoFilter Cnt, .Criteria1, .Operator, .Criteria2, False
                                Case 3 To 6: Rng.AutoFilter Cnt, , .Operator, , False
                                Case 8: Rng.AutoFilter Cnt, .Criteria1.Color, .Operator, , False
                                Case Else: Rng.AutoFilter Cnt, .Criteria1, .Operator, , False
                            End Select
                        Else
                            Rng.AutoFilter Cnt, , , , False
                        End If
                    End With
                End If
            Next Cnt
        End With
        .Parent.Protect Password:="Pword", Contents:=True, AllowFiltering:=True
    End With
End Sub