Ахахаха! Пилять, шесть часов мозги себе парю))))) Перезапуск действительно помог, я под столом))))))))))) Спасибо!

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

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

Спасибо парни!! получилось:    
Range("A3").Comment.Text CStr([a3].Value)

в поиске полазил и на сайте, и в инете - найти ничего не смог.  
 
Range("L20").Comment.Application.Caption = Range("f31")  
 
или  
 
Range("L20").AddComment.Application.Cells = Range("f31")  
 
или  
 
Range("L20").Comment.Text ....  
 
не знаю, что еще придумать, возможно, просто не существует методов или свойст к COMMENT. Решил уточнить у знатоков.

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

ПОЛУЧИЛОСЬ!!!    
 
вот оно!:    
 
 
UserForm5.Label2.Caption = Round(Range("a28"), 2)  
 
Спасибо!

Не работает(( второй вариант тоже не работает.    
 
У меня это выглядит так:  
 
Private Sub UserForm_Activate()  
     
   UserForm5.Label2 = Round(a28, 2)  
   UserForm5.Label8.Caption = Range("a1")  
   UserForm5.Label4.Caption = Range("a17")  
   UserForm5.Label2.Caption = Range("a28")      
       
   If Range("a17") <> 0 Then  
   UserForm5.CommandButton1.Locked = True  
     
   End If  
End Sub

Пример не тот выложил.

Пример.

Не помогло, знаки не убираются.  
 
Private Sub UserForm_Activate()  
сюда ставится?

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

да не. просто выделяю весь столбец щелкнув на поле, правой мыхой нажимаю "скрыть" и ставлю защиту на весь лист, кроме некоторых областей.

Без шуток, когда text - не показывает, с value все нормально.

Работает)) спасибо.

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

Спасибо.

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

Как всегда я жгу! Ахаха! Действительно kill adress! Спасибо!

*пока еще не брался

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 ...  
 
for i = 1 to 31  
тут вместо Sheets("1").Select напишите with Sheets(i)  
ваши действия  
end with  
next"    
 
и так пытался  
 
"Sub io()  
Dim x as object  
For each x in sheets  
msgbox x.name  
next  
End sub"-    
 
По всякому производит действие только с 31 листом. Сделал так:  
 
For i = 1 To 31  
                   
       ActiveWindow.SmallScroll Down:=8  
       With Sheets(i)  
       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 With  
   Next  
 
и    
 
Dim x As Object  
     
       ActiveWindow.SmallScroll Down:=8  
       For Each x In Sheets  
       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  
         
   Next  
 
Если надо могу код полностью выложить. Он очень большой, из-за того, что в нем пытаюсь соединить 3 макроса (на одну кнопку пытаюсь все повесить).

Извиняюсь за тему, возможно такие темы уже создавались, но я уже умаялся искать и на сайте и в инете, поэтому выручайте.  
 
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.  
 
Заранее спасибо.