Выполнение макроса сортировки на защищенном листе

[Argonin]

Доброе время суток!
Ситуация следующая: есть файл exсel, в нём защищены некоторые столбцы (дабы не меняли формулы). Лист защищён. Необходим макрос для кнопки. При нажатии на которую диапазон с B4 по AX50 сортировался бы по убыванию по столбцу R. Я так понимаю макрос должен сначала снять защиту листа, отсортировать, потом поставить на место. Вот только я в макросас ничего ВООБЩЕ не понимаю. Может кто помочь?

[boa]

Здравствуйте,
Достаточно при открытии файла правильно установить защиту листа
Обязательно укажите свойство UserInterfaceOnly:=True

Код Выделить Развернуть


'...
   .Protect _
        Password:=MyPass, _
        UserInterfaceOnly:=True
'...

и все макросы будут работать.
И тему подправьте вместо "Написание макроса для сортировки в защищённой книге", напишите "Выполнение макроса сортировки на защищенном листе"

[Argonin]

Спасибо огромное

[vikttur]

Или снимать пароль, после сортировки ставить:

Код Выделить Развернуть

With Worsheets("Лист1")
       .Unprotect("суперпароль")
       .........................
       .Protect("суперпароль")
End With