D
dsc
I would appreciate any help with a problem.
I have VBA macros that let me save files to or open files from directories
and other computers on my network. For instance:
Sub OpenThumbDrive()
ChangeFileOpenDirectory ("G:\")
With Dialogs(wdDialogFileOpen)
..Name = "*.*"
..Show
End With
End Sub
....and:
Sub SaveEnglish()
Dim strPath As String
strPath = "\\English\duty (c)\"
With Dialogs(wdDialogFileSaveAs)
.Name = strPath
.Name = strPath & ActiveDocument.Name
.Show 'displays the dialog but doesn't actually
'do the Save
End With
End Sub
However, I have a new notebook with Vista, and it requires a user name and
password before it will allow me to access it from another computer, so this
macro doesn't work:
Sub OpenNotebook()
ChangeFileOpenDirectory ("\\Notebook\C\Documents\Advantage Links\")
With Dialogs(wdDialogFileOpen)
..Name = "*.*"
..Show
End With
End Sub
Is there any way to pass the user name and password with this macro?
Any assistance appreciated.
I have VBA macros that let me save files to or open files from directories
and other computers on my network. For instance:
Sub OpenThumbDrive()
ChangeFileOpenDirectory ("G:\")
With Dialogs(wdDialogFileOpen)
..Name = "*.*"
..Show
End With
End Sub
....and:
Sub SaveEnglish()
Dim strPath As String
strPath = "\\English\duty (c)\"
With Dialogs(wdDialogFileSaveAs)
.Name = strPath
.Name = strPath & ActiveDocument.Name
.Show 'displays the dialog but doesn't actually
'do the Save
End With
End Sub
However, I have a new notebook with Vista, and it requires a user name and
password before it will allow me to access it from another computer, so this
macro doesn't work:
Sub OpenNotebook()
ChangeFileOpenDirectory ("\\Notebook\C\Documents\Advantage Links\")
With Dialogs(wdDialogFileOpen)
..Name = "*.*"
..Show
End With
End Sub
Is there any way to pass the user name and password with this macro?
Any assistance appreciated.