Sub シートの動作停止() Application.EnableEvents = False 'シートの動作停止 'ここにコードを記述 Application.EnableEvents = True 'シートの動作の停止解除 End Sub