Доброго времени суток.
Прошу помощи, подозреваю, что ответ банален, но не могу найти простого ответа.
Есть файл, при открытии которого сделано диалогове окно для выбора опции пользователем.
Этот же файл должен открываться далее несколько раз подряд с автономным поправлением данных и записью под другим названием.
Вопрос, как сделать так, чтобы програмно при открытии файла выбералась кнопка "Отмена" при появлении MsgBox_а.
Ниже код на октрытие файла..
Заранее благодраю за помощь.
Прошу помощи, подозреваю, что ответ банален, но не могу найти простого ответа.
Есть файл, при открытии которого сделано диалогове окно для выбора опции пользователем.
Код |
---|
Private Sub Workbook_Open() If IsEmpty(Range("F1").Value) = False Then Dim answer As Integer answer = MsgBox("Update stocks?", vbQuestion + vbYesNo) If answer = vbYes Then Call UpdateStocks Else End If Else End If End Sub |
Этот же файл должен открываться далее несколько раз подряд с автономным поправлением данных и записью под другим названием.
Вопрос, как сделать так, чтобы програмно при открытии файла выбералась кнопка "Отмена" при появлении MsgBox_а.
Ниже код на октрытие файла..
Код |
---|
Sub OpenStock() Application.AskToUpdateLinks = False Workbooks.Open Filename:="\\nassrv\StockList.xls" ??? вот тут подозреваю должен быть эта команда вписана End Sub |