excelVBAでロックしたセルに、シート保護を解除せずにデータを書き込む

こんな感じでシート保護を設定(UIのみ)を設定する

Option Explicit

Private Sub Workbook_Open()
    ' 一旦、シート保護を解除
    ActiveSheet.Unprotect
    ' シート保護を設定(UIのみ)
    ActiveSheet.Protect UserInterfaceOnly:=True

    ActiveWindow.ScrollRow = 1
End Sub

ネタ元

• http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_040.html