Запрет на печать и сохранение документов doc, xls.

[3oppo]

АХ 3.0 SP 5

Как наложить запрет (выборочно) на печать и сохранение, открываемых документов (doc, xls)?

Смотрел как вариант отключение этих опций меню макросами, но как эти макросы привязать к любому файлу? Открытие в АктивХ, нескольких документов привело к проблемам.. В связи с чем вопрос, может кто уже делал подобное?

[Андре]

Макросы можно вставлять (и запускать) программно в момент создания документов.

Вставка макроса:

public void setVBACode(str _code)
{
     COM vbp;              
     COM vbc;              
     COM vbmdl;          
     COM vbcode;        
     ;
     vbp = comDocument.VBProject();
     vbc = vbp.VBComponents();
     vbmdl = vbc.Add(1);
     vbcode = vbmdl.CodeModule();
     vbcode.InsertLines(vbcode.CountOfLines() + 1, _code);
}

Запуск макроса:

void runVBACode(str _name)
{
    comApplication.run(_name);
}

Перед использованием надо разрешить программный доступ к Excel в его настройках.

[3oppo]

Документ уже создан до меня.. Мне его нужно только открыть, так что бы нельзя было печатать и сохранять.

[Андре]

Вставляйте макросы и запускайте их в момент открытия документа.

[Андре]

Собственно сам текст макроса, который надо вставлять в открываемый документ:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
End Sub

[Владимир Максимов]

По большому счету - это невозможно. Если на экране отображена "картинка" то распечатать ее можно будт очень многими способами. Начиная от PrintScreen и копирования в другой файл и кончая банальной перезаписью с листа.

Максимум что Вы можете сделать - это заблокировать отдельные пункты меню. Но, во-первых, это потребует фактически отключение систем безопасности (разрешение записи и выполнения макросов), а, во-вторых, как было указано ранее, если пользователю очень надо, он найдет способ обойти ограничение

[Андре]

Не, ну если очень нужно - можно реализовать задачу, которая запускается на AOS-е или пакетном сервере, открывает документ, сохраняет его в JPEG или PDF и добавляет серую надпись поперек листа - DRAFT (чтобы нельзя было распечатать). Полученный PDF возвращается пользователю.

[Владимир Максимов]

Серая надпись никак не может воспрепятствовать печати. Ну, разве что это не будет официальным документом. Так и запрет обычно пытаются ввести вовсе не для официальных документов, а для неких отчетов. Только напрочь забывают, что циферки из отчета банально можно переписать на бумажку

[3oppo]

Цитата:

Сообщение от Андре

Вставляйте макросы и запускайте их в момент открытия документа.

Чето не доганяю чего то..

Есть файл, abs.doc.. Как в него вставить макрос, а потом запустить?
Я ведь открываю файл во внешнем приложении WinApi::shellExecute(), так как ActiveX глючит (не хочет работать с несколькими файлами), как получить comDocument?

[Андре]

Как то так:

ComExcelDocument_Ru doc = new ComExcelDocument_Ru();
;
doc.open(filename);
doc.setVBACode(macro_text);

Код setVBACode(), который я привел, отсутствует в стандартном ComExcelDocument_RU - нужно будет создать соответствующий метод.

[3oppo]

Цитата:

Сообщение от Андре

Не, ну если очень нужно - можно реализовать задачу, которая запускается на AOS-е или пакетном сервере, открывает документ, сохраняет его в JPEG или PDF и добавляет серую надпись поперек листа - DRAFT (чтобы нельзя было распечатать). Полученный PDF возвращается пользователю.

Интересно.. Что можно почитать по этой теме?

[Андре]

PHP код:

 Интересно.. Что можно почитать по этой теме? 


Так сразу не скажу, но есть подозрение, что проще это сделать не X++ средствами. Например, создать .Net сборку, которая будет вызываться из Axapta и на основе Excel создавать PDF. Библиотеки под DOT.NET работающие с PDF имеются.

Еще можно посмотреть последние версии офиса - не умеют ли они сохранять данные в PDF формате (OpenOffice давно его поддерживает).

[3oppo]

Возникает вот такая ошибочка..

Цитата:

Метод "VBProject" в COM-объекте класса "_Workbook" возвратил код ошибки 0x800A03EC (<неизвестно>), который означает: Программный доступ к проекту Visual Basic не является доверенным.

Как это лечится?

[pitersky]

Цитата:

Сообщение от Владимир Максимов

Серая надпись никак не может воспрепятствовать печати. Ну, разве что это не будет официальным документом. Так и запрет обычно пытаются ввести вовсе не для официальных документов, а для неких отчетов. Только напрочь забывают, что циферки из отчета банально можно переписать на бумажку

Возможно, речь идёт как раз об официальных документах, типа Торг-12 или СФ.
Только в этом случае ИМХО проще новый репорт нарисовать - его заведомо не поправишь и не пересохранишь

[Андре]

Цитата:

Как это лечится?

В настройках Excel надо разрешить программный доступ. Местоположение настройки зависит от версии Excel:

2003: Tools - Macro - Security - Trusted Publishers - Trust Access To VB Project
2007: Excel Options - Trust Center - Trust Center Settings - Macro Settings - Trust Access To VB Project

[3oppo]

сенкс

[Андре]

100% - дело в этом. Проверьте не осталось ли запущенных экземпляров Excel, так как эта настройка разделяется между всеми экземплярами Excel.

[Андре]

Вот, кстати, я писал два метода. Один проверяет - установлена ли данная настройка. Второй - устанавливает флаг. Не гарантирую, что будет работать со всеми версиями Excel:

static boolean checkTrustedAccessToVBA()
{
    #winapi
    container   keyValue;
    int         regKey;
    str         keyPath = @"Software\Microsoft\Office\%1\Excel\Security";
    ;
    keyPath = strfmt(keyPath, gm_reportExcelApplication::getExcelVersion());
    regKey = WinAPI::regOpenKey(#HKEY_CURRENT_USER, keyPath, #KEY_READ);
    if(!regKey)
        return true;

    keyValue = WinAPI::regGetValue(regKey, 'AccessVBOM');
    WinAPI::regCloseKey(regKey);

    if(conlen(keyValue) != 1)
        return true;

    if(conpeek(keyValue, 1) == 1)
        return true;
    else
        return false;

static void setTrustedAccessToVBA()
{
    #winapi
    container   keyValue;
    int         regKey;
    str         keyPath = @"Software\Microsoft\Office\%1\Excel\Security";
    ;
    keyPath = strfmt(keyPath, gm_reportExcelApplication::getExcelVersion());
    regKey = WinAPI::regOpenKey(#HKEY_CURRENT_USER, keyPath, #KEY_WRITE);
    if(regKey)
    {
        WinAPI::regSetValueEx(regKey, 'AccessVBOM', #REG_DWORD, 1);
        WinApi::regCloseKey(regKey);
    }

[3oppo]

Ооо.. еще раз сенкс..
Но вот только макрос приведенный вами отказывается работать..
Прописывается нормально, но только почему то не отрабатывает?!

[konopello]

А я как то делал отчеты с макроссами, я тогда создавал темплейт и в нем писал макрос для автоматического выравнивания объединенных ячеек. Далее создавал новый документ на основании шаблона, на мой взгляд, это куда проще чем вставлять прямо в коде. Хотя как сказать....