
Originally Posted by
Greg M
Hi again,
You can indeed!

Regards,
Greg M
Great!
What information do you want? How can I best assist you?
Workbook:
Private Sub Workbook_Open()
Call AllowMacroOnLockedSheet
End Sub
Module1
Sub AllowMacroOnLockedSheet()
Sheets("Sheet1").Protect Password:="Password", UserInterfaceOnly:=True
End Sub
Sheet1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ClickColum As Integer
Dim ClickValue As String
ClickColum= ActiveCell.Column
ClickValue= ActiveCell.Value
On Error Resume Next
If Application.Intersect(ActiveCell, [Top]) Is Nothing Then
If ActiveCell.Value <> "" Then
ActiveSheet.Range("A:az").AutoFilter Field:=ClickColum, Criteria1:=ClickValue
End If
End If
End Sub
How can I ensure the macro works properly upon opening, allowing me to use the double-click filter function in every cell, including those with dropdown lists?
*edited to correct an error.
Bookmarks