如何離開excel程式???

sillykin

本人在程式加了下面項目,但要如何存檔,並強制離開此程式??
Dim closeflag As Boolean
Private Sub workbook_beforeclose(cancel As Boolean)
If closeflag = False Then
cancel = True
MsgBox "此功能已經被禁止", vbExclamation, "提示"
End If
End Sub
Public Sub closeworkbook()
closeflag = True
Me.Close
End Sub
Private Sub workbook_beforesave(ByVal saveasul As Boolean, cancel As Boolean)
If saveasul = True Then
MsgBox "此檔案不允許另存新檔作業!!", vbOKOnly, "注意"
cancel = True
Else
cancel = False
End If
End Sub

Joforn

给你两种方式：
一、添加一个新的Sub,代码如下：

1. Sub Test()
   
2.   Application.EnableEvents = False
   
3. End Sub

複製代碼

然后运行Test这个过程后，再删除上面的代码，然后存盘。

二、使用断点测试：
鼠标点击Workbook_BeforeSave过程的第一行代码

1. If saveasul = True Then

複製代碼

，使用光标在此行闪烁，然后按F9在此行下断点(此行前面有个红点)；再在Workbook_BeforeClose过程的第一行代码

1. If Closeflag = False Then

複製代碼

处下断点（方法同上），点击保存，这时断点处代码会被加黄底，拖动代码前面的黄色箭头，拉到End Sub(这时End Sub 这行变成黄底)，而后按F5运行，这行就可以保存了。