VBA разработчикам. Если на Вашем предприятии развернут Outlook сервер и сервер документов общего пользования, и нет запретов на пересылку Excel файлов с макросами, то средствами Outlook возможно организовать рабочий процесс последовательного согласования Excel документов Должностными лицами (соответственно с учетками Outlook). Схема проекта очень простая: 1. «Форма для согласования» должна иметь отдельные макросы для каждого согласующего со следующим базовым содержанием:
[vba]
Код
Sub Master() Dim FileName As String, Location With ThisWorkbook With .Sheets("Email") FileName = .Range("B9").Value .Range("C5").Value = "Согласовано" .Range("D5").Value = Format(Now, "General Date") .Shapes("BOSS").Width = 130 .Shapes("BOSS").Height = 17 .Shapes("Master").Delete End With .SendMail FileName, "Согласование Документа" .Close SaveChanges:=True End With End Sub
[/vba]
2. Для утверждающего должен быть макрос преобразующий результирующий документ в .pdf формат со всеми сохраненными датами согласования, исключающими фальсификацию (Дата утверждения будет соответствовать дате и времени создания .pdf файла):
[vba]
Код
Sub BOSS() Dim SendName As String, Path As String With ThisWorkbook With .Sheets("Email") SendName = .Range("B9").Value .Range("C3").Value = "Ñîãëàñîâàíî" .Range("D3").Value = Format(Now, "General Date") .Shapes("BOSS").Delete Path = .Range("B1").Value End With .ExportAsFixedFormat Type:=xlTypePDF, FileName:=Path .Close SaveChanges:=True End With End Sub
[/vba]
3. Макросы цепляются к соответствующим кнопкам управления или к любым шейпам (Shapes), которые аккуратно размещаем на место подписей. После отработки макросов кнопки кодом последовательно удаляются, на месте которых сохраняется утверждение «Согласовано» и дата подписи. Соответственно макросы Вы можете снабдить массой различных назначений и функционала, но это уже другая тема….
VBA разработчикам. Если на Вашем предприятии развернут Outlook сервер и сервер документов общего пользования, и нет запретов на пересылку Excel файлов с макросами, то средствами Outlook возможно организовать рабочий процесс последовательного согласования Excel документов Должностными лицами (соответственно с учетками Outlook). Схема проекта очень простая: 1. «Форма для согласования» должна иметь отдельные макросы для каждого согласующего со следующим базовым содержанием:
[vba]
Код
Sub Master() Dim FileName As String, Location With ThisWorkbook With .Sheets("Email") FileName = .Range("B9").Value .Range("C5").Value = "Согласовано" .Range("D5").Value = Format(Now, "General Date") .Shapes("BOSS").Width = 130 .Shapes("BOSS").Height = 17 .Shapes("Master").Delete End With .SendMail FileName, "Согласование Документа" .Close SaveChanges:=True End With End Sub
[/vba]
2. Для утверждающего должен быть макрос преобразующий результирующий документ в .pdf формат со всеми сохраненными датами согласования, исключающими фальсификацию (Дата утверждения будет соответствовать дате и времени создания .pdf файла):
[vba]
Код
Sub BOSS() Dim SendName As String, Path As String With ThisWorkbook With .Sheets("Email") SendName = .Range("B9").Value .Range("C3").Value = "Ñîãëàñîâàíî" .Range("D3").Value = Format(Now, "General Date") .Shapes("BOSS").Delete Path = .Range("B1").Value End With .ExportAsFixedFormat Type:=xlTypePDF, FileName:=Path .Close SaveChanges:=True End With End Sub
[/vba]
3. Макросы цепляются к соответствующим кнопкам управления или к любым шейпам (Shapes), которые аккуратно размещаем на место подписей. После отработки макросов кнопки кодом последовательно удаляются, на месте которых сохраняется утверждение «Согласовано» и дата подписи. Соответственно макросы Вы можете снабдить массой различных назначений и функционала, но это уже другая тема….VovaK
Всем удачи. У нас все получится. С уважением, Владимир.
Сообщение отредактировал Serge_007 - Пятница, 27.10.2023, 09:22
Реальный проект тяжелый и не всем интересен. Выкладываю пробник, который работает на ура в Outlook 2007. С Outlook 2019 однако проблемы . Он пересылает версию только для чтения и отвязывает макросы от кнопок.
С Outlook не знаком, задал вопрос в Вашем форуме. Надеюсь на помощь.
С уважением, Владимир.
Здравствуйте Сергей,
Реальный проект тяжелый и не всем интересен. Выкладываю пробник, который работает на ура в Outlook 2007. С Outlook 2019 однако проблемы . Он пересылает версию только для чтения и отвязывает макросы от кнопок.
С Outlook не знаком, задал вопрос в Вашем форуме. Надеюсь на помощь.
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
