|
▼森三中 さん:
こちらこそ、ご気分を損ねさせてしまったかもしれません。すんません。
本題については、やっぱり私には無理の様です。
参考までにツールバー非表示は、こんなんで出来ます。必要ないかもしれませんが・・・。
Sub ツールバー非表示()
Dim myCB As CommandBar
On Error Resume Next
For Each myCB In Application.CommandBars
myCB.Visible = False
Next myCB
On Error GoTo 0
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub
Sub ツールバー再表示()
On Error Resume Next
With Application
.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("Standard").Visible = True
.CommandBars("Formatting").Visible = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
On Error GoTo 0
End Sub
|
|