- 日時： 2007/08/18 21:06
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：メニューバー,ツールバー,使用不可,非表示 *
***********************************************************************************
元質問：Excelのメニューとツールバーについて - とびた 2006/02/26-19:13 No.5923
ＶＢより、Excelのメニューとツールバーを無効にしたいと考えております。
Excel-VBAでは、以下のコードでメニューとツールバーを無効に出来ましたが、ＶＢからでは、宣言の方法？が悪い様で、エラーになってしまいます。
-----------------------------------------------------------------------------------
Re: Excelのメニューとツールバーについて - 花ちゃん 2006/02/26-20:51 No.5924
-----------------------------------------------------------------------------------
※ 終了時には必ず元に戻しておいて下さい。
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(Excelのメニューとツールバーを無効にする）
' Dim objMenu As Object
' For Each objMenu In xlApp.CommandBars("Worksheet Menu Bar").Controls
' objMenu.Enabled = False
' Next objMenu
'
' Dim objTool As Object
' For Each objTool In xlApp.CommandBars("Standard").Controls
' objTool.Enabled = False
' Next objTool
'ツールバーとメニューバーを非表示にする
Dim objTool As Object
For Each objTool In xlApp.CommandBars
objTool.Enabled = False
Next objTool
'3秒間表示して元に戻す
xlApp.Wait Now + TimeValue("0:00:3")
'Dim objTool As Object
For Each objTool In xlApp.CommandBars
objTool.Enabled = True
Next objTool
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
|
メニューバーとツールバーを非表示(使用不可)にする（VB6.0 基本編）