シートの保護をしたり、しなかったりはマクロで可能？

VBAでマクロを使って一部セルの変更をしているのですが
このマクロを実行しない（ボタンを押さない）場合は、シートのセルが
変更できないようにシートの保護をかけています。
この状態で、マクロを実行すると

実行時エラー '1004'
FontクラスのNameプロパティを設定できません。

と表示されます。
マクロ時は書き換えできて、マクロが実行していない場合、シートの書き換えができないようにしたいのですが、どのようにすればよいのでしょうか？

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2009/03/07 18:18

保護されたシートを書き換えるにはいくつかの方法があります。

方法１
コードで保護の解除と保護をする。
sub sample1
ActiveSheet.Protect
'処理
ActiveSheet.Unprotect
end sub

http://jp5.txt-nifty.com/exhogo.htm#hogo-01

方法２
ブック起動時におまじないをする。
Sub Auto_Open()
　　Worksheets("Sheet1").Protect UserInterfaceOnly:=True
End Sub