' [156.xls]



' [Module1] のコード
'★★☆　オートフィルタの使用を制御する　☆★★

Option Explicit

Sub start()

    With ActiveSheet
        
        'EnableAutoFilter プロパティは
        '画面上での変更のみの保護が設定されているとき
        'True の場合、オートフィルタ矢印が使用可能
        If .EnableAutoFilter = False Then
            .EnableAutoFilter = True
        Else
            .EnableAutoFilter = False
        End If
    End With

End Sub

Sub Auto_Open()

    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        .EnableAutoFilter = True
    End With
    
End Sub