pokud je soubor '1' zaheslovan heslem 'heslo', lze ho otevrit takto:
Sub otevrit()
Dim Soubor As String
Soubor = "c:\Documents and Settings\profil\Plocha\1.xlsx"
Workbooks.Open Filename:=Soubor, Password:="heslo"
End Subcitovat
Sub otevrit()
Dim Soubor As String
Soubor = "c:\Documents and Settings\profil\Plocha\1.xlsx"
Workbooks.Open Filename:=Soubor, Password:="heslo"
End Subcitovat