返回列表 上一主題 發帖

如何離開excel程式???

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-10-15 23:39 | 只看該作者

如何離開excel程式???

本帖最後由 sillykin 於 2016-10-15 23:41 編輯

本人在程式加了下面項目,但要如何存檔,並強制離開此程式??
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
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-11-6 
2#
發表於 2016-10-16 13:37 | 只看該作者
给你两种方式：
一、添加一个新的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运行，这行就可以保存了。
世界那麼大，可我想去哪？

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題