Excel起動時にVBAで書き換えられるセルの保護について

Question

お世話になります。

現在下記仕様を実現しようとしましたが、動作せず困っております。（詳細は下記参照）
仕様を実現するためには何を行えば良いのでしょうか。
お手数おかけ致しますが、ご助言頂けましたら幸いです。
よろしくお願いします。

●仕様
1.Excelオープン時に特定のセルに同じブックの全シート名をプルダウンにして入れる
2.上記セル以外のセルをロックして、入力できなくする

●発生している障害
・仕様1は実装出来ましたが、仕様2を実施すると、仕様1の途中でエラーが発生し、動作しなくなります。
（エラー箇所などは下記コード参照）

●エラーメッセージ
実行時エラー'1004'
アプリケーション定義またはオブジェクト定義のエラーです。

●こちらで試したこと
・保護される際に設定できるチェック項目のうち、ロックされたセル範囲の選択以外全てに
チェックを入れてみても同様の結果になりました。

●環境
・Windows7 Pro
・Excel 2016

●コード（VBA）

Private Sub Workbook_Open()
  Dim work As Worksheet
  Dim selectlist As String
  For Each work In ThisWorkbook.Worksheets
    If selectlist <> "" Then
      selectlist = selectlist & ","
    End If
    selectlist = selectlist & work.Name
  Next work
  ThisWorkbook.Worksheets("実行").Activate
  With Cells(2, 3).Validation
    .Delete
    ' 下行でエラーが出ます。
    .Add _
      Type:=xlValidateList, _
      Formula1:=selectlist
  End With
End Sub

Answer 1

自己解決しました。
お騒がせして申し訳ございません。

以下解決方法です。
シートの保護で引っかかるのであれば、マクロを動かす瞬間だけ保護を解除して、
終わったら再度保護をかければいいだけでした。

Public Sub test()
  Dim work As Worksheet
  Dim selectlist As String
  For Each work In ThisWorkbook.Worksheets
    If selectlist <> "" Then
      selectlist = selectlist & ","
    End If
    selectlist = selectlist & work.Name
  Next work
  ThisWorkbook.Worksheets("実行").Activate
  ' 保護解除
  ActiveSheet.Unprotect
  With Cells(2, 3).Validation
    .Delete
    .Add _
      Type:=xlValidateList, _
      Formula1:=selectlist
  End With
  ' 保護
  ActiveSheet.Protect
End Sub