VBA No Read Only

[TextMonkey]

Hi again all,

I have some code that should prevent a "Read Only" copy of my workbook being opened. I have inserted it into the Workbook Code, but it has no effect.

Does anyone have an idea what I may be doing wrong? Wrong code, wrong place to put it - or both?

Thanks in advance!

Please Login or Register  to view this content.

[shg]

Maybe ...

Please Login or Register  to view this content.

[TMS]

Where in the workbook module.

Please post a sample workbook.

Regards

[barryleajo]

Have you put your code in the ThisWorkbook
Workbook_Open() event?

[TextMonkey]

thanks for your suggestions guys. I will look at them tomorrow when I'm at work and report back.

[TextMonkey]

Have you put your code in the ThisWorkbook
Workbook_Open() event?

Hi there,

Yes I have inserted the code into WorkBook_Open() event.

Private Sub Workbook_Open()
If Me.ReadOnly Then
MsgBox "..."
Me.Close SaveChanges:=False
End If
End Sub

Have tried this also to no avail.

Where in the workbook module.

Please post a sample workbook.

Regards

I have attached a essentially blank workbook to show where I have placed the code.

Any further suggestions?

[TextMonkey]

Last bump!

[shg]

My code works fine if you enable macros when it opens, or macros are enabled automatically via digital signature or opening from a trusted location.