シート保護（オートフィルタ、-グループ化、書式設定は許可）

Sub prcProtectSheet()
    ' 変数宣言
    Dim wsSheet As Worksheet  ' 対象シート
    
    ' 対象シートを設定
    Set wsSheet = ActiveWorkbook.Sheets("Sheet1")  ' 現在アクティブなブックの "Sheet1" と仮定

    ' シート保護の設定
    wsSheet.Protect _
        UserInterfaceOnly:=True, _    ' ユーザーインターフェースのみ保護
        AllowFiltering:=True, _       ' オートフィルタを許可
        AllowGrouping:=True, _        ' グループ化を許可
        AllowFormattingCells:=True    ' セルの書式設定を許可
        ' Password パラメータを省略しているため、パスワードなしで保護をかける

    ' グループ化（アウトライン）を許可するために、アウトライン機能を有効にする
    wsSheet.EnableOutlining = True

    ' 完了メッセージ
    MsgBox "シート保護の設定が完了しました", vbInformation
End Sub