Một cách để thủ tiêu các menu hoặc toolbar của ếxcel!

[skyonline]

Không biết vấn đề này đã được giới thiệu hay chưa nhưng em cứ đóng góp đôi dòng code tích lũy được nhân mấy ngày nghỉ rảnh rỗi

Private Sub Workbook_Open()
    MenuBars(xlWorksheet).Menus("File").MenuItems("Print...").Delete
'
    For J = 1 To Toolbars.Count
        For K = 1 To Toolbars(J).ToolbarButtons.Count
            If Toolbars(J).ToolbarButtons(K).ID = 2 Then
                Toolbars(J).ToolbarButtons(K).Enabled = False
            End If
            If Toolbars(J).ToolbarButtons(K).ID = 3 Then
                Toolbars(J).ToolbarButtons(K).Enabled = False
            End If
        Next K
    Next J
End Sub

Menu print và hai nút print + save đã bị vô hiệu hoá.
Giấu các cái khác tương tự!

 

[chibi]

Menu print và hai nút print + save đã bị vô hiệu hoá.

Ctrl+P và Ctrl+S có mất tác dụng không?

 

[Mr Okebab]

Ctrl+P và Ctrl+S có mất tác dụng không?

Cứ thử rồi biết ngay thôi mà.

Thân!

 

[skyonline]

vô hiệu hóa hai nút đó thì cho vào sự kiện before print hay save gì đó cái cancel=true là được thôi. Thân!

 

[mymichau]

[LEFT]Private Sub Workbook_Open()
    MenuBars(xlWorksheet).Menus("File").MenuItems("Print...").Delete
'
    For J = 1 To Toolbars.Count
        For K = 1 To Toolbars(J).ToolbarButtons.Count
            If Toolbars(J).ToolbarButtons(K).ID = 2 Then
                Toolbars(J).ToolbarButtons(K).Enabled = False
            End If
            If Toolbars(J).ToolbarButtons(K).ID = 3 Then
                Toolbars(J).ToolbarButtons(K).Enabled = False
            End If
        Next K
    Next J
End Sub

Em có thử dòng code trên thấy có hiệu quả, sau đó đã delete file vừa thử. Thế nhưng hiện nay, các file Excel đều bị vô hiệu 2 menu save và print. Nhờ anh SkyOnline v cc bn ch gip cch phc i 2 menu trn[/LEFT]

 

[yeudoi]

Để hiện lại toàn bộ menu

Sub Restomenu()
' Hien thi lai toan bo thanh commandbars
With Application.CommandBars("Worksheet menu bar")
.Reset
.Enable=True
.Visible=True
End Sub

 

[mymichau]

Vẫn không phục hồi lại menu save. Nhưng chỉ là một file, khi mở ở máy khác thì không vấn đề gì. Khả năng máy có bị virut gì không. Xin các chỉ giúp.

Cảm ơn Skyonline. Mình đã sửa được bằng cách vào menu Tools.

 

[digita]

Phục hồi lại menu Save option

Application.CommandBars("File").Controls("Save").Enabled = True

Phục hồi lại menu Print option

Application.CommandBars("File").Controls("Print...").Enabled = True

 

[skyonline]

Để phục hồi lại menu và toolbar bạn chỉ cần làm ngược lại đoạn code trên sau đó nên gán trong sự kiện close workbook . Thân!

 

[yeudoi]

Ah nhân tiện mọi người cho hỏi, máy mình sao tự nhiên mất "Worksheet menu bar" mình đã vào tool\customize\toolbars để reset nhưng không tìm thấy và mình phải dùng đỡ chart menu bar nhưng không có Data.Không biết có phải bị virus không.

 

[skyonline]

Tất cả các file của anh đều bị như vậy sao? Anh thử dùng chức năng "Detect and repair " trong trình đơn help để thiết lập lại mặc định? Cái này em cũng chưa gặp bao giờ nên không biết nguyên nhân do đó chỉ có thể chỉ cho anh cách này thôi.