質問: Format(Now, "mm月dd日(aaa)hh:mm") の部分が黄色に表示されています ### 試したこと ネットでVBAとシートの保護の関係をいろいろ調べましたが、どのようにコードを改善すればいいのか分かりません。上記のコードもネットで調べて作成したもので、私自身VBAの知識があさいため、解決策が見つからない状態です。解決策をご教授いただけるとたいへんありがたいです。宜しくお願い致します。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。~~打ち消し線~~
回答: シートの保護を解除してから更新すればよろしいかと。 ``` Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim r As Range Me.Unprotect ' 保護解除 For Each r In Target If r.Column = 1 Then r.Offset(0, 1).Value = Format(Now, "mm月dd日(aaa)hh:mm") End If Next r Me.Protect ' 保護 End Sub ```