VBA コマンドバーを消した後に残る空白部分

質問

お世話になります。

ExcelVBAで、コマンドバーの類を全て消去した後に残る、
空白部分ができる原因が解りません。
この部分をダブルクリックすると、エラーになって強制終了に
なってしまいます。
完全に消してしまいたいのですが、この状況になってしまう、
原因と対策を教えてください。

内容は、『システム』という名のシートにある『ロック』ボタンを
押すと、コマンドバーを全て消去して、Sheet1に切り替わるといった
流れです。

↓モジュール側
-------------------------------------------------------------
Dim myCB As CommandBar

Public Sub onCmdBarAttr()

DoEvents

With Application

For Each myCB In Application.CommandBars
myCB.Enabled = True
Next myCB

.CommandBars("Standard").Visible = True

.CommandBars("Formatting").Visible = True

.CommandBars("Visual Basic").Visible = True

.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("CELL").Enabled = True

' タスクバーに表示させる
.ShowWindowsInTaskbar = True

' 数式バーを表示
.DisplayFormulaBar = True
' ステータスバーを表示
.DisplayStatusBar = True

End With
End Sub

Public Sub offCmdBarAttr()

Dim myCB As CommandBar

On Error Resume Next

For Each myCB In Application.CommandBars
myCB.Enabled = False
Next myCB

On Error GoTo 0

With Application
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("CELL").Enabled = False

' 数式バーを消去
.DisplayFormulaBar = False

' ステータスバーを消去
.DisplayStatusBar = False

' タスクバーに表示させない
.ShowWindowsInTaskbar = False
End With

End Sub
' シートロック
Public Sub protectSheet(ByVal stSheetName As String)

Application.ScreenUpdating = False

' 一旦シート保護をかけ直す
With Worksheets(stSheetName)
.Activate
.Unprotect
.Protect UserInterfaceOnly:=True

' カーソルの移動範囲を設定する
.ScrollArea = "$A$1"

' 左上セルを選択
.Range("H16").Select

' 保護されたセルは選択不可にする
.EnableSelection = xlNoRestrictions

End With

Application.ScreenUpdating = True

End Sub
' シートロック解除
Public Sub unprotectSheet(ByVal stSheetName As String)

' 一旦シート保護をかけ直す
With Worksheets(stSheetName)
.Unprotect

' スクロール範囲を解除する
.ScrollArea = ""

' 保護されたセルでも選択可能にする
.EnableSelection = xlUnlockedCells
End With
End Sub
Public Sub setBookAttribute(ByVal bFlg As Boolean)
With Windows(ThisWorkbook.Name)

' タブを設定
.DisplayWorkbookTabs = bFlg

' スクロールバーを設定
.DisplayHorizontalScrollBar = bFlg
.DisplayVerticalScrollBar = bFlg

' グリッドを設定
.DisplayGridlines = bFlg

' 行列数表示を設定
.DisplayHeadings = bFlg
End With
End Sub

↓シート側
------------------------------------------------------
Private Sub btnProtect_Click()

' アプリケーション全体の処理
Call Module1.offCmdBarAttr

' シート単位の処理
Call Module1.protectSheet("Sheet1")

' ブック単位の処理
Call setBookAttribute(False)

Worksheets("Sheet1").Activate
End Sub

Private Sub btnUnprotect_Click()
Call Module1.onCmdBarAttr
Call Module1.unprotectSheet("Sheet1")
Call setBookAttribute(True)
End Sub

以上、よろしくお願いいたします。

回答No.4

end-u

ぁ...CommandButtonにフォーカスを残しておかなければいいので
Private Sub btnProtect_Click()
　　ActiveCell.Select '●
　　' アプリケーション全体の処理
　　Call Module1.offCmdBarAttr
　　' シート単位の処理
　　Call Module1.protectSheet("Sheet1")
　　' ブック単位の処理
　　Call setBookAttribute(False)
　　Worksheets("Sheet1").Activate
End Sub
これでもいいかも。

補足

end-uさん、いつもありがとうございます。

いただいた方法で試してみましたが(Activecell.Select)、
私のほうでは解消しませんでした。

現在はダミーでツールバーを表示させておく方法で、
回避していますが、できればきれいに解決したいものです。

ScreenUpdatingを無効にしておかないと、一瞬でもユーザー
情報が表示されてしまうため、なんとか解決しないといけないの
ですが…。

お手数をおかけしますが、引き続きお願いできたらと思います。