I want the file to open Read Only WITHOUT prompt

[melodramatic]

I have a macro that opens up a file of forms, makes customizations, and saves each worksheet in that file as it's own form in the new project. It works great (self pat on the back here), EXCEPT that I have users complain that they have to hit the Read-Only button. Obviously, having to wait the extra 10 seconds for the macro to pull the file up before hitting read only is 10 seconds totally wasted. They NEED to hit the macro button then wander off to the coffee room.

Cough cough ... now that I'm past the grrr point...

The "Forms for Macro" file has been saved with a password to modify. I don't need any users going in an messing with the coding in that file. How do I set the Workbooks.Open so that it doesn't prompt them for the password, but instead just opens the file read only?

Thanks so much for helping!

Sub CompleteForms()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    
    Workbooks.Open Filename:= "P:\LAB\TESTING PROJECTS\MACRO\Forms for Macro.xlsx"
    Sheets("List").Select

 

[melodramatic]

One small thing I just thought of - I don't mind using my password in the macro, if it can be used to bypass the prompt, and as long as I can have it open in the suggested read-only, as well.

So, that would change my coding (thus far), to:

Sub CompleteForms()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    
    Workbooks.Open Filename:= "P:\LAB\TESTING PROJECTS\MACRO\Forms for Macro.xlsx", Password:=PWord
    Sheets("List").Select

So, what do I do after that to have it accept the read only suggestion?

 

[melodramatic]

Bump? Please, I know this has to be easy for someone not as newbie to VBA as I am.

 

[shg]

Have you looked in Help at the arguments for Workbooks.Open?

 

[melodramatic]

I've tried, and all I get is errors.

MSDN shows the following: expression .Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

So, what I've tried is this:

    Workbooks.Open (Filename:= "P:\LAB\TESTING PROJECTS\MACRO\Forms for Macro.xlsx", ReadOnly:-True)

I get a Compile error: Expected: named parameter

I know it's something simple that I'm doing wrong - but what???

 

[Kamolga]

I do not have any file to try but maybe something like

Application.ActiveProtectedViewWindow.Edit

 

[shg]

No parens, and the hyphen should be an equals sign:

  Workbooks.Open Filename:="P:\LAB\TESTING PROJECTS\MACRO\Forms for Macro.xlsx", _
                 ReadOnly:[B][COLOR="#FF0000"][SIZE=3]=[/SIZE][/COLOR][/B]True

 

[melodramatic]

An oops on me typing it in - I did have the "=" rather than "-" - but, meanwhile

THANK YOU! Removing the parenthesis took care of the problem.

 

[shg]

You're welcome.