我写了一个简单的 VBA程序，但是每次执行都会出现“中断执行代码”的提示 在msgbox这里

Sub vvv()

Dim f

f = ApplicationGetOpenFilename("Excel文件,xls")

MsgBox f

End Sub

Excel Excel中在中断模式不能执行程序代码，是设置错误造成的，解决方法如下：

1、首先在表格软件中，选择Excel保存的类型，点击Excel启用宏的工作簿xlsm。

2、然后打开Excel，点击开发工具。

3、点击开发工具之后，在打开的菜单中，找到并点击宏，这时就能发现ExcelVBA被保存了。

4、点击执行，就能执行录制的宏代码了，效果如图所示。

5、当然也可以通过文件——另存为——文件格式为启用宏的工作簿xlsm，这样就完成了。

Sub scdm() '删除代码及窗体

ApplicationDisplayAlerts = False

ApplicationVBECommandBars(1)Controls("工具(T)")Controls("VBAProject 属性(E)")Execute

ApplicationSendKeys "123456"

ApplicationSendKeys "{ENTER}"

ApplicationSendKeys "{ESC}"

Dim t, i

t = DateAdd("s", 2, Now)

Do Until Now > t

DoEvents

Loop

For i = 1 To ThisWorkbookVBProjectVBComponentsCount

ThisWorkbookVBProjectVBComponents(i)CodeModuleDeleteLines 1, _

ThisWorkbookVBProjectVBComponents(i)CodeModuleCountOfLines

Next

Dim Vbc As Object

For Each Vbc In ApplicationThisWorkbookVBProjectVBComponents

Select Case VbcType

Case 1, 2, 3

With ApplicationVBEActiveVBProjectVBComponents

Remove Item(VbcName)

End With

End Select

Next

End Sub

把按密码的动作加进去就成了，上面第4句就是密码123456，你改成你的密码

有两种理解

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

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

以上就是关于我写了一个简单的 VBA程序，但是每次执行都会出现“中断执行代码”的提示 在msgbox这里全部的内容，包括:我写了一个简单的 VBA程序，但是每次执行都会出现“中断执行代码”的提示 在msgbox这里、Excel Excel中在中断模式不能执行程序代码是什么意思、求助：VBA自杀代码被工程密码中断等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！