Sub DownloadAndInstallAddInW()
    ' Your code here to download the latest Add-In version
    Dim downloadURL As String

    
    'Application.AddIns("New One").Installed = False
    downloadURL = "https://drive.google.com/uc?export=download&id=1-_XQWIJVgMUFU253id1d_dn8PlHfb5X-" ' Replace with the actual download URL

    ' Specify the local path for saving the downloaded Add-In
    Dim localPath As String
    localPath = Environ("USERPROFILE") & "\Desktop\New One.xlam" ' Replace with your desired local path

    ' Download the Add-In
    DownloadFileW downloadURL, localPath
    
    'Call Add_AddinW
    
    MsgBox "Надстройка успешно обновлена!"
End Sub

' Function to download a file from a URL
Sub DownloadFileW(url As String, localPath As String)
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

    WinHttpReq.Open "GET", url, False
    WinHttpReq.Send

    If WinHttpReq.Status = 200 Then
        Dim oStream As Object
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.ResponseBody
        oStream.SaveToFile localPath, 2 ' 1 = no overwrite, 2 = overwrite
        oStream.Close
    Else
        MsgBox "Failed to download the Add-In. Status: " & WinHttpReq.Status
    End If
End Sub




Sub Add_AddinW()

If Application.AddIns("New One").Installed = True Then

Application.AddIns("New One").Installed = False

With Application
    .AddIns.Add Environ("USERPROFILE") & "\Desktop\New One.xlam", True

End With
End If
If Application.AddIns("New One").Installed = False Then
Application.AddIns("New One").Installed = True
End If
End Sub