Excel VBA テクニック集
スクリーンセーバーの機能、開始・停止

使い方
スクリーンセーバーの機能の開始
    Call ScreenSaver_Enabled(True)

スクリーンセーバーの機能の停止
    Call ScreenSaver_Enabled(False)

Public Const Spi_SetScreenSaveActive = 17
Public Declare Function SystemParametersInfo Lib "user32" _
        Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, _
        ByVal uParam As Long, _
        lpvParam As Any, _
        ByVal fuWinIni As Long) As Long

Public Function ScreenSaver_Enabled(ByVal Bool_F As Boolean) As Boolean
    Dim Flag_L As Long
    Dim Return_L As Long

    Flag_L = IIf(Bool_F, 1, 0)
    Return_L = SystemParametersInfo(Spi_SetScreenSaveActive, Flag_L, 0, 0)
  
    If Return_L > 0 Then
        ScreenSaver_Enabled = True
        Else
        ScreenSaver_Enabled = False
        End If
End Function