返回列表 上一主題 發帖

Auto_Close()

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-24 18:44 | 只看該作者

Auto_Close()

Sub Auto_Close()       
IF A1=1 THEN 取銷關閉檔案動作 ,跳回原作用視窗
END SUB

紅色的語法是??
收藏 分享

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
2#
發表於 2014-10-24 19:18 | 只看該作者
'  在 ThisWorkbook 裡面放入
'  A1 自己改成全域變數

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If A1 Then Cancel = True
End Sub

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2014-10-24 21:30 | 只看該作者
'  在 ThisWorkbook 裡面放入
'  A1 自己改成全域變數

Private Sub Workbook_BeforeClose(Cancel As Bo ...
bobomi 發表於 2014-10-24 19:18


這答案完全正確，謝謝指導

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題