Gặp rắc rối với Menu POP-UP

[bun_bo_hue]

Mình có tạo thêm 1 Menu POP-UP (click phím phải lên 1 CELL bất kì) thêm vô menu pop-up sẵn có của excel. Khi chạy macro tạo menu thì xảy ra vấn đề sau :
- Trong workbook có 1 số sheet thấy menu vừa tạo, số khác lại không thấy (xem file chi tiết đính kèm)
- Tại mới 1 sheet, 1 workboook mới nhấn phím phải thì vẫn thấy menu vừa tạo.

Mình thực sự không nhiểu lý do tại sao ?? Dưới đây là đọan code tạo menu pop-up (đính kèm là file minh họa). Mong các bác chỉ dẫn ạ.

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Create_Admin_Popup()
    Dim my_popup As CommandBar
On Error Resume Next
    'Delete_Admin_Popup
    Set_Flag_Permission "ADMIN"
    'menu pop-up khi nhan right-click CELL,ROW,COLUMN
    Set my_popup = Application.CommandBars("Cell")
    With my_popup
        .Reset
        With .Controls.Add(msoControlPopup, , , 1, True)
            .Caption = "&SPOT PLAN MENU"
            .BeginGroup = True
            With .Controls.Add(msoControlButton, , , 1, True)
                .Caption = "CALCULATING"
                .OnAction = "CALCULATING"
                .FaceId = 71
                .BeginGroup = True
            End With
            With .Controls.Add(msoControlButton, , , 2, True)
                .Caption = "CLEAR All Spots in Spot Plan"
                .OnAction = "DELETE_All_Spots"
                .FaceId = 72
                .BeginGroup = True
            End With
            With .Controls.Add(msoControlButton, , , 3, True)
                .Caption = "HIDE Spots <= 0"
                .OnAction = "HIDE_Spots_Smaller_Than_Zero"
                .FaceId = 73
                .BeginGroup = True
            End With
            With .Controls.Add(msoControlButton, , , 4, True)
                .Caption = "HIDE Spots by Color"
                .OnAction = "HIDE_Spots_by_Color"
                .FaceId = 74
            End With
            With .Controls.Add(msoControlButton, , , 5, True)
                .Caption = "CREATE Multi-Support"
                .OnAction = "CREATE_Multisupport"
                .FaceId = 75
                .BeginGroup = True
            End With
            With .Controls.Add(msoControlButton, , , 6, True)
                .Caption = "CREATE Film Schedule"
                .OnAction = "CREATE_Film_Schedule"
                .FaceId = 76
            End With
            With .Controls.Add(msoControlButton, , , 7, True)
                .Caption = "INSERT Ad-Code"
                .OnAction = "INSERT_AdCode"
                .BeginGroup = True
                .FaceId = 77
            End With
            With .Controls.Add(msoControlButton, , , 8, True)
                .Caption = "DELETE Ad-Code"
                .OnAction = "DELETE_AdCode"
                .FaceId = 78
            End With
            With .Controls.Add(msoControlButton, , , 9, True)
                .Caption = "UnLock Spot Plan"
                .OnAction = "See_Details_in_Spot_Plan"
                .BeginGroup = True
                .FaceId = 79
            End With
            With .Controls.Add(msoControlButton, , , 10, True)
                .Caption = "Lock Spot Plan"
                .OnAction = "LockA"
                .FaceId = 80
            End With
            With .Controls.Add(msoControlButton, , , 11, True)
                .Caption = "Change Password"
                .OnAction = "Change_Password"
                .FaceId = 81
                .BeginGroup = True
            End With
        End With
    End With
    
    Set my_popup = Nothing
End Sub

Sub Delete_Admin_Popup()
    Application.CommandBars("Cell").Reset
End Sub 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------

 

[yeudoi]

Sao mình bấm vẫn thấy hết ở các sheet mà đâu có sheet nào không thấy đâu.

 

[bun_bo_hue]

Hix, mình tìm ra nguyên nhân rồi các pác ơi. Khi ở chế độ "Page Break Preview" thì menu pop-up của mình mất tác dụng. Có cách nào ở chế độ đó thì menu pop-up tự tạo vẫn sử dụng được không ạ ???