Macro làm ẩn một vài chức năng trên thanh Manu (1 người xem)

[hoangdanh282vn]

Chào các bạn.
Mình muốn viết code để ẩn (không cho thao tác) một vài chức năng trên thanh manu như ẩn DATA, Insert hay một phần trong đó như ẩn Insert\Name\Define.
Ngoài dùng VBA ra, các bạn cho mình hỏi có có cách nào khác không.
Mình xin cảm ơn.

 

[cadafi]

Chào các bạn.
Mình muốn viết code để ẩn (không cho thao tác) một vài chức năng trên thanh manu như ẩn DATA, Insert hay một phần trong đó như ẩn Insert\Name\Define.
Ngoài dùng VBA ra, các bạn cho mình hỏi có có cách nào khác không.
Mình xin cảm ơn.

Mình cũng chưa biết nếu không dùng VBA thì dùng công cụ gì. Nhưng nếu đơn giản chỉ là ẩn một vài chức năng liên quan đến Edit/Insert thì chỉ cần protect worksheet/Protect Workbook là có thể disable các chức năng này rồi.

 

[PhanTuHuong]

Ví dụ về thủ tục vô hiệu hóa (làm Disable) menu Delete Sheet đây:

    Set menus = Application.CommandBars(1).Controls(2)
  
    For Each Itemmenu In menus.Controls
      If Itemmenu.Caption = "De&lete Sheet" Then
        Itemmenu.Enabled = False
      End If
    Next

 

[tedaynui]

Chào các bạn.
Mình muốn viết code để ẩn (không cho thao tác) một vài chức năng trên thanh manu như ẩn DATA, Insert hay một phần trong đó như ẩn Insert\Name\Define.
Ngoài dùng VBA ra, các bạn cho mình hỏi có có cách nào khác không.
Mình xin cảm ơn.

Em muốn các chức năng trên Menu bị mờ đi thì thử lệnh sau
CommandBars("Insert").Controls("Name").Enabled = False/True

Nếu em muốn mất luôn thì :
CommandBars("Insert").Controls("Name").Visible = False/True

Ngoài ra, nếu em không muốn dùng VBA thì có thể chỉnh Registry bằng cách tạo 1 file .REG và chạy file này để nó chỉnh sửa Reg. Ví dụ :
Để thay đổi thuộc tính Enable Macro

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000001

Thân !
TDN

 

[haonlh]

Anh Tedaynui chỉ thêm:
Nếu cấp của menu còn sâu hơn nữa thì làm thế nào?

Tôi có biết máy của 1 người bạn bị mở Menu
Tools \ Macro\ Record New Macro...

Đang định hỏi thì đọc đến đây, thử thì mờ được đến Macro (cấp 2)
Xin cảm ơn trước.

 

[viehoai]

Anh Tedaynui chỉ thêm:
Nếu cấp của menu còn sâu hơn nữa thì làm thế nào?

Tôi có biết máy của 1 người bạn bị mở Menu
Tools \ Macro\ Record New Macro...
Đang định hỏi thì đọc đến đây, thử thì mờ được đến Macro (cấp 2)
Xin cảm ơn trước.

Thì nối tiếp Controls() Thầy a, ví dụ như
[GPECODE=vb]Sub test()
CommandBars("Tools").Controls("Macro").Controls("Macros...").Enabled = False
End Sub
[/GPECODE]

 

[haonlh]

Hôm rồi đến máy bị mờ
Tools\Macro \ Record New Macro và
Tools\Macro \ Macro
Cố mở cửa sổ Microsoft Visual Basic (bằng gõ Alt - F11) mà kg được.
Kể cả kích chuột phải vô tên Sheet để hiện menu động, nhưng View Code cũng bị mờ.
Vậy làm sao để nhập được đoạn mã như Viehoai nêu trong bài #6 được?
Hôm nay, thử trên máy ở quán, để nhập đoạn mã của tedaynui (bài #4) thì nó khóa, không cho chạy Windows\Run\Regedit. Có thể máy quán chặn lại.

Có người nói khi cài Excell, người ta không setup phần Macro.
Nếu có các nào làm đen các chức năng macro mà không cần cài lại Excell, anh em chỉ giúp. Xin cảm ơn

 

[viehoai]

Hôm rồi đến máy bị mờ
Tools\Macro \ Record New Macro và
Tools\Macro \ Macro
Cố mở cửa sổ Microsoft Visual Basic (bằng gõ Alt - F11) mà kg được.
Kể cả kích chuột phải vô tên Sheet để hiện menu động, nhưng View Code cũng bị mờ.
Vậy làm sao để nhập được đoạn mã như Viehoai nêu trong bài #6 được?
Hôm nay, thử trên máy ở quán, để nhập đoạn mã của tedaynui (bài #4) thì nó khóa, không cho chạy Windows\Run\Regedit. Có thể máy quán chặn lại.

Có người nói khi cài Excell, người ta không setup phần Macro.
Nếu có các nào làm đen các chức năng macro mà không cần cài lại Excell, anh em chỉ giúp. Xin cảm ơn

Nhấn Alt+F11 không vào được cửa sổ VBE?
Nếu vậy em nghĩ chỉ có cách cài lại Office thôi Thầy ơi