|
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" 『以外』のバーを表示させていたら
>>>各ツールバーの表示やユーザー設定が出来てしまい...
>>という状況は発生します。
|
|