[[20180315115508]]　『実行時エラー”1004”　回避』（nebukuro3）　ページの最後に飛ぶ

『実行時エラー”1004”　回避』（nebukuro3）

大変恐縮ですが、VBA初めてで訳も分からず質問してます。

シートの保護（入力可能セルで数式不表示）を実施し、セルに有る数値を入力した結果、下記エラーが表示されました、回避方法をご指導願います。

しかし、時間が経過すると、正常に数値入力可能になります。
また、新しくﾃﾞｰﾀｰを立ち上げ直後は、エラーがでます。

何が原因ご指導願います。

数式
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 3
End Sub

デバック実行時黄色表示：Target.Font.ColorIndex = 3
このコマンドを使うとデバッグは中断します。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

訂正
しかし、時間が経過すると、正常に数値入力可能になります。
また、新しくﾃﾞｰﾀｰを立ち上げ直後は、エラーがでます。

は間違いでした、今回の目的は入力文字を赤色にしたいわけですが、黒色で入力可能でした。
VBAが機能停止したのです。

（nebukuro3） 2018/03/15(木) 12:53

 シートの保護の際に、「セルの書式設定」が許可されていないからでは
 ないでしょうか？
 違ったらすみません。
（ろっくん） 2018/03/15(木) 12:59

らっくん　ご回答ありがとうございます。

目的：数式を不表示にし、しかもセル入力は行いたいです。

「セルの書式設定」　経過　を報告致します、何か間違いがあれば指示下さい。

今回この設定を行ってエラーが発生しました、間違いはないと思い込んでいますが、チェックお願いします。

1：セル書式設定→保護→2か所チェック（ロック・表示しない）→OK

2：セル書式設定→保護→チェックを外す（ロック）→OK

3：シートの保護　→　OK

（nebukuro3） 2018/03/16(金) 02:29

 私の提示した「セルの書式設定」の許可というのは
 「校閲」-「シートの保護」-[このシートのすべてのユーザーに許可する操作]内の
 「セルの書式設定」にチェックが入っているか、ということですが
 いかがでしょう。
（ろっくん） 2018/03/16(金) 08:28

「セルの書式設定」にチェックが入っていませんでした。

理解もせず、チェックを入れるとエラーが出なくなりました。

らっくんさん　ご指導ありがとう御座いました。

（nebukuro3） 2018/03/17(土) 04:27

コメント返信：