- 日時： 2007/08/20 09:49
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：メニュー,スクロールバー,関数ボックス, *
***********************************************************************************
元質問：ワークシートだけ表示させる - ダンボ 2006/09/12-15:28 No.7233
-----------------------------------------------------------------------------------
Excel2000のVBAです。
定められた操作しかできないようにワークシートだけを表示させたいのです。
With Application
.DisplayFullScreen = True
.DisplayAlerts = False
.DisplayFormulaBar = False
.ScreenUpdating = False
End With
With ActiveWindow
.DisplayHorizontalScrollBar = False '水平スクロールバーを消す
.DisplayVerticalScrollBar = False '垂直スクロールバーを消す
.DisplayWorkbookTabs = False 'シート見出しを消す
.DisplayGridlines = False '枠線を消す
.DisplayHeadings = False '行列番号を消す
End With
これで大分望みに近いのですが、
(1)システムメニュー(FileからHelpまでの奴)が消せない。
(2)DisplayFullScreen=True で「全画面表示を閉じます」ダイアログボックスが出てしまう。
の2点が不満です。対策はありますか？
-----------------------------------------------------------------------------------
> (1)システムメニュー(FileからHelpまでの奴)が消せない。
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
で、システムメニュー消えました。標準ツールバー消えました。
あうぅ編集ツールバーが残っています。
-----------------------------------------------------------------------------------
※ 後は、上記の一連のスレッドをご覧下さい。
http://hanatyan.sakura.ne.jp/logbbs1/wforum.cgi?mode=allread&no=7233&page=300#7233
又、ユーザーからの操作されたくないという事なら下記のような方法もあります。
-----------------------------------------------------------------------------------
Re^3: VB-EXCEL 処理速度 - 魔界の仮面弁士 2003/08/04-20:04 No.5223
-----------------------------------------------------------------------------------
ユーザーから操作されたくない、という事であれば、Excel.Applicationオブジェクトの
Interactive プロパティを使って、ユーザーからの操作を禁止するという手もあります。
-----------------------------------------------------------------------------------
Interactive プロパティ (VBAのヘルプより抜粋 ---- by 花ちゃん ---- ）
True の場合、Excel が対話モードになります。既定値は True です。このプロパティに False が設定されると、キーボードやマウスからの入力を受け付けなくなります。ただし、表示されたダイアログ ボックスへの入力は可能です。入力できない状態にしておくと、マクロで Excel のオブジェクトを移動したりアクティブにしているときに、ユーザーからの干渉を防ぐことができます。値の取得および設定が可能です。ブール型 (Boolean) の値を使用します。
xlApp.Interactive = False
-----------------------------------------------------------------------------------
|
Excel画面廻りの表示設定色々（VB6.0 基本編）