View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Jack Jack is offline
external usenet poster
 
Posts: 23
Default Is .xls password protected.

Thank you for the info...

"Tom Ogilvy" wrote in message
...
Just replace "C:\Data6\AAABooks.xls" with a variable

How you populate that variable would be different in .Net than I would od

it
in Excel VBA.

--
Regards,
Tom Ogilvy

"Jack" wrote in message
...
Thanks for your code Tom,
Works beautifully...
It will be even more useful if you can modify your code so that the

target
file can be searched and selected from any windows directory.
Or am I asking too much?
Regards

"Tom Ogilvy" wrote in message
...
This is tested and works in Excel:

Sub AAATEst()
Dim wkbk As Workbook
On Error Resume Next
Set wkbk = Workbooks.Open("C:\Data6\AAABook.xls", _
Password:="", WriteResPassword:="")
On Error GoTo 0
If wkbk Is Nothing Then
MsgBox "Has Password"
End If
End Sub

It will open a workbook that is not password protected.

don't know if it will work for .Net.

--
Regards,
Tom Ogilvy


"Tim Marsden" wrote in message
...
Thanks for the reply

I am using vb.net interop, If I try and open a workbook using
XL.Workbooks.Open("ABC.xls") without supplying a password, it

prompts
me
for
one,.
I have DisplayAlerts = False set.

Tim


"Tom Ogilvy" wrote in message
...
Try to open it and handle the error

On Error Resume Next
set kb = Workbooks.Open("C:\MyFiles\Myfile.xls")
On Error goto 0
if kb is nothing then
msgbox "Has password"
exit sub
End if

--
Regards,
Tom Ogilvy

"Tim Marsden" wrote in message
...
Hi,

How do I tell if a .xls file has a password before I try and

open
it.
I
don't mean a Workbook password but a file password.
The one applied when you do a save as.

Tim