need help using send keys

Hi,

I have a workbook which is password protected which I would like to open as read-only.

I managed to get it to work if i used the following

Sub Macro1()

'cancel password which is Stewart

'Dim extractor As String
'extractor = ThisWorkbook.Name

'make file read-only
Application.SendKeys ("%r") '("stewart~")
Workbooks.Open Filename:= _
"C:\Documents and Settings\ME\Desktop\Test.xls"
Sheets("home").Select

' ActiveWindow.Close

End Sub

however when I run the sendkeys function it works however it places the word stewart which is the password in my code any where that I have the cursor. Is there a way I could stop this?

here is one way:

Sub Macro1()

'cancel password which is Stewart

'Dim extractor As String
'extractor = ThisWorkbook.Name

'make file read-only

Workbooks.Open Filename:= _
"C:\Documents and Settings\ME\Desktop\Test.xls", _
Password:="stewart"
Sheets("home").Select

' ActiveWindow.Close

End Sub

I am not sure how that makes the file readonly, however.

--
Regards,
Tom Ogilvy


"funkymonkUK" wrote:

>
> Hi,
>
> I have a workbook which is password protected which I would like to
> open as read-only.
>
> I managed to get it to work if i used the following
>
> Sub Macro1()
>
> 'cancel password which is Stewart
>
> 'Dim extractor As String
> 'extractor = ThisWorkbook.Name
>
> 'make file read-only
> Application.SendKeys ("%r") '("stewart~")
> Workbooks.Open Filename:= _
> "C:\Documents and Settings\ME\Desktop\Test.xls"
> Sheets("home").Select
>
> ' ActiveWindow.Close
>
> End Sub
>
> however when I run the sendkeys function it works however it places the
> word stewart which is the password in my code any where that I have the
> cursor. Is there a way I could stop this?
>
>
> --
> funkymonkUK
> ------------------------------------------------------------------------
> funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
> View this thread: http://www.excelforum.com/showthread...hreadid=552580
>
>