VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/02/26(Sun) 19:13
投稿者： とびた
Ｅメール：
ＵＲＬ：
タイトル： Excelのメニューとツールバーについて

環境：WinXP　VB6-SP6　Excel2003

お世話になります。
ＶＢより、Excelのメニューとツールバーを無効にしたいと考えております。
Excel-VBAでは、以下のコードでメニューとツールバーを無効に出来ましたが、
ＶＢからでは、宣言の方法？が悪い様で、エラーになってしまいます。
ご指導宜しくお願いします。


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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -