Считывание данных из запароленного файла Excel - VB

Формулировка задачи:

Доброго времени суток! Возникла такая ситуация....считываю данные из Excel файла и с этим проблем нет, однако если на файле стоит пароль на редактирование(на чтение доступ есть, но при открытии спрашивает пароль), то ничего не получается. Подскажите, пожалуйста, как открывать файл только для чтения? Заранее признателен.

With CreateObject("Excel.Application")
     '.Visible = True
     With .Workbooks.Open(FileName:="L:\CC_OrgInfo\CCQUERY\my_card\data.xlsx", UpdateLinks:=0)
          With .Worksheets(1)
            Range("H2").Select
            ActiveCell.FormulaR1C1 = Environ("USERNAME")
            Range("I2").Select
            ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-8]:C[-7],2,FALSE)"
            Label1.Caption = .Range("I2").Value
            Range("H2").Select
            ActiveCell.FormulaR1C1 = Label1.Caption
            Range("I2").Select
            ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-7]:C[-6],2,FALSE)"
            Label2.Caption = .Range("I2").Value
          End With
          .Close saveChanges:=False 'False
     End With
     .Quit
End With

Решение задачи: «Считывание данных из запароленного файла Excel»

textual
                            Листинг программы 
                        

                            With CreateObject("Excel.Application")
     '.Visible = True
     With .Workbooks.Open(FileName:="L:\CC_OrgInfo\CCQUERY\my_card\data.xlsx", UpdateLinks:=0, ReadOnly:=True)
          With .Worksheets(1)
            Range("H2").Select
            ActiveCell.FormulaR1C1 = Environ("USERNAME")
            Range("I2").Select
            ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-8]:C[-7],2,FALSE)"
            Label1.Caption = .Range("I2").Value
            Range("H2").Select
            ActiveCell.FormulaR1C1 = Label1.Caption
            Range("I2").Select
            ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[-7]:C[-6],2,FALSE)"
            Label2.Caption = .Range("I2").Value
          End With
          .Close saveChanges:=False 'False
     End With
     .Quit
End With
                        