トップ > 資格を活かすには > やってみよう!Excel VBAで業務改善! > 次なるイノベーション編: 第17話「飲み会はまだまだ続く」2/4 :そろそろ帰らなきゃね

やってみよう!Excel VBAで業務改善! 次なるイノベーション編|第17話 「飲み会はまだまだ続く」

そろそろ帰らなきゃね

その頃会社では、岬さんと森川くんの勉強会もクライマックスを迎えていました。

「…あら、もうこんな時間。
さすがに、そろそろ帰らなきゃね」
「ええ~~~もう終わっちゃうんですかあ~」 森川くんが、名残惜しそうな声を出します。

「じゃあ最後にもう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メソッドは、
ユーザーが実行した操作を取り消して、元に戻してくれるの。
クイックアクセスツールバーにある、"元に戻す"ボタンと同じ働きをするのよ」

一覧にもどる