Excelシートを再プロテクトし、オートフィルタを有効にする

Question

私はVB.net 2005を使用してデータベースアプリケーションからExcelファイルにデータを入力しています。

シートの保護を解除し、名前付き範囲を使用して特定のセルにデータを入力してから、シートを再保護します。

自動フィルタリングを有効にして保護されているファイルを実行するまで、これまでのところうまくいきました。シートを再保護すると、オートフィルターのドロップダウンを許可しながらシートを保護しているようには見えません。オートフィルタのドロップダウン矢印はグレー表示され、無効になっています。

次のコードを使用して、データを入力した後でシートを再保護します。

If bolProtected = True Then 
    For i = 0 To intProtectIndexes.Length - 1 
     objExcel.Sheets(intProtectIndexes(i)).Select() 
     objExcel.ActiveSheet.Protect(strPassword) 
    Next 
End If 

また、Timのリンクのコードを使用して試しました。

objExcel.Sheets(intProtectIndexes(i)).Select() 
objExcel.ActiveSheet.Protect(Password:=strPassword, Contents:=True) 
objExcel.activesheet.enableautofilter = True 

これでも、入力されたワークシートでオートフィルタのドロップダウンが無効になります。

VBAでマクロを作成し、使用して：

ActiveSheet.Protect(Contents:=True, AllowFiltering:=True) 

が正常に動作します。シートは保護されており、オートフィルターのドロップダウンを使用できます。しかし、VB.netプロジェクトで同じコードを使用すると、ドロップダウンが有効になりません。

Answer 1

を使用すると、「自動フィルタリングオプションを可能にしながら、それを守るように見えることはできません」とはどういう意味ですか

With objExcel.Sheets(intProtectIndexes(i)) 
    .Protect(Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True) 
    .EnableAutoFilter = True 
End With 

それとも

With objExcel.Sheets(intProtectIndexes(i)) 
    .Protect (Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True) 
End With