ну например моя надстройка - сам пользуюсь Там в основе несложный код:
[vba]
Код
Sub locker(ByVal pass) Dim sh As Integer, i As Integer sh = ActiveWorkbook.Worksheets.Count On Error Resume Next For i = 1 To sh If Not ActiveWorkbook.Worksheets(i).ProtectContents Then ActiveWorkbook.Worksheets(i).Protect Password:=pass ActiveSheet.EnableSelection = xlUnlockedCells End If Next End Sub
Sub unlocker(ByVal pass) Dim sh As Integer, i As Integer sh = ActiveWorkbook.Worksheets.Count On Error Resume Next For i = 1 To sh If ActiveWorkbook.Worksheets(i).ProtectContents Then ActiveWorkbook.Worksheets(i).Unprotect Password:=pass Next End Sub
[/vba]
ну например моя надстройка - сам пользуюсь Там в основе несложный код:
[vba]
Код
Sub locker(ByVal pass) Dim sh As Integer, i As Integer sh = ActiveWorkbook.Worksheets.Count On Error Resume Next For i = 1 To sh If Not ActiveWorkbook.Worksheets(i).ProtectContents Then ActiveWorkbook.Worksheets(i).Protect Password:=pass ActiveSheet.EnableSelection = xlUnlockedCells End If Next End Sub
Sub unlocker(ByVal pass) Dim sh As Integer, i As Integer sh = ActiveWorkbook.Worksheets.Count On Error Resume Next For i = 1 To sh If ActiveWorkbook.Worksheets(i).ProtectContents Then ActiveWorkbook.Worksheets(i).Unprotect Password:=pass Next End Sub
файл пихаем в папку надстроек: у меня это C:\Users\Username\AppData\Roaming\Microsoft\AddIns Далее запускаем Excel - Файл/Параметры/Надстройки/ и внизу посередине кнопца Перейти В появившемся диалоговом ставим галку, жмём ОК. Осталось только кнопку запуска примотать-Файл/Параметры/Панель быстрого доступа Выбрать из... Макросы выбираем Защищалка и добавить - теперь на панели быстрого доступа кнопца, активирующая надстройку
файл пихаем в папку надстроек: у меня это C:\Users\Username\AppData\Roaming\Microsoft\AddIns Далее запускаем Excel - Файл/Параметры/Надстройки/ и внизу посередине кнопца Перейти В появившемся диалоговом ставим галку, жмём ОК. Осталось только кнопку запуска примотать-Файл/Параметры/Панель быстрого доступа Выбрать из... Макросы выбираем Защищалка и добавить - теперь на панели быстрого доступа кнопца, активирующая надстройкуbuchlotnik
Сообщение отредактировал buchlotnik - Четверг, 02.04.2015, 09:14
buchlotnik, Паролит стопкой, спасибо, все получилось!!!! А можно как-нибудь уменьшить ограничения при таком запароливании? Интересует ситуация, когда лист запаролен, но выделять можно все ячейки, и незащищенные можно было бы раскрашивать. Сейчас ни то, ни другое не удается сделать...
buchlotnik, Паролит стопкой, спасибо, все получилось!!!! А можно как-нибудь уменьшить ограничения при таком запароливании? Интересует ситуация, когда лист запаролен, но выделять можно все ячейки, и незащищенные можно было бы раскрашивать. Сейчас ни то, ни другое не удается сделать...ЩтуКув
Сообщение отредактировал ЩтуКув - Четверг, 02.04.2015, 11:45
ЩтуКув, тут придётся выбирать - либо можно выделять все, но тогда и подкрасить можно будет все; либо можно выделять только защищенные, но и подкрасить тогда можно только их. Чтобы выделять можно было все в процедуре locker замените[vba]
ЩтуКув, тут придётся выбирать - либо можно выделять все, но тогда и подкрасить можно будет все; либо можно выделять только защищенные, но и подкрасить тогда можно только их. Чтобы выделять можно было все в процедуре locker замените[vba]
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Там в основе несложный код:
