Установить пароль в Excel через макрос

Доброе время суток! если кто уже сталкивался подскажите или скиньте ссылку! попытался сам разобраться и найти! не много не допонимаю как сделать!
[code]
With loexcel
.Workbooks.Open(alltrim(sys(5))+alltrim(curdir())+"BlankBlanki.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
[/code]
Попробовал на воять такую штуку, вроде как блокирует, но пароль не устанавливает, в итоге могу в рецензировании снять защиту
Заранее благодарю за помощь

Автор публикации

Пользователи не найдены
0
Оставить комментарий
Авторизация
*
*
Генерация пароля