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

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