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

投稿日： 2006/09/13(Wed) 13:46
投稿者： ダンボ
Ｅメール：
ＵＲＬ：
タイトル： 【解決】ワークシートだけ表示させる

> >  (1)システムメニュー(FileからHelpまでの奴)が消せない。
> しょうがないので汎用サブルーチン作っておきます。60〜100ステップ位になるかな


62ステップでした。ポイントだけフィードバックです。
    Static FLG() As Boolean, i As Integer
    With Application
        ReDim FLG(.CommandBars.Count)
        For i = 1 To .CommandBars.Count
            FLG(i) = .CommandBars(i).Enabled
            .CommandBars(i).Enabled = False
        Next i
    End With

＃CommandBars.Countって90位になっている。フォローティングダイアローグボックスなども
すべてCommandBarsに属しているんですね。

> >(2)DisplayFullScreen=True で「全画面表示を閉じます」ダイアログボックスが出てしまう。

EXCEL「オプション」で「全画面表示を閉じる」ダイアログボックスの表示/非表示を設定
できるんですわ。最初は非表示設定でもマクロからDisplayFullScreenを発行すると表示に
なるんでしょうね。で×を押せば非表示設定に戻り、以後出ないと。。

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

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