| |
茶杜さん、谷さん、こんにちはです。
茶杜さん、現状説明ありがとうございます。参考にさせて頂きます。
谷さん、色々とフォローありがとうございます。非常に助かります。
復帰については、下記マクロでも可能かもしれません。操作は以下の通りです。
・エクセルを立ち上げる
・[Alt][F11]キー同時ONにてVBE側に行く
・挿入にて標準モジュールを作成
・そこに下記マクロを貼り付け
・バー表示コード部にカーソルをおいて、横三角アイコン（実行）をON
これにて復活の呪文がかかる予定です。こちらの方も、よろしければお試し願います。
Sub バー非表示()
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
.ShowWindowsInTaskbar = False
End With
End Sub
Sub バー表示()
On Error Resume Next
If (AddIns("ピカつーる").Installed = True) Then
With Application
.CommandBars("オリジナル標準").Visible = True
.CommandBars("オリジナル図形描画").Visible = True
.CommandBars("オリジナル書式設定").Visible = True
.CommandBars("PikaBar").Visible = True
End With
Else
With Application
.CommandBars("Standard").Visible = True
.CommandBars("Formatting").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
End If
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
End Sub
|
|
