Excel VBA質問箱 IV

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

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


18134 / 76732 ←次へ | 前へ→

【64041】Re:メニューバーの非表示について
発言  n  - 10/1/12(火) 16:04 -

引用なし
パスワード
   私の環境は
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" 『以外』のバーを表示させていたら
>各ツールバーの表示やユーザー設定が出来てしまい...
という状況は発生します。
1 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 お礼

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