Сортировка + защита ячеек

[Евроснаб]

получил от Вас файл, там работает, появилась кнопка с именем "kuklp" в коде не нашел её, немного не понял от куда она взялась, а реально сделать сортировку например, по завершению работы? по закрытию файла, чтоб не было этой кнопки? портит дизайн отчета
.
При вставке тех же кодов в свой файл, ни чего не работает. Где секрет?

[kuklp]

Так у Вас там лист по-другому называется. Будет сортировать при закрытии и при сохранении.

[kuklp]

Еще измените макрос так:

Sub Сортировать()
      Sheets("Сделки").[A6:AC100].Sort Key1:=Sheets("Сделки").[o6], Order1:=xlAscending, Header:=xlNo
End Sub

А то наделает Вам делов на других листах:-)

[Евроснаб]

Урааа!!! заработало ))))
Спасибо "kuklp"! Счастья Вам и много удачи )
.
Как можно отблагодарить? У меня нет ни одного из кошельков что у Вас
Буду Вам ещё в перспективе задачки задавать.
Есть необходимость в преобразовании вкладки склад, где много товаров и груп этих товаров

[Евроснаб]

Кстати, а если необходима будет возможность в будущем сортировка по двум столбцам. Как эти же макросы будут выглядеть?
.
Попробовал макросы из присланного файла (написал их ниже) применить к другому файлу, изменив в коде название листа "Сделки" на соответствующее и не работает полноценно. Сортировка работает, но местами выскакивают ошибки макроса.
Может всё таки надстройки в самом файле какие надо сделать?
.
.
.
--Вставил в код листа --
-------------------------------------------------

Sub Сортировка()
[o6: o100].Sort [o6]
End Sub

Sub Сортировать()
Sheets("Сделки").[A6:AC100].Sort Key1:=Sheets("Сделки").[o6], Order1:=xlAscending, Header:=xlNo
End Sub

------------------------------------------------------
.
.
--Вставил в код книги --
-------------------------------------------------

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Лист2.Сортировать
Cancel = False
End Sub

Private Sub Workbook_Open()
Sheets("Сделки").Protect userinterfaceonly:=True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Лист2.Сортировать
Cancel = False
End Sub

------------------------------------------------------
.
.
.
--Вставил в код модуля --
-------------------------------------------------

Private Sub Workbook_Open()
Sheets("Сделки").Protect userinterfaceonly:=True
End Sub

---------------------------------------------------

[Евроснаб]

Отбой! разобрался!