Изменить пароль, заданный средствами VBA

[lion78]

Добрый день!

Я в программировании не силён, всё, что мне нужно, делаю с помощью google Однажды мне нужно было создать файл с макросами и при этом защитить лист паролем, но при этом чтобы макросы работали. Я это сделал так:

'для выполнения макросов на защищенном листе
Private Sub Workbook_Open()
   Dim wsSh As Object
  For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
   Next wsSh
End Sub
Sub Protect_for_User_Non_for_VBA(wsSh As Object)
 wsSh.Protect Password:="123456", AllowFiltering:=True, UserInterfaceOnly:=True
End Sub

Это оказалось удобно, т.к. перед закрытием книги надо было лишь сохранить её, защита ставилась автоматически. Но мне понадобилось изменить пароль. Заменив его в строке wsSh.Protect Password:="123456", я стал получать при открытии файла сообщение:

"Run-time error '1004': неверный пароль. Убедитесь, что отключена клавиша Caps Lock и используется правильный регистр".

Я испытал этот же метод на новом пустом файле. Эффект при попытке сменить пароль ровно тот же.
Обычно, чтобы решить какую-то стоящую передо мной задачу, я лопачу форумы, нахожу что-то подобное и переделываю под свои нужды, но тут нет уже времени, а с наскоку подобную проблему не обнаружил.
Прошу, уважаемые форумчане, подскажите, как изменить этот пароль так, чтобы ошибка не вываливалась.
Заранее благодарен.

[kuklp]

Для начала надо снять защиту, а потом уж ставить новый пароль.

[lion78]

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

Для начала надо снять защиту, а потом уж ставить новый пароль.

чего я только не делал. снимаю защиту, удаляю строки кода, сохраняю, закрываю. открываю - всё ок, файл не защищен. Вставляю код с новым паролем, сохраняю, закрываю. Открываю - снова ошибка.

Да, забыл сказать, excel 2007

[kuklp]

Выкладывайте файл-пример.

[lion78]

Файл. Собственно, содержит только код в модуле "Эта книга". Сейчас там пароль изначальный, всё открывается как надо. Попытки сменить пароль вызывают ошибку.

[kuklp]

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

Файл. Собственно,...

Гы) Где, собственно?

[eikhner]

прежде чем сменить пароль в макросе вы должны задать этот пароль при защите листа или книги .

1 защищаете фаил новым паролем
2 добавляете этот (новый) пароль в макрос

[kuklp]

Какой старый пароль?

[kuklp]

Ну вот я с помощью макроса снял пароли:

Public Sub www()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        wsSh.Unprotect "123456"
    Next wsSh
End Sub

Поменял пароль, выполнил workbook_open, сохранил, закрыл, открыл - никаких ошибок.

[eikhner]

дак там пароли разные , в макросе 123456 , но с листа этим паролем защиту не снять
конечно ошибку будет показывать .