Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Поставить защиту с паролем на лист

Автор: temr 22.1.2008, 11:04

Добрый день Всем! Стоит следующая задача необходимо поставить защиту листа от изменения с паролем на все листы книги . Как сделать защиту на все листы без пароля я разобрался а как в макросе прописать пароль на защиту каждого листа в этом проблема Заранее благодарю за ответы  Тимур

Автор: abyrval 22.1.2008, 11:33

например Код ActiveSheet.Protect Password:="123", DrawingObjects:=True, [Contents:=True, Scenarios:=True, UserInterfaceOnly:=True  ActiveSheet.Unprotect "123" а это список возхможных аргументов: Код .Protect([Password], [DrawingObjects], [Contents], [Scenarios], [UserInterfaceOnly], [AllowFormattingCells], [AllowFormattingColumns], [AllowFormattingRows], [AllowInsertingColumns], [AllowInsertingRows], [AllowInsertingHyperlinks], [AllowDeletingColumns], [AllowDeletingRows], [AllowSorting], [AllowFiltering], [AllowUsingPivotTables])

Автор: temr 22.1.2008, 11:48

abyrval, спасибо

Автор: mihanik 23.1.2008, 21:08

Помечу решённым!!!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)