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

Всем Знатокам привет и с наступающим Новым Годом!  
 
Проблема в том, что есть кнопка (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

Всем свободным умам доброго дня.  
 
Пытаюсь заполнить примечание из ячейки макросом, не получается. Если есть идеи - выручайте!

Label на UserForm`е показывает сумму из ячейки, но показывает с 14-ю знаками после запятой. Помогите с кодом, как убрать знаки после запятой?  
 
Пытался так:  
 
UserForm5.Label2 = Format(UserForm5.Label2, "00.00")  
и  
UserForm5.Label2.caption = Round(UserForm5.Label2, 2)  
как-то так... вариаций было много. Либо ошибку выдает, либо не убирает.

Подскажите, может ли пользовательская форма брать данные из скрытой области?    
 
На листе есть кнопка при нажатии на которую открывается userform, на ней label.  
При активации формы сделал такую вещь:  
 
   UserForm4.Label15.Caption = Range("u20").Text  
 
но столбец "U" я скрываю от глаз пользователя. И на форме данные не отражаются. Если я отображаю столбец, то данные отражаются и на userform.  
 
Можно ли это как-нибудь обойти?

Чтоб один не нагружать, хочу, чтоб один макрос запускал другой.

Windows("Книга1").Activate  
   ActiveWorkbook.Password = "123"  
   ActiveWorkbook.SaveAs Range("b2") & ".xlsx"  
   Range("A20") = ActiveWorkbook.Path  
   Range("A21") = ActiveWorkbook.FullName  
   Dim Kniga As String  
   Kniga = Application.ActiveWorkbook.name  
   ActiveWorkbook.Save  
   Range("A20:A21").Select  
   Selection.Copy  
   Windows("Электронный отчет.xlsm").Activate  
   Range("A54:A55").Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Windows(Kniga).Activate  
   Windows(Kniga).Close savechanges = False  
   Windows("Электронный отчет.xlsm").Activate  
   Range("F7").Select  
   Dim adress As String  
   adress = Range("A55")  
   Kill "adress"  
 
Все работает отлично, ну или так, как мне надо. Единственное нужно, чтоб в конце файл удалялся по адресу, который прописан в ячейке A55. Когда запускаю макрос - он выдает: "File not found". Полагаю функция Kill не воспринимает ссылку на ячейку.    
 
Смысл всей затеи такой: Нужная информация (сводные данные) из большого отчета копируется в созданный, потом он переименовывается по информации из ячейки. Далее он паролится, сохраняется, закрывается и отправляется по эмейлу(пока еще брался), и в итоге удаляется с компьютера. Помогите, как-то все это обыграть.

Извиняюсь за тему, возможно такие темы уже создавались, но я уже умаялся искать и на сайте и в инете, поэтому выручайте.  
 
sub ....  
 
   ActiveWindow.SmallScroll Down:=8  
   Sheets("1").Select  
   Range("B37:D40").Select  
   ActiveWindow.ScrollRow = 10  
   ActiveWindow.ScrollRow = 11  
...............................  
тут он делает всякую фигню с форматированием ячеек  
...............................  
   ActiveWindow.ScrollRow = 114  
   ActiveWindow.ScrollRow = 115  
   ActiveSheet.PageSetup.PrintArea = "$A$1:$T$36"  
   Range("H26").Select  
   ActiveWindow.SmallScroll Down:=-14  
 
End Sub  
 
Помогите зациклить на 31 лист (Sheets("1").Select - 4 строка в коде). Пытался вставлять один за одним, но так как код получается очень большой выдает ошибку.    
 
Ps после 31 листа идут еще 3 листа с другими названиями, на них форматирование не должно распространяться. Только с 1 по 31.  
 
Заранее спасибо.