Зависает документ при срабатывании макроса

[Quatro_Drive]

Здравствуйте!! Здесь описывал проблему, которую удалось решить, однако возникла следующая ситуация.. Пришлось применить этот же макрос к другому документу такого же типа.. НО!! Если в документах, для которых был написан этот макрос, все прекрасно работало, в других документах при редактировании ячеек, подвластных макросу, сам макрос срабатывает (наблюдаю визуально), но после этого сразу документ виснет секунд на 30. Подозревая что неладное может быть в самом документе, сегодня создал такой же, от начала и до конца, и в результате ситуация не изменилась(( Для наглядности по указанной ссылке можно посмотреть тот самый злополучный документ..
Друзья, кто чем может, выручайте пожалуйста)

[The_Prist]

Quatro_Drive, документ по ссылке запаролен. Мы не владеем древним искусством телепатии...
Есть предположение, что в файле много формул, которые после каждого изменения, естесственно, начинают пересчитываться. Отсюда зависание.

[Quatro_Drive]

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

[The_Prist]

Попробуйте так

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("Y21:AA35,T40:V45,AD50:AG53,Q60:S60")) Is Nothing Then
            Application.EnableEvents = False
            Target.NumberFormat = "#,##0.00$"
            Target = Application.WorksheetFunction.RoundUp(Target, 0)
            Application.EnableEvents = True
    End If
End Sub

[Quatro_Drive]

Здорово, это помогло)
Я так понял, что код отличался наличием еще двух строк, которые рекомендовал попробовать SAS888 самыми первыми и последними

Application.EnableEvents = False
Application.EnableEvents = True

Пусть банально, но возникает вопрос, в чом скрывалась главная проблемаи как помогли ее решить эти две строки?
Спасибо за помощь!!

[EducatedFool]

как помогли ее решить эти две строки?

Ваш макрос зацикливался.
1) При изменении ячейки запускается макрос Workbook_SheetChange
2) Этот макрос изменяет ячейку: Target = Application.WorksheetFunction.Round Up(Target, 0)
3) Это изменение запускает вторую копию макроса Workbook_SheetChange, который опять изменяет ту же ячейку, и т.д. до бесконечности.

Отключение обработки событий
Application.EnableEvents = False
Application.EnableEvents = True
позволяет избежать зацикливания.

[Quatro_Drive]

Спасибо всем откликнувшимся!!