ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Saved a workbook using xlDialogSaveAs, now it has a password ?!? (https://www.excelbanter.com/excel-programming/353021-saved-workbook-using-xldialogsaveas-now-has-password.html)

Court

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

sebastienm

Saved a workbook using xlDialogSaveAs, now it has a password ?!?
 
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


K Dales[_2_]

Saved a workbook using xlDialogSaveAs, now it has a password ?!?
 
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


K Dales[_2_]

Saved a workbook using xlDialogSaveAs, now it has a password ?!?
 
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


Court

Saved a workbook using xlDialogSaveAs, now it has a password ?!?
 
=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



All times are GMT +1. The time now is 05:33 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com