Открытие файла Excel только для чтения - VB

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

Всем доброго времени суток! Столкнулся с такой проблемой. Сохраняю данные из Text1.Text в xls. Делаю это довольно банально:

                    Листинг программы
                
    F = FreeFile
    'открываем файл для добавления
    Open App.Path & "\" & User.FirstName & " " & User.LastName & " " & User.Other & ".xls" For Append As #F
    Print #F, Text1.Text
    Close #F

После этого открываю файл Excel и меня ширину столбцов:

                    Листинг программы
                
objExcel.Visible = True
objExcel.Workbooks.Open (File1.Path & "\" & File1.FileName)
objExcel.Columns("A:A").EntireColumn.AutoFit
objExcel.Columns("B:B").EntireColumn.AutoFit
Set objExcel = Nothing

Далее пытаюсь сохранить проделанные изменения, НО книга открывается только для чтения и предлагает сохранить копию документа, что не есть хорошо. Если я просто открывают документ(не из среды VB), то он мне выдает следующее "Действительный формат открываемого документа отличается от указываемого его расширением файла. Перед открытием этого файла убедитесь, что он не поврежден и получен из надежного источника. Открыть этот файл сейчас?", я подтверждаю открытие, пересохраняю файл и только после этого он нормально открывается из VB. Как избежать подобное недоразумение? Наперед понимаю, что это скорее всего потому что я коряво делаю сохранение в файл:

                    Листинг программы
                
    F = FreeFile
    'открываем файл для добавления
    Open App.Path & "\" & User.FirstName & " " & User.LastName & " " & User.Other & ".xls" For Append As #F
    Print #F, Text1.Text
    Close #F

Заранее признателен!

Решение задачи: «Открытие файла Excel только для чтения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
With CreateObject("excel.application")
  With .Workbooks.Open(App.Path & "\test.txt")
    .SaveAs App.Path & "\test.xls", FileFormat:=56
  End With
  .Quit
End With
End Sub