Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 09 июня 2023, 23:44

Название: Vba макрос информационное сообщение
Отправлено: Посетитель от 09 июня 2023, 23:44
Добрый день! Есть файл с макросом по преобразованию таблицы excel.
Необходимо чтобы при нажатии Сохранить, выходило сообщение для пользователя "ты ввел необходимые макросы?". Далее выбор значения "да" или "нет". Если ответ "да", то автоматическое сохранение файла.
Подскажите пожалуйста как это можно прописать через vba.
Перелопатила кучу информации, но ответ пока не нашла.
Название: От: Vba макрос информационное сообщение
Отправлено: Администратор от 10 июня 2023, 07:04
Что такое "Сохранить"? Это какая-то кнопка или что? Сделайте скрин "Сохранить".
Название: От: Vba макрос информационное сообщение
Отправлено: Посетитель от 10 июня 2023, 23:37
Да, просто сохранить файл
Название: От: Vba макрос информационное сообщение
Отправлено: Администратор от 11 июня 2023, 07:30
Сюда вы хотите щёлкать (см. скриншот)?
Название: От: Vba макрос информационное сообщение
Отправлено: Посетитель от 11 июня 2023, 13:37
Да)
Название: От: Vba макрос информационное сообщение
Отправлено: Администратор от 11 июня 2023, 13:50
Сообщение должно быть только в одном файле, в котором макрос?
Или есть ещё файлы, в которых тоже нужно выводить сообщение?
Название: От: Vba макрос информационное сообщение
Отправлено: Посетитель от 11 июня 2023, 16:55
Только в одном файле
Название: От: Vba макрос информационное сообщение
Отправлено: Администратор от 11 июня 2023, 17:17
Нужно внутрь вашего файла-макроса, в модуль книги поместить этот макрос.
Прикладываю файл. Макрос находится в модуле "Эта книга".

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
    If MsgBox("Ты ввёл необходимые макросы?", vbExclamation + vbYesNo) = vbNo Then
        MsgBox "Изменения не сохранены.", vbExclamation
        Cancel = True
    Else
        MsgBox "Изменения сохранены.", vbInformation
    End If
   
End Sub
Название: От: Vba макрос информационное сообщение
Отправлено: Посетитель от 11 июня 2023, 21:08
Спасибо Вам огромнейшее! Макрос работает!