Нашел макрос, который защищает лист и при этом сохраняет возможность группировки.
[vba]
Код
Private Sub Workbook_Open() 'Update 20140603 Dim xWs As Worksheet Set xWs = Application.ActiveSheet Dim xPws As String xPws = "4321" ''Application.InputBox("Password:", xTitleId, "", Type:=2) xWs.Protect Password:=xPws, Userinterfaceonly:=True xWs.EnableOutlining = True End Sub
[/vba]
Что добавить? чтоб защита листа включалась с возможностью форматировать ячейки?
Спасибо!
Нашел макрос, который защищает лист и при этом сохраняет возможность группировки.
[vba]
Код
Private Sub Workbook_Open() 'Update 20140603 Dim xWs As Worksheet Set xWs = Application.ActiveSheet Dim xPws As String xPws = "4321" ''Application.InputBox("Password:", xTitleId, "", Type:=2) xWs.Protect Password:=xPws, Userinterfaceonly:=True xWs.EnableOutlining = True End Sub
[/vba]
Что добавить? чтоб защита листа включалась с возможностью форматировать ячейки?
For Each xWs In ThisWorkbook.Worksheets xWs.Protect Password:=xPws, UserInterfaceOnly:=True, AllowFormattingCells:=True xWs.EnableOutlining = True Next xWs
End Sub
[/vba]
Savall, [vba]
Код
Option Explicit
Private Sub Workbook_Open() Dim xWs As Worksheet
Dim xPws As String xPws = "4321"
For Each xWs In ThisWorkbook.Worksheets xWs.Protect Password:=xPws, UserInterfaceOnly:=True, AllowFormattingCells:=True xWs.EnableOutlining = True Next xWs
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
