そろそろ帰らなきゃね
その頃会社では、岬さんと森川くんの勉強会もクライマックスを迎えていました。
「…あら、もうこんな時間。
さすがに、そろそろ帰らなきゃね」
「ええ~~~もう終わっちゃうんですかあ~」
森川くんが、名残惜しそうな声を出します。
「じゃあ最後にもう1つ、便利なApplicationオブジェクトの技を教えてあげる。
Undoメソッドよ」
「Undoメソッド…っスか?」
岬さんはカタカタと、VBEのコードウィンドウにコードを打ち込んでいきます。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row = 1 Then
MsgBox "1行目のセルは編集できません"
Application.Undo
Else
If InputBox("パスワードを入力してください") <> "pw" Then
Application.Undo
End If
End If
Application.EnableEvents = True
End Sub
「うん。こんな感じかな?
ApplicationオブジェクトのUndoメソッドは、
ユーザーが実行した操作を取り消して、元に戻してくれるの。
クイックアクセスツールバーにある、"元に戻す"ボタンと同じ働きをするのよ」