Блокировка копирования в буфер

[maximus]

В скрипте есть маленькая неточность - sheet надо выбирать через workbook. Так работает.

com app,workbook, activeSheet, activeWindow, sheets;
...
;
app = this.getApplication();
workbook = app.workbooks.item(1);
sheets = workbook.sheets();
...
activeSheet.enableSelection(-4142);

PS Хотя, нет, первый вариант тоже работает. Попробуйте в Екселе поставить защиту листа вручную, создать пустой макрос, вставить туда

Sheets.Item(1).EnableSelection = xlNoSelection

и исполнить его. Работает.