Anda juga dapat melakukan ini di Outlook melalui VBA. Office 2010 tidak lagi memungkinkan Anda menghapus melalui sebagian besar solusi ini.
Word, PowerPoint, dan Excel memungkinkan Anda untuk menggunakan solusi mudah ini .
Outlook memerlukan lebih banyak kerumitan karena menggunakan Penjelajah dan Inspektur, yang dalam konteks yang berbeda keduanya memiliki bilah perintah ini diaktifkan. Solusinya karena itu dua bagian.
Bagian satu adalah pengaturan WithEvents
untuk menangani pembuatan setiap Inspektur baru. Umumnya ini adalah setiap kali Anda BUKA pesan / acara / dll, dan mereka dibuat / dihancurkan setiap kali. Jadi, bahkan jika Anda menekan setiap Inspektur saat ini, yang baru Anda tidak akan menonaktifkan bilah perintah.
Masukkan yang berikut ini ke ThisOutlookSession di editor VBA Anda (Alt + F11). Setiap inspektur baru (dan penjelajah juga, meskipun saya belum membuat penjelajah yang dibuat) akan menonaktifkan bilah perintah.
Public WithEvents colInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector
Public WithEvents colExplorers As Outlook.Explorers
Public WithEvents objExplorer As Outlook.Explorer
Public Sub Application_Startup()
Init_colExplorersEvent
Init_colInspectorsEvent
End Sub
Private Sub Init_colExplorersEvent()
Set colExplorers = Outlook.Explorers
End Sub
Private Sub Init_colInspectorsEvent()
'Initialize the inspectors events handler
Set colInspectors = Outlook.Inspectors
End Sub
Private Sub colInspectors_NewInspector(ByVal NewInspector As Inspector)
Debug.Print "new inspector"
NewInspector.commandbars("Research").Enabled = False
'This is the code that creates a new inspector with events activated
Set objInspector = NewInspector
End Sub
Private Sub colExplorers_NewExplorer(ByVal NewExplorer As Explorer)
'I don't believe this is required for explorers as I do not think Outlook
'ever creates additional explorers... but who knows
Debug.Print "new explorer"
NewExplorer.commandbars("Research").Enabled = False
'This is the code that creates a new inspector with events activated
Set objExplorer = NewExplorer
End Sub
Namun ini hanya akan membuat menu hilang dari beberapa tampilan di Outlook. Anda masih perlu menjalankan makro berikut untuk menghapusnya dari semua penjelajah. Sebaiknya saya tahu ini persisten ketika Anda menutup / membuka kembali Outlook:
Private Sub removeOutlookResearchBar()
'remove from main Outlook explorer
Dim mExp As Explorer
For Each mExp In Outlook.Explorers
mExp.commandbars("Research").Enabled = False
Next mExp
End Sub