Как отловить событие ошибки при снятии защиты с листа Excel
Добрый день, подскажите пожалуйста как отловить сообщение об ошибке при снятии защиты с листа.
Написал вот так, но on error как-то несработал.
On Error GoTo err
Set ws = wbSourceBook.Sheets(1)
ws.Unprotect ("hello")
err:
MsgBox ("Вы ввели неправильный пароль")
Т.е. видимо ошибка не фатального характера что ли. Как быть?
Написал вот так, но on error как-то несработал.
On Error GoTo err
Set ws = wbSourceBook.Sheets(1)
ws.Unprotect ("hello")
err:
MsgBox ("Вы ввели неправильный пароль")
Т.е. видимо ошибка не фатального характера что ли. Как быть?
Проверить, что лист защищен (выставлен хотя бы 1-н флаг из св-тв Protection).
Если лист не защищен, то снимать защиту не имеет смысла (ws.Unprotect ("hello") - не вызовет ошибку). А если защищен и указан правильный пароль - следует выйти без обработки ошибки:
ws.Unprotect ("hello")
Exit Sub (Function)
err:
Если лист не защищен, то снимать защиту не имеет смысла (ws.Unprotect ("hello") - не вызовет ошибку). А если защищен и указан правильный пароль - следует выйти без обработки ошибки:
ws.Unprotect ("hello")
Exit Sub (Function)
err:
Мне нужно именно отловить событие, я написал более простой пример, на самом деле все немного сложнее, там будет вводится несколько паролей в поля ввода и в анпротект подставляться переменная. То что лист запаролен однозначно известно - смысла проверять нету.