Thread: Saved a workbook using xlDialogSaveAs, now it has a password ?!?

i wrote a macro that prompts the user to save the workbook. Now the saved
workbook has a password. I did not set one.
Here's my code. Does anyone have an idea what the password might be?
Thanks!

Sub PromptSaveAS()
Application.Dialogs(xlDialogSaveAs).Show "Rename ME", True, False, False
'document_text , type_num, prot_pwd, backup, write_res_pwd, read_only_rec
End Sub

Hi,
You can find the argument list any dialog by searching the online help for
"Built-In Dialog Box Argument List".
For the SaveAs, it is:
xlDialogSaveAs -- document_text, type_num, prot_pwd, backup,
write_res_pwd, read_only_rec
therefore, it correspond to the False.
It must have transform the False as a string and used it for password.
False.. no luck
false... no luck
FALSE... here we go ... it is the one !!!

try leaving the param blank like:
Application.Dialogs(xlDialogSaveAs).Show "Rename ME", True, , False
Would that work?
--
Regards,
Sébastien
<http://www.ondemandanalysis.com>


"Court" wrote:

> i wrote a macro that prompts the user to save the workbook. Now the saved
> workbook has a password. I did not set one.
> Here's my code. Does anyone have an idea what the password might be?
> Thanks!
>
> Sub PromptSaveAS()
> Application.Dialogs(xlDialogSaveAs).Show "Rename ME", True, False, False
> 'document_text , type_num, prot_pwd, backup, write_res_pwd, read_only_rec
> End Sub

I know why, but not what. The why is because you used a parameter, False,
for the password in Application.Dialogs(xlDialogSaveAs).Show "Rename ME",
True, False... If you meant to not use a password (and the default Excel
format) it should just have been Application.Dialogs(xlDialogSaveAs).Show
"Rename ME",,,

But I don't know how VBA interpreted that parameter. I have tried using
"0", "False", even Alt-Numpad-2-5-5 to try to figure out how VBA converted
the parameter False into a password and no luck yet - any Excel folks out
there know what the solution is???
--
- K Dales


"Court" wrote:

> i wrote a macro that prompts the user to save the workbook. Now the saved
> workbook has a password. I did not set one.
> Here's my code. Does anyone have an idea what the password might be?
> Thanks!
>
> Sub PromptSaveAS()
> Application.Dialogs(xlDialogSaveAs).Show "Rename ME", True, False, False
> 'document_text , type_num, prot_pwd, backup, write_res_pwd, read_only_rec
> End Sub

GOT IT! "FALSE" in caps.
--
- K Dales


"Court" wrote:

> i wrote a macro that prompts the user to save the workbook. Now the saved
> workbook has a password. I did not set one.
> Here's my code. Does anyone have an idea what the password might be?
> Thanks!
>
> Sub PromptSaveAS()
> Application.Dialogs(xlDialogSaveAs).Show "Rename ME", True, False, False
> 'document_text , type_num, prot_pwd, backup, write_res_pwd, read_only_rec
> End Sub

=DoH!=
Of course it's all caps. Thanks for taking the time to look in to my
problem-
I really appreciate it.
Thanks Guys!


"Court" wrote:

> i wrote a macro that prompts the user to save the workbook. Now the saved
> workbook has a password. I did not set one.
> Here's my code. Does anyone have an idea what the password might be?
> Thanks!
>
> Sub PromptSaveAS()
> Application.Dialogs(xlDialogSaveAs).Show "Rename ME", True, False, False
> 'document_text , type_num, prot_pwd, backup, write_res_pwd, read_only_rec
> End Sub