:: Visual Foxpro, Foxpro for DOS
Установить пароль в Excel через макрос
Sergeynizamov
Автор

Сообщений: 73
Дата регистрации: 21.09.2018
Доброе время суток! если кто уже сталкивался подскажите или скиньте ссылку! попытался сам разобраться и найти! не много не допонимаю как сделать!

With loexcel
.Workbooks.Open(alltrim(sys(5))+alltrim(curdir())+"Blank\Blanki.xls",)
.Sheets("KorrekMass").Copy
.DisplayAlerts=.f.
.ActiveWindow.Close
.Windows("Blanki.xls").Activate
...
.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.
Password = "12345"
loexcel.visible=.t.
Endwith
Попробовал на воять такую штуку, вроде как блокирует, но пароль не устанавливает, в итоге могу в рецензировании снять защиту

Заранее благодарю за помощь
Ratings: 0 negative/0 positive
Re: Установить пароль в Excel через макрос
ssa

Сообщений: 12999
Откуда: Москва
Дата регистрации: 23.03.2005
Sergeynizamov
alltrim(sys(5))+alltrim(curdir()
Давно ли упомянутые функции стали возвращать результаты с концевыми пробелами? Или просто лепим обрезку пробелов на любые строки? Вам платят за количество знаков?

------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive
Re: Установить пароль в Excel через макрос
Каратаев

Сообщений: 3974
Откуда: Алматы
Дата регистрации: 04.12.2001
Вот здесь же на форуме нашёл:
lcOutFile = "test.xls"
lcPwd = "123"
TRY
loXls = CreateObject("Excel.Application")
CATCH TO loErr
MESSAGEBOX("Ошибка # " + TRANSFORM(loErr.ErrorNo) + " в строке " + TRANSFORM(loErr.LineNo) + ": " + loErr.Message, 0+16, ERROR_CAPTION)
ENDTRY
IF TYPE("loErr") = "O"
RETURN llOk
ENDIF
loBook = loXls.Workbooks.Open(lcOutFile)
WITH loBook
.ActiveSheet.EnableSelection = xlNoSelection && xlNoRestrictions/xlUnlockedCells/xlNoSelection
.ActiveSheet.Protect(lcPwd) && защита активного листа
* .Sheets(1).Protect(lcPwd) && или по номеру листа
.Protect(lcPwd, .t., .f.) && защита книги
.Save()
ENDWITH
Вот ссылка: forum.foxclub.ru


------------------
Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.
Ratings: 0 negative/0 positive
Re: Установить пароль в Excel через макрос
Sergeynizamov
Автор

Сообщений: 73
Дата регистрации: 21.09.2018
Каратаев, Огромное спасибо! то что надо! ОГРОМНОЕ СПАСИБО!

Тема закрыта.



Исправлено 1 раз(а). Последнее : Sergeynizamov, 30.03.21 14:57
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 26 (Гостей: 26)

© 2000-2024 Fox Club 
Яндекс.Метрика