スリープしない状態を必要な時だけ維持するマクロ（VBA）

okumasahito — Fri, 09 Sep 2016 13:44:09 +0000

マクロ実行中以外の強制的なスリープ
作成するスリープ防止マクロの機能
DoEventsについて
作成したファイルの説明

マクロ実行中以外の強制的なスリープ

私の勤めている会社のPCは情報漏洩防止のため、キーボードに触らないまま一定時間が過ぎるとセキュリティソフトが働いてPCをスリープ状態にします。

仕事で動画再生が必要な同僚から「PCで動画の再生中にスリープになって困る」との相談があったのでそれを解決するためのマクロ（VBA）を作成しました。
その作成したスリープを禁止するVBAコードについて紹介します。

作成するスリープ防止マクロの機能

強制的なスリープが困ると相談があった同僚の要望を解決するために必須の機能は以下の3点です。

①マクロやVBAに詳しくない人でも簡単に実行できること
②他のパソコン操作に関して影響を及ぼさず、きちんと動画が再生できること
③自由なタイミングで開始・終了できること

「①誰でも簡単に実行できること」はボタンを作成して実行したりストップしたりすることで解決できます。

「②の他の操作に影響を及ぼさないこと」はスリープを防止するためのキー操作をなるべく影響の少ないキーにして、回数もあまり頻繁にしないようにすれば問題ありません。これは前回のCtrlキーを押すコードをVBA中に挿入して、スリープを防止するというコードを応用して解決しています。

「③の自由なタイミングで開始・終了ができること」が今回最も苦戦した部分です。
通常VBAやマクロを実行したときはコードの最後まで実行されるか、決めたタイミングで中断するものなので、自由なタイミングで終了するのは難しいです。
Escapeキーで強制終了するのも難しいこともあります。

この問題は（1）フォームを作成して、ボタンを押しやすくしたことと、（2）「DoEvents」というコードを使用して、フォーム中のボタンをクリックできるようにしたことの2つのアイデアで解決しました。

DoEventsについて

DoEventsはコードの処理中に操作をWindows側に戻すというコードです。
時間のかかる処理などでは通常では処理が終わるまで新たな操作を行うことができませんが、このコードをいれておくことにより、コードの実行中の時間にボタンを押したり何か別の操作ができるようになります。

作成したファイルの説明

①作成したフォーム

ボタンは2つで、一つはスリープ禁止を開始するボタン・もう一つはスリープ禁止コードを中断するボタンです。
VBAコードは以下の②のようになっています。

②フォームのコード

フォームのコードはスリープ禁止ボタンをクリックするとずっと無限ループで続きますが、停止ボタンを押すと「StopFlag」という変数がTrueになって無限ループから抜けてコードが終了するというものです。「終了前に終了しますか？」と質問されて「はい」を選択するとコードが終了します。

Dim StopFlag As Boolean
Private Sub スリープ禁止_Click()
Dim i As Long
StopFlag = False
Cells(1, 1) = “”
Do Until Cells(2, 1) <> “”
Cells(1, 1) = Cells(1, 1) + 1
If Cells(1, 1) = 1001 Then
Cells(1, 1) = 1
DoEvents
End If
If Cells(1, 1) = 1000 Then
キー入力’標準モジュールのコードを実行する
DoEvents
End If
待ち時間10分の1秒’標準モジュールのコードを実行する
DoEvents
If StopFlag = True Then
If MsgBox(“中断しますか？”, vbQuestion + vbYesNo) = vbYes Then
Exit Do
Else
StopFlag = False
End If
End If
Loop
End Sub

Private Sub 停止_Click()
StopFlag = True
End Sub

③ブックのイベントプロシージャ

ファイルのマクロを有効にした段階ですぐにフォームが立ち上がるように以下のコードを記載しています。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cells(1, 1).Value = “”
End Sub

Private Sub Workbook_Open()
操作.Show Modeless
End Sub

④標準モジュール

キーボードイベントのCtrlキーをクリックするVBAコード、待ち時間を入力するVBAコード、操作パネルを立ち上げるVBAコードの3つを記載しています。
キーボードイベントのための宣言セクションの記載事項がフォームには記載できないようなので、このように処理しています。
操作パネルを立ち上げるコードは誤って閉じてしまった場合に再び表示させられるようにボタンを作り、実行できるようにしています。

Declare Sub keybd_event Lib “user32” (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Const fKEYDOWN = KEYEVENTF_EXTENDEDKEY
Private Const fKEYUP = KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP
Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Private Const VK_CONTROL = &H11
Private Const VK_A = &H41

Sub キー入力()
keybd_event VK_CONTROL, 0, fKEYDOWN, 0 ‘Controlを押す
keybd_event VK_CONTROL, 0, fKEYUP, 0 ‘Controlを離す
End Sub

Sub 待ち時間10分の1秒()
Sleep 100
End Sub

Sub 操作パネル立ち上げ()
操作.Show Modeless
End Sub

今回のファイルの作成はステップがいくつかに分かれていて作るのが面倒なので、ファイル自体も載せておきます。
使用してみたい方はこちらからダウンロードしてください。

VBA（マクロ）の処理を一時停止するコード

okumasahito — Wed, 13 Jul 2016 22:41:37 +0000

一時停止が必要となる場合
一時停止のVBAコード
1. ①Application.Waitコードを使用する(ExcelVBAのみ)
2. ②Sleep関数を使用する（WindowsAPI）

一時停止が必要となる場合

InternetExplorerやコマンドライン、その他のアプリケーションをVBAで操作するときには、命令を受け取ったそれぞれのアプリケーションが命令を実行するのにかかる時間の分、次の命令を受け付けられない場合があります。

本来は操作する側のアプリケーション（ExcelVBAなど）に、操作される側の状態を逐一認識させればよいのかもしれませんが、処理がものすごく複雑になるので個人で使用するVBA（マクロ）でそれを作成するのは現実的ではありません。

そんな時によく使われるのが、VBA（マクロ）の処理を一時停止するコードをアプリケーションに対する命令文の間に入れておく方法です。
VBAを使って操作したいアプリケーションが命令を実行するのにかかる時間をおおよそ予測して、それよりも長い時間VBAの処理を一時停止しておくという原始的な対応です（笑）
しかしこの原始的な対応はかなり便利で、他のアプリケーションを操作する際には必須のコードになります。

一時停止のVBAコード

VBAの処理を一時停止するコードは大きく2つあります。それぞれメリットデメリットがあります。

①Application.Waitコードを使用する(ExcelVBAのみ)

VBAに元々存在するコードなので事前に準備をする必要なく、処理を停止したいところに1行記載するだけで一時停止できるお手軽な方法です。
以下の形式でコードを記載することで一時停止を行います。下の例は1秒処理を停止してから再開するコードです。

Application.Wait Now + TimeValue(“00:00:01”)

②Sleep関数を使用する（WindowsAPI）

VBAの標準のコードではなく、WindowsAPIというWindowsに搭載されている関数をVBAで使用する方法です。細かい停止時間の調節が可能で、正確な時間一時停止しますが、事前に「Sleep関数を使用します」という意味のコードを記載しておく必要があります。
標準モジュールの宣言セクション（Subよりも上の部分）に以下のVBAコードを記載します。

Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

※【追記】Sleep関数の宣言セクションの記載については32bit版、64bit版のどちらでもSleep関数がきちんと動作するように宣言セクションには下記のように書く方が良いようです。

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib “kernel32” (ByVal ms As Long)
#End If

あとは他のアプリエーションに対する2つ以上の命令と命令の間など、一時停止したいところで以下のようなコードを記載します。数字部分は停止時間を1/1000秒単位で記載します。よって1000と記載すれば1秒一時停止するということです。

Sleep 1000

全体の構成は以下のようになります。

Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Sub IE操作()
命令文①
Sleep 1000
命令文②
End Sub

時間を細かく調節できるので私は基本Sleep関数を使います。1回の時間では大差がありませんが、繰り返しの処理で一時停止を500回行う場合、1秒待つのと0.5秒で済むのだと終了までに4分以上の差が出ます。

Sleepは重い処理をしたときにWindows自体に負荷がかかりにくくする場合にも使用されます。記載方法についてはまた別の機会にお伝えします。

Sleep | VBA・GAS・Pythonで仕事を楽しく効率化