Всем Знатокам привет и с наступающим Новым Годом!  
 
Проблема в том, что есть кнопка (ToggleButton) при нажатии на которую разблокироваются поля для ввода информации. Потом кнопка отжимается и поля блокируются. Ставил защиту листа при которой можно выделять только незаблокированные ячейки. Но! когда отжимаешь кнопку он все нормально блокирует, ячейки нельзя выделять, сохраняюсь/не сохраняюсь, закрываю Эксель. Заново вхожу, ячейки которые заблокированны - их нельзя редактировать, но можно выделять. Спрашиваю у вас совета, как это можно исключить. Привожу код:  
 
Private Sub ToggleButton2_Click()  
 
   If ToggleButton2.Value = True Then  
   Dim vPass  
   vPass = InputBox("Введите пароль", "Стой! Кто идет?")  
   If vPass = "******" Then  
   ActiveSheet.Unprotect Password:="****"      
   Else: MsgBox "Неверный пароль", vbCritical, "Не угадал!"      
   End If  
   End If  
   If ToggleButton2.Value = False Then  
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False,     Password:="****"  
   ActiveSheet.EnableSelection = xlUnlockedCells  
   End If  
End Sub  
 
 
еще при открытии книги:  
 
Private Sub Workbook_Open()  
Worksheets("Штрафы.заметки").Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, Password:="0o9i8u"  
ActiveSheet.EnableSelection = xlUnlockedCells  
End Sub  
 
и закрытии:  
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
Worksheets("Штрафы.заметки").Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, UserInterfaceOnly:=True, Password:="0o9i8u"  
ActiveSheet.EnableSelection = xlUnlockedCells  
End Sub