Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18139 / 76738

←次へ　｜　前へ→


	【64042】Re:メニューバーの非表示について

らいち - 10/1/12(火) 18:06 -


	引用なし

	パスワード

ｎさん、有難う御座います。
早速試してみます。

ちなみに私の環境は
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