enable/disable entire command bar?

Is there a way to disable then re-enable the entire command bar?

I have a customer using 11.2 and they have a long-running Save routine. If you click Save, then click several command buttons, the whole app crashes.  Sometimes only 1 button click is needed.

I believe that if I can prevent the user from clicking another button until that Save is complete, I can stop the crashes.  At least, I want to test that hypothesis.

So ... can I disable the command bar?

Thanks!

Dim iLCtr As Integer

On Error GoTo errHandler
   
    Set obBar = CommandBars.item(2)
   
    If bMActive = True Then
                
        For iLCtr = 1 To obBar.Controls.count
           
            Set obCtrl = obBar.Controls.item(iLCtr)
           
            If obCtrl.Id <> ID_CTRL_PLAY Then
                If obCtrl.Id <> 1000 Then
                    obCtrl.Enabled = True
                End If                
            End If
           
        Next iLCtr
       
    Else
                
        For iLCtr = 1 To obBar.Controls.count
           
            Set obCtrl = obBar.Controls.item(iLCtr)
           
            If obCtrl.Id <> ID_CTRL_STOP Then
                If obCtrl.Id <> ID_CTRL_PAUSE Then
                    If obCtrl.Id <> ID_CTRL_ONTOP Then
                        obCtrl.Enabled = False
                    End If
                End If
            End If
           
        Next iLCtr
       
    End If

errHandler:
   
    If Err.Number Then
        MsgBox Err.Number & ",  " & Err.Description, vbCritical, "SetActive"
    End If