Считывание данных из запароленного файла 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