保護されたシートでフィルタを使用する

Question

ヘッダ行にフィルタを使用して、ユーザがフィルタに基づいてデータを選択できるようにしようとしています。しかし、最終的には、ユーザーがデータを乱したり変更したりしないように、以下のようにVBAコードでシート全体を保護しています。

ワークシートのワークシートの最初の行のみをフィルタを有効にして保護を解除する方法についてのご意見はありますか？

Worksheets("Data").Protect Password:="125393" 

     Application.ScreenUpdating = True 
     Application.DisplayAlerts = True 

Answer 1

これを試してみてください：

With ActiveSheet 
    .Protect Password:="125393", AllowFiltering:=True 
    .EnableSelection = xlUnlockedCells 
End With 

はそれが役に立てば幸い！