Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18057 / 76732 ←次へ | 前へ→

【64119】Re:メニューバーの非表示について
質問  らいち  - 10/1/20(水) 17:02 -

引用なし
パスワード
   nさん、
ScreenUpdating制御をコメントアウトしたら不具合は解消しました。
メニューバーや全コマンドバー、各ツールバー、ユーザー設定なども
含めて、すべて非表示にすることはできますでしょうか。
調べてみると、下記コメントを入れると理想に近い状態になるのです
が右クリックまで使えず、アクティブブック以外にも反映されるので
使っていないです。他に良い方法はありますか。

Sub CommandBars切り替え()
  Dim myCBar As CommandBar
  For Each myCBar In CommandBars
    myCBar.Enabled = Not myCBar.Enabled
  Next
End Sub

▼らいち さん:
>nさん、有難う御座います。
>早速試してみます。
>
>ちなみに私の環境は
>Windows XP pro 5.1.2600 SP3
>Excel 2000 (9.0.3821 SR-1)
>です。
>
>▼n さん:
>>私の環境は
>>Windows XP pro 5.1.2600 SP3
>>Excel 2003 (11.8316.8221) SP2 (Office Personal)
>>Excel 2000 (9.0.8968) SP3
>>VBA Retail 6.5.1040
>>ですが、現象が確認できません。
>>そちらの環境はどうですか?
>>
>>取り敢えず、少しコードを整理して様子を見てください。
>>
>>'ThisWorkbookModule
>>Option Explicit
>>'---------------------------------------------------------------------
>>Private Sub workbook_open()
>>  Me.Sheets("タグ").Visible = xlSheetVeryHidden
>>  Me.Sheets("台帳").Protect
>>End Sub
>>'---------------------------------------------------------------------
>>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>>  Me.Sheets("タグ").Visible = xlSheetVeryHidden
>>  With Me.Sheets("台帳")
>>    .AutoFilterMode = False
>>    .Protect
>>  End With
>>  If Me.Saved = False Then Me.Save
>>End Sub
>>'---------------------------------------------------------------------
>>Private Sub Workbook_WindowActivate(ByVal Wn As Window)
>>  barSet
>>End Sub
>>'---------------------------------------------------------------------
>>Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
>>  barReset
>>End Sub
>>'---------------------------------------------------------------------
>>Private Sub barSet()
>>  On Error Resume Next
>>  With Application
>>    .ScreenUpdating = False '■
>>    .CommandBars("Worksheet Menu Bar").Enabled = False 'メニューバーOFF
>>    .CommandBars("standard").Visible = False      '標準OFF
>>    .CommandBars("picture").Visible = False      '図ON
>>    .CommandBars("drawing").Visible = False      '図形描画OFF
>>    .CommandBars("formatting").Visible = False     '書式設定OFF
>>    .DisplayFormulaBar = False            
>>    .DisplayStatusBar = False             
>>    .ScreenUpdating = True
>>  End With
>>End Sub
>>'---------------------------------------------------------------------
>>Private Sub barReset()
>>  On Error Resume Next
>>  With Application
>>    .ScreenUpdating = False
>>    .CommandBars("Worksheet Menu Bar").Enabled = True 'メニューバーON
>>    .CommandBars("standard").Visible = True      '標準ON
>>    .CommandBars("picture").Visible = True      '図ON
>>    .CommandBars("drawing").Visible = True      '図形描画ON
>>    .CommandBars("formatting").Visible = True     '書式設定ON
>>    '.OnTime Now, Me.CodeName & ".test"
>>    .DisplayFormulaBar = True
>>    .DisplayStatusBar = True
>>    .ScreenUpdating = True
>>  End With
>>End Sub
>>
>>上記コードでも出るようでしたら Private Sub barSet() の
>>■のScreenUpdating制御をコメントアウトしてください。
>>
>>でも、元々"standard","picture","drawing","formatting" 『以外』のバーを表示させていたら
>>>各ツールバーの表示やユーザー設定が出来てしまい...
>>という状況は発生します。

0 hits

【63991】メニューバーの非表示について らいち 10/1/8(金) 18:13 質問
【63998】Re:メニューバーの非表示について n 10/1/9(土) 16:23 発言
【64032】Re:メニューバーの非表示について らいち 10/1/11(月) 9:25 質問
【64034】Re:メニューバーの非表示について らいち 10/1/11(月) 11:44 お礼
【64035】Re:メニューバーの非表示について n 10/1/11(月) 17:16 発言
【64040】Re:メニューバーの非表示について らいち 10/1/12(火) 10:28 質問
【64041】Re:メニューバーの非表示について n 10/1/12(火) 16:04 発言
【64042】Re:メニューバーの非表示について らいち 10/1/12(火) 18:06 お礼
【64119】Re:メニューバーの非表示について らいち 10/1/20(水) 17:02 質問
【64122】Re:メニューバーの非表示について n 10/1/20(水) 20:06 発言
【64129】Re:メニューバーの非表示について n 10/1/21(木) 1:31 発言
【64134】Re:メニューバーの非表示について らいち 10/1/21(木) 14:11 質問
【64137】Re:メニューバーの非表示について n 10/1/21(木) 19:33 発言
【64138】有難う御座いました。 らいち 10/1/21(木) 19:39 お礼

18057 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free