如何让vba中命令代码失效

有两种理解

1. VBA运行时，表格中的各种 *** 作禁用。此时，你可使冲坦用以下代码： Application.ScreenUpdating = False 此时屏幕处于不更新状态，鼠标处于繁忙中，相当于假死机。 更狠的，可以将改凯程序隐藏起来，代码履行完后再显示： Application.Visible = False

2. VBA运行中，中断运行的散歼桐VBA代码： 运行中按组合键Ctrl+Break或ESC可以中断代码运行。

你好：

可以备凳用下面的代搏滚简码：

on error resume next

    if(iserror(condition)) then'condition中是你判断是否出错的条件

      基裤  exit sub'这是退出整个程序

    endif

on error goto 0

祝你成功！

－－－－－－游卖虚－－－－－－－－－－－－－－－

Public x As String　'申明一个神燃公共变量

Sub A()

End Sub

---------------------------------

Private Sub CommandButton1_Click()'  窗体1控件程序代码

'

'你的过程

'

Dim m%

UserForm2.Show

'

'

If x = "CommandButton2" Then

MsgBox x

Exit Sub

End If

If x = "CommandButton1" Then

MsgBox x

End If

'你的过程'

'

End Sub

－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click()‘’窗体1控件代码

Unload Me

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

x = Me.ActiveControl.Name

End Sub

－－－－－－－－－－－－－－－－－－配颤

---