Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запрет копирования данных с листа екзеля / 3 сообщений из 3, страница 1 из 1
01.09.2005, 07:59:41
    #33244829
Perc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрет копирования данных с листа екзеля
Из внешней программы создаю документ на основе шаблонного документа. Ставлю защиту листа, защиту книги с паролями чтобы выделять нельзя было. Вроде все нориально, но остаеться возможность сохранить документ. Если его сохранить а потом открыть, то вновь открывается возможность выделять ячейки на листе и копировать в буфер, тем самым лист можно без проблем скопировать в новый и там редактировать цифирьки.
Можно ли запретить вообще как либо редактировать копировать сохраниять документ?
...
Рейтинг: 0 / 0
01.09.2005, 18:44:04
    #33247012
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрет копирования данных с листа екзеля
нет, нельзя.
...
Рейтинг: 0 / 0
21.09.2005, 22:35:26
    #33282534
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрет копирования данных с листа екзеля
Можно запретить сохранение под другим именем:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lReply As Long
    
    If SaveAsUI = True Then
        lReply = MsgBox("Сохранить под другим именем нельзя!!!" & _
             "Сохранить под старым именем?", vbQuestion + vbOKCancel)
        Cancel = (lReply = vbCancel)
        If Cancel = False Then Me.Save
        Cancel = True
    End If
End Sub

Источник данной процедуры:
http://]www.ozgrid.com/BookExamples/excel-hack-examples.htm

________________
Мечты сбываются.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запрет копирования данных с листа екзеля / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]