エクセルの質問です。

エクセルの質問です
式がある表でグループ化、フィルター使用の部分があります。
シートの保護を実施した場合グループ化ができなくなるので
ネットで以下をもVBAを見つけました。
グループ化はできるのですがフィルタが使用できなくなります。
VBAにフィルタが使用できるように加えてもらえないですか。


Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

No.1 回答者： ママチャリ 回答日時： 2019/05/18 20:54

質問者さんって、マクロの記録ってやったことありますか？試しに「シートの保護」の操作を記録してみて下さい。

その際「オートフィルタの使用」を可にしてみれば、どのプロパティーを設定すれば良いか分かると思います。