エクセルで保護するとマクロが使えなくなるのですが。

質問

売上のデータを入力してマクロで集計をしてます。
ただ、計算式が入ってますので、シートを保護したのですが、するとマクロが使えなくなってしまいました。
解決策はあるのですか？

回答No.4

TTak · ベストアンサー

シート保護しても、マクロでの書き込みを許可したい場合は、#3さんの応用として、

Sub Macro1()
'シート保護
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

お礼

できました！
どうもありがとうございます。

回答No.5

taknt

似たようなものですが、
シートの保護の解除は
Worksheets("シート名").Unprotect

保護するときは
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
などとやってたりします。

お礼

すいません。締め切ってしまいました。
いろいろあるんですね。
ありがとうございます。

回答No.3

big_fool

No1さんの回答のようにシートを保護、解除するマクロを記入してみては
Sub Macro1()
'シート保護
ActiveSheet.Protect
End Sub

Sub Macro2()
'シート保護解除
ActiveSheet.Unprotect
End Sub

お礼

早速のご回答ありがとうございます。
なんとかできました。

回答No.2

S-Fuji

マクロで、保護をしたセルに書き込みをしているのでは無いですか。
　マクロで書き込むセルだけ保護されないようにしましょう。その他、計算式が入っているセルは保護する。

　マクロで書き込むセルを選択し、右クリック　－　セルの書式設定　－　保護タブにある「ロック」のチェックを外しましょう。
　これで、シートの保護をすると、ロックを外したセルにだけは書き込む事が出来ます。

お礼

どうもありがとうございます。
マクロ初心者なので助かりました。

回答No.1

taknt

マクロに、値をセット時いったん、解除して、
セットし終わったら、保護するようにしてあげれば
いいですよ。

補足

やっぱりそれしか方法がないのでしょうか。
マクロに保護の解除をさせようとしたのですが、失敗しました。
早速のご回答ありがとうございます。