Forcing read-only

EconSean · May 10th, 2002, 09:27 AM

I was wondering if someone could instruct me on how to force Excel to open a file as read-only.

I tried this in the Auto_Open sub, but the user is still prompted (I don't want them to be able to click "No" when asked if they should open as read only, I want the "Yes" forced on them.):

Application.DisplayAlerts = False

I hope this makes sense. Thanks in advance for any hints.

Regards,

Sean

wilkisa · May 10th, 2002, 10:05 AM

The only way I know to set it as read-only so that you are NOT prompted to say Yes or NO, is to go into the Windows Explorer, locate the file, right-click and go to Properties and change the file properties to READ-ONLY.

I hope this helps

NateO · May 10th, 2002, 10:18 AM

Depends on what you're doing. If it's for your sake, you need to open the file with a VBA procedure (from a different workbook) with your alerts turned to false.

If it's to make decisions for others, you'll need to save the file with Windows variety of read-only (like wilkisa mentioned) with code like:

Code:

SetAttr activeworkbook.fullname, vbReadOnly

Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-10 09:20 ]

dk · May 10th, 2002, 11:30 AM

Or you could try:-

Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub

Obviously you could allow certain people read/write access by use of some IF statements and by checking some criteria e.g. the Windows username.

HTH,
Dan

May 10th, 2002, 10:05 AM	#2
wilkisa Board Regular Join Date: Apr 2002 Location: Decatur IL, USA Posts: 494	The only way I know to set it as read-only so that you are NOT prompted to say Yes or NO, is to go into the Windows Explorer, locate the file, right-click and go to Properties and change the file properties to READ-ONLY. I hope this helps __________________ Thanks, Shirlene

May 10th, 2002, 10:18 AM	#3
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	Depends on what you're doing. If it's for your sake, you need to open the file with a VBA procedure (from a different workbook) with your alerts turned to false. If it's to make decisions for others, you'll need to save the file with Windows variety of read-only (like wilkisa mentioned) with code like: Code: SetAttr activeworkbook.fullname, vbReadOnly Hope this helps. _________________ Cheers, NateO [ This Message was edited by: NateO on 2002-05-10 09:20 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 10th, 2002, 09:27 AM	#1
EconSean Board Regular Join Date: Apr 2002 Location: Philadelphia, PA Posts: 125	I was wondering if someone could instruct me on how to force Excel to open a file as read-only. I tried this in the Auto_Open sub, but the user is still prompted (I don't want them to be able to click "No" when asked if they should open as read only, I want the "Yes" forced on them.): Application.DisplayAlerts = False I hope this makes sense. Thanks in advance for any hints. Regards, Sean

May 10th, 2002, 11:30 AM	#4
dk MrExcel MVP Join Date: Feb 2002 Location: Sydney, Australia Posts: 2,908	Or you could try:- Private Sub Workbook_Open() ThisWorkbook.ChangeFileAccess xlReadOnly End Sub Obviously you could allow certain people read/write access by use of some IF statements and by checking some criteria e.g. the Windows username. HTH, Dan