PDA

View Full Version : [SOLVED] Stop Read only



Juriemagic
10-20-2015, 02:28 AM
Hi good people, I just CANNOT find an example for a code to PREVENT read only. I want the workbook to open normally...I found "setattr,vbNormal"...or something like that, but its not working. Please would someone be so kind and give me the code for this. please... Thank you kindly..

mancubus
10-20-2015, 02:42 AM
try:


Private Sub Workbook_Open()

With ThisWorkbook
If .ReadOnly Then
MsgBox "Please do not open the workbook read-only."
.Close False
End If
End With

End Sub


copy to ThisWorkbook's code module.

Juriemagic
10-20-2015, 03:13 AM
Thanx Mancubus...Have a great day!

mancubus
10-20-2015, 04:17 AM
you are welcome.

please mark the thread as solved for future references.