powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Защитить лист в VFP
3 сообщений из 3, страница 1 из 1
Защитить лист в VFP
    #35619486
Алена_О
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне подсказали ранее как защитить лист в Еxcel средствами VFP:
ex.Workbooks(1).ActiveSheet.Protect(,.f.,.t.,.f.)
но в данном случае нельзя изменять длину, ширину солбцов ...

Я попыталась так:

WITH .ActiveSheet.Protect
.DrawingObjects=.F.
.Contents=.T.
.Scenarios=.F.
.AllowFormattingCells=.T.
.AllowFormattingColumns=.T.
.AllowFormattingRows=.T.
.AllowInsertingColumns=.T.
.AllowInsertingRows=.T.
.AllowInsertingHyperlinks=.T.
.AllowDeletingColumns=.T.
.AllowDeletingRows=.T.
.AllowSorting=.T.
.AllowFiltering=.T.
.AllowUsingPivotTables=.T.
ENDWITH

Но не работает. Подскажите: где неверно.
...
Рейтинг: 0 / 0
Защитить лист в VFP
    #35619749
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Неврно то, что вы рассматриваете DrawingObjects, Contents, и т.п. как некие свойства объекта Protect. А на самом деле - это всего-лишь имена параметров метода Protect. Т.е. вам надо как и раньше, выполнять

Код: plaintext
ex.Workbooks( 1 ).ActiveSheet.Protect(,.f.,.t.,.f.) 

расставив .T. и .F. на нужных местах. По порядку следования параметров в методе Protect(). Для ваших настроек примерно так:

Код: plaintext
ex.Workbooks( 1 ).ActiveSheet.Protect(,.f.,.t.,.f.,.t.,.t.,.t.,.t.,.t.,.t.,.t.,.t.,.t.,.t.) 
...
Рейтинг: 0 / 0
Защитить лист в VFP
    #35619894
Алена_О
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо. Все нормально. Я так пробовала, но видно ошиблась в перечислении.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Защитить лист в VFP
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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