Excel覚書 シートロック中にグループ開閉させたい

「sample」シートにパスワード「****」でロックをかける
ただし、グループ開閉はさせたいとき、EnableOutliningをTrueにしておく

With Thisworkbook.Worksheets("sample")
    .EnableOutlining = True
    .Protect Password:="****", UserInterfaceOnly:=True
End With