Tag: break

防止macros为传递保护自毁文件中断

我决定创build一个通过保护的文件，将三个错误的密码input后自毁。 macros运行时打开的文件（用户窗口popupinput框字段），但弱点是Ctrl-Break允许停止macros并获得访问代码。 有什么办法来禁用/防止在特定工作簿中的Break选项（最好是通过VBA）？ 如果你有兴趣，我可以根据要求提供macros。 UPD：这是我正在使用的macros（基于date）。 Private Sub Workbook_Open() If Date > Cdate("30/03/2015") Then WARNING.Show End If End Sub 这部分代码分配给UserForm“WARNING”的“Ok”和“Cancel”button。 Public i As Integer Public b As Integer Sub setib() i = 2 – b b = b + 0 End Sub Private Sub CnclBtn_Click() WARNING.Hide With ThisWorkbook .Saved = True .Close False End With End […]

当Excel被locking在程序中时，打开Excelbutton上的子程序

我已经编写了一个VBA过程（在Excel 2010中启动），它围绕包含不同Excel文件的数组进行循环。 循环打开文件，刷新数据，保存并closuresarrays中每个项目的文件。 这个过程可能需要90分钟才能完成，所以我想要一个安全的中断程序，当当前的迭代完成后，程序将停止。 我在一个do-while循环中包含了一个初始化为False的布尔值的代码。 我在Excel中创build了一个停止button，当按下时将布尔variables设置为True，以满足do while条件并停止该过程。 停止button基于相同的Excel文件，它初始化打开和closuresExcel文件的过程。 这意味着excel实例被locking，所以用户不能按下breakbutton并暂停程序。 我怎样才能访问停止button？ 还是有其他方法来启动rest？ 我的代码 – 新增06/06/2014 15:12 Sub Refresh_Weekly() failedIndex = 0 'DoEvents 'Refresh_StandardWeekly ' module 2 'Refresh_NonStandardWeekly ' module 4 Refresh_CRIS ' module 3 If StopMsg <> "" Then MsgBox StopMsg ElseIf failedIndex = 0 Then MsgBox "All Weekly Pivots refreshed" Else For x = 0 […]