password protected

[greg]

Hello,
I need to write a program to open and update a bunch of excel documents.
problem is, that some are password protected.
and if i hit them, then the user password dialog opens.
is there a way to tell if a document is password protected? an open
command?
so i know to skip that document?

thanks

 

[Guest]

Dave Peterson suggested this to as similar question:

Dim wb as Workbook
For i = 1 To .FoundFiles.Count
Set wb = Nothing
On Error Resume Next
Set wb = Workbooks.Open(Filename:=.FoundFiles(i), _
Password:="", writerespassword:="")
On Error GoTo 0
If wb Is Nothing Then
'don't do anything, it wasn't opened!
MsgBox "not opened"
Else
'do your real work here
MsgBox "it's open"
End If
Next i

This was using the FileSearch Object, but you can use the approach with any
list of files.

 

[greg]

awesome!
I will give it a try

Dave Peterson suggested this to as similar question:

Dim wb as Workbook
For i = 1 To .FoundFiles.Count
Set wb = Nothing
On Error Resume Next
Set wb = Workbooks.Open(Filename:=.FoundFiles(i), _
Password:="", writerespassword:="")
On Error GoTo 0
If wb Is Nothing Then
'don't do anything, it wasn't opened!
MsgBox "not opened"
Else
'do your real work here
MsgBox "it's open"
End If
Next i

This was using the FileSearch Object, but you can use the approach with any
list of files.