[[20151127144055]]　『実行エラ－1004対処』（忘れな草）　ページの最後に飛ぶ

『実行エラ－1004対処』（忘れな草）

 以前、作って頂いたコ－ドです。
 A列に日付を入れると、横のB列に入力したときの時間がでます。
 間違えて時間を消してしまう事があります。
 保護をかけてみたのですが
 実行エラ－1004になってしまいます。
 宜しくお願いいたします。

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A6:M1000")) Is Nothing Then Exit Sub
    Dim r As Range
    Application.EnableEvents = False
    For Each r In Intersect(Target, Range("A6:M1000"))
        If IsDate(r.Value) = True Then r.Offset(, 1).Value = Time
        If r.Value = "" Then r.Offset(, 1).ClearContents
    Next
    Application.EnableEvents = True
 End Sub

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

 方法は２つ。

 １．処理前に保護を外し処理後に保護をかける。
　保護を外したり保護をかけるコードはマクロ記録で取得できます。

 ２．ブックのOpenイベントあたりで、該当のシートに対して UserInterfaceOnly付きの保護をかける。
　（βとしては、こちらを推奨）
　この場合の保護をかけるコードは、通常の保護をかけるコードに、引数として UserInterfaceOnly:=True を
　加えるだけです。

（β） 2015/11/27(金) 14:51

 こちらで継続  　
[[20151127155004]]　『コメント覧がつかえないです。＆　β様へ』（忘れな草）
（マナ） 2015/11/28(土) 18:47

コメント返信：

[ 一覧(最新更新順) ]

[[20151127144055]] 『実行エラ－1004対処』（忘れな草） ページの最後に飛ぶ

[[20151127144055]]　『実行エラ－1004対処』（忘れな草）　ページの最後に飛ぶ