タスクライブラリからエクセルを削除

Sub DeleteScheduledTask()

    Dim taskName As String

    Dim shell As Object

    Dim cmd As String

    ' ★ここに削除したいタスクの名前を入力（タスクスケジューラに表示される名前）

    taskName = "MyExcelStartupTask"

    ' schtasks コマンドでタスクを削除（/F は確認なしで強制削除）

    cmd = "schtasks /Delete /TN """ & taskName & """ /F"

    Set shell = CreateObject("WScript.Shell")

    shell.Run cmd, 0, True

    MsgBox "タスク """ & taskName & """ を削除しました。", vbInformation

End Sub