Take a look at .open in VBA's help. You'll see that it has a parm to tell excel
to open the file readonly:

If testStr = "" Then
Call NotAvailable
Else
Workbooks.Open "C:\Contract Templates\BB-Pup-Chassis-2006_R1C0.xls", _
readonly:=true
End If

There are other options for that .open statement, too.

BEEJAY wrote:

Dave, Thank-you

I have one more problem, now.
If possible, I need to open the File(s) as Read Only
My attempts shown below.
F8 gives me: Compile error, Syntax error
Other times, the curser stays on 'AS', and message is Compile error,
expect End of Statement.
I'm positive that I'm missing the obvious (again), but...... Help?!!

testStr = Dir("C:\Contract Templates\HP-Truck-2006_R1C0.xls")
On Error GoTo 0
If testStr = "" Then
Call NotAvailable

Else: Workbooks.Open ("C:\Contract Templates\HP-Truck-2006_R1C0.xls",
[ReadOnly]) As Workbook

End If
End Sub

"Dave Peterson" wrote:

You don't need the () in the workbooks.open line:

If testStr = "" Then
Call NotAvailable
Else
Workbooks.Open "C:\Contract Templates\BB-Pup-Chassis-2006_R1C0.xls"
End If

Dave Peterson wrote:

If testStr = "" Then
Call NotAvailable
Else
Workbooks.Open ("C:\Contract Templates\BB-Pup-Chassis-2006_R1C0.xls")
End If

BEEJAY wrote:

Thanks for your response.
I now have the following, but it comes up with
Compile error - Else without IF
What am I missing here?

Dim testStr As String
testStr = ""
On Error Resume Next
testStr = Dir("C:\Contract Templates\BB-Pup-Chassis-2006_R1C0.xls")
On Error GoTo 0

If testStr = "" Then Call NotAvailable
Else: Workbooks.Open ("C:\Contract
Templates\BB-Pup-Chassis-2006_R1C0.xls")
End If
Thank-you

"Dave Peterson" wrote:

If I don't have many to check, I do it inline.

dim testStr as string
.....
teststr = ""
on error resume next
teststr = dir("C:\Contracts\BB-Pup-Chassis-2006_R0C0.xls")
on error goto 0

if teststr = "" then
'not found
else
'was found
end if

Watch you're typing, too. You have a vertical bar instead of a backslash in
that first line.


BEEJAY wrote:

SLOWLY waking up this lovely Friday:
Now have:
If Exists("C:\Contracts|BB-Pup-Chassis-2006_R0C0.xls") Then
Workbooks.Open ("C:\Contracts\BB-Pup-Chassis-2006_R0C0.xls")
Else: Call NotAvailable

the 1st line comes up with a complie error - Sub or Function not defined.
Now I am truly Stuck.
Help Please.

End Sub

"BEEJAY" wrote:

Further:
The code that selects the files are as per this sample:
Sub BB_Chassis()
Workbooks.Open ("C:\Contracts\BB-Pup-Chassis-2006_R0C0.xls")
End Sub

I wondering if an If-Then_Else could somehow be used.
If Exits, then select/open Work Book
Else, Call Message
Something like that?



"BEEJAY" wrote:

Used J-Walks Menu maker to create menu of frequently used Spread-Sheets.
This add-in will be sent to all our salesmen.
The menu lists ALL of the available Sp.Sheets, BUT not every salesman gets
every Sp.Sheet.
When a non-existant Sp.Sheet is selected from menu, error message pops up:
"C:\ .................... (file Name), could not be found. Check spelling
...............

I'd like to NOT have this message come up, but replace it with a custom
message,
something like: The requested file is not on your available list. Please
select the correct template.
Therefo Can I deactivate/delete the VBA message? If yes, How?
How can I program in a message that tests for the requested Sp. Sheet, and
selects the Sp. Sheet, if exists, or else comes up with my custom message?
I hope this makes sense.
Help!!


--

Dave Peterson


--

Dave Peterson

--

Dave Peterson


--

Dave Peterson