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

[Pavarotti]

Лист защищен паролем.
На листе есть кнопки с назначенными макросами. Необходимо сделать так, чтобы при нажатии кнопок Excel не требовал ввода пароля.
Т.е. фактически должно одновременно выполнятся два условия - 1)сохранятся защита(паролем) некоторых ячеек от изменений и 2)выполнятся макросы без запроса этого самого пароля.
Пробовал вставлять ActiveSheet.Protect UserInterfaceOnly:=True везде где только можно, в т.ч. в обработчике открытия всей книги. Не помогло - один фиг запрашивает пароль.
Подскажите как реализовать?

[vikttur]

 With Sheets("ВАШ_ЛИСТ")
     .Unprotect (ВАШ_ПАРОЛЬ)
      .....
      .....
      .....
       .Protect (ВАШ_ПАРОЛЬ)
 End With

[VictorM]

Попробуйте еще так написать:

Worksheets(1).Protect Password:="Excel", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

[R Dmitry]

Сообщение от Pavarotti

Лист защищен паролем.
На листе есть кнопки с назначенными макросами. Необходимо сделать так, чтобы при нажатии кнопок Excel не требовал ввода пароля.
Т.е. фактически должно одновременно выполнятся два условия - 1)сохранятся защита(паролем) некоторых ячеек от изменений и 2)выполнятся макросы без запроса этого самого пароля.
Пробовал вставлять ActiveSheet.Protect UserInterfaceOnly:=True везде где только можно, в т.ч. в обработчике открытия всей книги. Не помогло - один фиг запрашивает пароль.
Подскажите как реализовать?

Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Sheets
wsheet .unprotect "123"
Next wsheet
это в начале модуля

For Each wsheet In ActiveWorkbook.Sheets
wsheet .protect "123"
Next wsheet
это в конце


снимет защиту на всех листах а затем поставит назад "123" - это пароль

[Pavarotti]

Пока не один из вариантов не помог решить проблемку.
Excel все равно при нажатии кнопки(с макросом) запрашивает пароль.
Возможно я что-т не так делаю. Подскажите куда конкретно следует вставит предложенные варианты? Я пробовал в код самого макроса.
Пример одного из вариантов:

Private Sub CommandButton1_Click()

With Sheets("Main Form")
.Unprotect (anadrill)

Dim .... - в начале

в конце -....
Exit For
End If
Next
.Protect (anadrill)
End With
End Sub

[Pavarotti]

Хотя....
Сейчас вот попробовал вариант R Dmitriy'a.
Заработало!!! Правда с нервными миганиями с секундным переключением на другие странички. Но в принципе проблема решена.
Спасибо большое!

[vikttur]

Убрать "нервные мигания" - запретить/разрешить обновление экрана.
Перед выполнением процедуры:
Application.ScreenUpdating = False
После выполнения процедуры:
Application.ScreenUpdating = True

[vikttur]

Сообщение от Pavarotti

Пока не один из вариантов не помог решить проблемку...Пример одного из вариантов:

Текст в пароле нужно писать в кавычках:
.Unprotect ("anadrill")

R Dmitriy предупредил, что обрабатываются все листы книги.

[Pavarotti]

О! Ништяк! Vikttur, спасибо за помощь! кавычки вставил в Ваш вариант и теперь всё прекрасно летает!

[Pavarotti]

Ребята, еще один вопросик по этой же теме...
Выходит, что большинство предложенных вариантов по автоматическому вводу пароля в теле макроса, разблокированию странички и возврату защиты, основываются на конкретном заранее известном разработчику пароле.

Т.е. если возникнет такая ситуация, что пользователь(не разработчик) захочет изменить пароль защиты на листе, а макрос будет пытаться ввести прописанный в нем (уже устаревший) пароль, то разблокировка листа и вообще само действие макроса производиться не будет.

Возможно кто-то уже сталкивался с подобной проблемкой. Подскажите, пожалуйста, варианты решения.