ник: Та
вот код:
Private Sub запуск_Click()
On Error GoTo Err_
Dim strAppName As String
strAppName = CurrentProject.Path & "\запуск.xls"
Set app = CreateObject("Excel.Application")
With app
.Visible = True
.Workbooks.Open strAppName
End With
Set app = Nothing
Exit_:
Exit Sub
Err_:
MsgBox Err.Description
Resume Exit_
End Sub
открывает файл только для чтения, соответственно при сохранении предлагает сохранить под другим именем.
Подскажите чего не хватает, чтобы файл открывался с возможностью изменения (при открытии книги выполняется макрос с расчетами и сохранение обязательно).
Заранее спасибо.