w3d,

Логично. Снимаете защиту с активного листа. А защиту Вы устанавливаете только на первый.
Процедура Workbook_SheetChange срабатывает при изменении ячейки на любом листе. А изменения не наступает, т.к. оно запрещено защитой листа. Следовательно процедура не отрабатывает. А значит защита не снимется. Может в этом проблема?

Я бы предложил вешать это на процедуру активации листа. Private Sub Workbook_SheetActivate а на событие деактивации устанавливать заново.

w3dИзменение ловится (стоит msgbox) а разблокировка не работает.Тогда файл показывайте. Я уже написал, что защиту Вы ставите на первый по порядку лист(Worksheets(1)), а защиту снимаете с активного. Это тоже может быть причиной. Как и то, что не на всех листах пароль одинаковый.