If can`t save as don`t do this

[Adi21]

Hi, I have a little problem and I hope that somebody can help me.
I have a workbook, and I want that when I`m closing it to be saved and save as on a site.The code that I write is working if I have internet access and I am log in with an user that can unpload documents on the site. But there are situations when I don`t have internet or I`m not log in an user with rights and in this kind of situations I get a dialog text to enter a username and password with access and an error. If I have this situations I want that the workbook to be save only and do not the save as. I tried with On error resume next ( I don`t know how to use it exactly) and is not working.Any ideas?Thanks!

Workbooks(lealde2).Save
Dim thefile, thepath As String
Let thepath = "[URL="http://teamwork.tenaris.net/sites/quality_Silcotub/Quality%20System/CapabilityAnalysis/CPKDimensional/DB/"]http://[/URL]...etc " 
Let thefile = "DatabaseLealde2.xlsm"
 On Error Resume Next
    Workbooks(lealde2).SaveAs Filename:=thepath & thefile _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Workbooks(y).Worksheets("1").Activate
Workbooks(lealde2).Close SaveChanges:=True

 

[Adi21]

Maybe the ConflictResolution parameter from Save As Method can help?