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