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