File options set as recommend read only

[JackDanIce]

Hi,

At work we have a file that when opened provides the message it should be opened as read-only (unless you wish to make changes). However, because I'm the only one that makes any changes, I want to change this so for me, this message is never displayed.

I can't put any code into the workbook (Sub Workbook_Open) code because this is executed after the read-only message is processed. At the same time, I do not want to disable this message (by turning off this prompt in Save As, Tools, General Options) for anyone else who opens this file.

Is it possible to do this so that difference people have different opening criteria?

Thanks,
Jack

 

[RoryA]

I think you would have to use code to open it, specifying the IgnoreReadOnlyRecommended argument.

 

[Ruddles]

Thinking out loud... you could load it from another workbook. Put some code in that workbook to recognise your logonid: if it recognises you, the main workbook opens with the correct password. Everyone else opens the main workbook directly.

How does that sound?

 

[JackDanIce]

Morning Rory,

Do you mean open the book from another module and specify the IgnoreReadOnly command from there?

I could create this in my personal macro book... Any thoughts/comments?

Best,
Jack

 

[JackDanIce]

Hi Ruddles,

You and Rory have the same idea; I may just put up with it for now and implement something in my personal macro workbook later - more of a convenience than an absolute requirement!

Thanks guys,
J

 

[Ruddles]

This works here:-

Option Explicit
Option Compare Text
 
Private Sub Workbook_Open()

  If Environ("username") = "ruddles" Then
    Workbooks.Open "c:\temp\mainbook.xls", , False, , , "password", True
    ThisWorkbook.Close False
  End If

End Sub

Put that in your 'bootstrap' workbook and when you open it, it will open your main workbook and then close itself.

Any good?

 

[JackDanIce]

Cheers Ruddles, that'll do very well!
J