Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)

Private Sub ToggleButton1_Click()

Dim flg As Integer


If flg = 1 Then
End
End If

If ToggleButton1.Caption = "OFF" Then
MsgBox "ONにします"
ToggleButton1.Caption = "ON"
ActiveSheet.Cells(2, 3).Value = Now
'定期的にSCROLLLOCKキーを２回送信し、画面のスリープを抑止
'A1セルに任意の文字列を入力されたらループ処理を終了する
End If



Dim iTime As Integer '秒数用カウンタ

Do
If ToggleButton1.Value = False Then
flg = 1
MsgBox "OFFにします"
ToggleButton1.Caption = "OFF"
ActiveSheet.Cells(3, 3).Value = Now
flg = 0
End
End If

'キーの送信は５分おき（３００秒おき）
For iTime = 1 To 300
'１秒スリープ
Sleep 1000
'画面更新
DoEvents
'終了リクエストを確認
'If Trim(ActiveSheet.Cells(1, 1).Value) <> "" Then Exit Do
Next
'SCROLLLOCKキーを２回送信（無害そうなキー、設定と解除で２回）
Application.SendKeys ("{SCROLLLOCK 2}")
Loop

'終了リクエストをクリアして終了
ActiveSheet.Cells(1, 1).Value = ""
End Sub