Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Включить работу срезов сводной табл. на защищенном листе
 
Здравствуйте!

Подскажите пожалуйста как макросом разрешить работу срезов на защищенном паролем 123 листе?
На форуме нашел как разрешить работу макросов на защищенном листе (сделал чтоб можно было обновить таблицу). А какой макрос можно сюда дописать, чтоб еще и срезы заработали?

Спасибо!
Код
Sub Обновить()
Worksheets("Сводная").Unprotect Password:="123" '
   Range("C5").Select
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
    Range("E6").Select
   Worksheets("Сводная").Protect Password:="123"
End Sub

 
Я так понимаю, нужно приблизительно такой код вставить
Только куда именно?  8-0  Подскажите!
Код
 ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
Изменено: Николай Венгеров - 9 Апр 2018 13:31:23
 
По логике должно быть так
Код
Worksheets("Сводная").Protect Password:="123", Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
 
m.roman, Спасибо!

у меня получилось так
Код
Sub Обновить()
Worksheets("Сводная").Unprotect Password:="123"
   'первый макрос'
    End With
   Worksheets("Сводная").Protect Password:="11679", DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
Страницы: 1
Читают тему (гостей: 1)