シートを保護し、アウトラインの操作を許可

Sub prcProtectSheetWithOutline()
    ' シートを保護し、アウトラインの操作を許可するプロシージャ
    Dim sht As Worksheet  ' 作業シート

    Set sht = ThisWorkbook.Sheets("Sheet1")  ' 対象のシート名を指定
    
    With sht
        ' ユーザーがアウトライン操作をできるように設定し、シートを保護
        .Protect Password:="yourPassword", UserInterfaceOnly:=True
        .EnableOutlining = True
    End With
End Sub