投稿日 | : 2006/02/26(Sun) 19:13 |
投稿者 | : とびた |
Eメール | : |
URL | : |
タイトル | : Excelのメニューとツールバーについて |
環境:WinXP VB6-SP6 Excel2003
お世話になります。
VBより、Excelのメニューとツールバーを無効にしたいと考えております。
Excel-VBAでは、以下のコードでメニューとツールバーを無効に出来ましたが、
VBからでは、宣言の方法?が悪い様で、エラーになってしまいます。
ご指導宜しくお願いします。
VB6の宣言
Dim objMenu as Excel.Application.CommandBars
Set objMenu=CreateObject(Excel.Application.CommandBars)
Excel-VBAのコード
Dim objMenu As CommandBarControl
Dim objTool As CommandBarControl
Dim intI As Integer
'メニュー
For Each objMenu In Application.CommandBars("Worksheet Menu Bar").Controls
objMenu.Enabled = False
Next objMenu
'ツールバー
For Each objTool In Application.CommandBars("Standard").Controls
objTool.Enabled = False
Next objTool