Vba that can give user name and password given with in vba to access a network locatn

[ROHAN999]

Option Explicit
Sub OpenURL()

    On Error Resume Next
        ActiveWorkbook.FollowHyperlink CStr(Range("A1")), NewWindow:=True
        If Err.Number <> 0 Then
            MsgBox "There was a problem connecting to the desired website."
        End If
    On Error GoTo 0

End Sub

This code i am using to open a file kept at network location by giving the filetpath in cell a1

But the problem is that network path is protected by a user name and password
So everytime before using this code i will have to manually access that node by putting user id and password then i can use that code...

Can i give user name and password with in this vba to avoid putting password again and again manually

Plz assist