Thanks for your help Dave.

The below works so that when I press 'read only' it closes the file and move
on. I want to be able to suppress the dialogue box completely so the code
doesn't stop:

For i = 1 To .FoundFiles.Count
Set wb = Workbooks.Open(Filename:=.FoundFiles(i), ReadOnly:=False,
Password:="")
On Error GoTo 0
If wb.ReadOnly Then
wb.Close
RO = RO + 1
Else
'do work here
end if
next i

"Dave Peterson" wrote:

I think you changed the suggested code.

If you did, you'll want to post your new version--or try it again with the
suggested code.



Shimmess wrote:

Didn't work. Still prompted me and when I hit cancel I get the following:

Run-Time error '1004':
Application-defined or object-defined error

Any suggestions?

"Dave Peterson" wrote:

Maybe:

For i = 1 To .FoundFiles.Count
set wb = nothing
on error resume next
Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="")
on error goto 0
if wb is nothing then
'don't do anything, it wasn't opened!
else
'do your real work here
end if
next i


Shimmess wrote:

I run VB code to cycle through a group of excel files and chenge their
properties using the below code:

For i = 1 To .FoundFiles.Count
Set wb = Workbooks.Open(Filename:=.FoundFiles(i))

Sometimes a file opens with the following:

Password
Enter password for write access, or open read only.
Password:_________
Cancel
Read Only

Is there a way for VB to hit cancel if this dialogue box appears?

--

Dave Peterson


--

Dave Peterson