Sub EnabledFalse()
On Error Resume Next
With Application.CommandBars("Cell")
.Controls(1).Enabled = False
.Controls(2).Enabled = False
End With
Err.Clear
End Sub
Sub EnabledTrue()
On Error Resume Next
With Application.CommandBars("Cell")
.Controls(1).Enabled = True
.Controls(2).Enabled = True
End With
Err.Clear
End Sub