Opening password protected files

I want to open a number of other files that are password protected from my main file. I know all the passwords and want to use code to automatically open and close the files after getting data from each file.

Any help greatly appreciated.

Nick

Workbooks.Open "C:\MyFolder\MyFiles.xls", password:="ABCD"

--
Regards,
Tom Ogilvy

"Nick S" <Nick.S.1y8fha_1131544201.9665@excelforum-nospam.com> wrote in
message news:Nick.S.1y8fha_1131544201.9665@excelforum-nospam.com...
>
> I want to open a number of other files that are password protected from
> my main file. I know all the passwords and want to use code to
> automatically open and close the files after getting data from each
> file.
>
> Any help greatly appreciated.
>
> Nick
>
>
> --
> Nick S
> ------------------------------------------------------------------------
> Nick S's Profile:
http://www.excelforum.com/member.php...o&userid=16512
> View this thread: http://www.excelforum.com/showthread...hreadid=483480
>

Thanks Tom that solves one problem, I am using links and in order that I dont receive the updating links warning message open one file from another with the following code

Private Sub Workbook_Open()
Dim strPath As String

strPath = "\\Fiesta\Wg_memb_sec\Community Dividend\New Payments\Admin\Chq Details\"

Workbooks.Open strPath & "Cheque Payment Run.xls", UpdateLinks:=True
Windows("Payment Control.xls").Activate
ActiveWindow.Close SaveChanges:=False

End Sub

Can I add code so that I will not have to manually enter all the passwords for the 7 linked files.

Thanks

Nick.

Not that I am aware of.

--
Regards,
Tom Ogilvy


"Nick S" <Nick.S.1y8l9o_1131551719.4601@excelforum-nospam.com> wrote in
message news:Nick.S.1y8l9o_1131551719.4601@excelforum-nospam.com...
>
> Thanks Tom that solves one problem, I am using links and in order that I
> dont receive the updating links warning message open one file from
> another with the following code
>
> Private Sub Workbook_Open()
> Dim strPath As String
>
> strPath = "\\Fiesta\Wg_memb_sec\Community Dividend\New
> Payments\Admin\Chq Details\"
>
> Workbooks.Open strPath & "Cheque Payment Run.xls", UpdateLinks:=True
> Windows("Payment Control.xls").Activate
> ActiveWindow.Close SaveChanges:=False
>
> End Sub
>
> Can I add code so that I will not have to manually enter all the
> passwords for the 7 linked files.
>
> Thanks
>
> Nick.
>
>
> --
> Nick S
> ------------------------------------------------------------------------
> Nick S's Profile:
http://www.excelforum.com/member.php...o&userid=16512
> View this thread: http://www.excelforum.com/showthread...hreadid=483480
>