Бойтесь АктивХ Кнопок! - VBA

Формулировка задачи:

Люди, здравствуйте. Это не конкретный вопрос для решения, а вопрос для того, чтобы поделиться наблюдениями. Итак: АктивХ кнопки просто неадекватно себя ведут. Они могут просто поменяться местами - в смысле обработчиками - просто от операции закрыть-открыть книгу Экселя. А программное создание несет в себе столько геморроя, что лучше с этим не связываться. У кого такое было, что кнопки жили своей жизнью?

Решение задачи: «Бойтесь АктивХ Кнопок!»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Sub DoIt()
    TotalClear.TotalClear
 
    SetGreedBackGround Range(Cells(1, 1), Cells(4, 4))
    MakeButton BTTN_RESETTOOL, Range(Cells(2, 2), Cells(3, 3))
    
    SetGreedBackGround Range(Cells(6, 1), Cells(9, 4))
    Set btn = MakeButton(BTTN_GEETDSNS, Range(Cells(7, 2), Cells(8, 3)))
    
    SetGreedBackGround Range(Cells(6, 1), Cells(9, 4))
    Set btn = MakeButton(BTTN_SETCNCTN, Range(Cells(7, 2), Cells(8, 3)))
    btn.Visible = False
    
    SetGreedBackGround Range(Cells(6, 1), Cells(9, 4))
    Set btn = MakeButton(BTTN_ANALYSE, Range(Cells(7, 2), Cells(8, 3)))
    btn.Visible = False
    
    SetGreedBackGround Range(Cells(6, 1), Cells(9, 4))
    Set btn = MakeButton(BTTN_CREATEPVT, Range(Cells(7, 2), Cells(8, 3)))
    btn.Visible = False
End Sub