Change the default path of the SaveAs dialog in Excel 2010

Question

0.00/5 (No votes)

See more:

Hi everyone

I have a number of Excel(2010) spreadsheets that reside on a server.
Each of these have the property 'Read-Only' set. This, obviously, disallows the user from saving(overriding) the original copy.

My problem, however, is that I want the users to save a copy to their "My Documents" on drive C:.

I have looked at the Workbook_BeforeSave event but have no idea of how to change the default path.

Could anyone suggest if and how this could be done.

Thanks in advance.

Darrell

Posted 31-Mar-14 4:15am

Darrell de Wet

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2014-05-01T09:54:00

The simplest way is to use Environ, ChDrive and ChDir function.

VB

Dim sUserPath As String, sDefaultPath

sDefaultPath = Application.DefaultFilePath
sUserPath = Environ("USERPROFILE") & "My Documents\" 

'first method:
'ChDrive sUserPath
'ChDrir sUserPath

'second method
Application.DefaultFilePath = sUserPath

'your code here

'restore default path
Application.DefaultFilePath = sDefaultPath

How to get MyDocuments folder using other methods? Please, see: Get the Path to My Documents in VBA[^]