[2015VBA初级1班]C组作业第二讲提交贴

Ethelangel

1. 
   
2. c05-Ethelangel
   
3. 
   
4. 
   
5. 
   
6. '以下代码放在模块里
   
7. 
   
8. Option Explicit
   
9. Public cl As Boolean   '定义cl为布尔型公共变量
   
10. '--------------------------------------------------------------------------------------------
    
11. Sub 关闭()
    
12.     cl = 1                    '触发关闭工作簿
    
13.     ActiveWorkbook.Save         '保存当前活动工作簿
    
14.     Application.Quit            '彻底退出
    
15. End Sub
    
16. '--------------------------------------------------------------------------------------------
    
17. 
    
18. -------------------------
    
19. 
    
20. '以下代码放在工作簿里
    
21. 
    
22. Option Explicit
    
23. ---------------------------------------------------------------------------------------------
    
24. Private Sub Workbook_BeforeClose(Cancel As Boolean)   
    
25.     If cl Then       '点击“关闭”按钮后cl为真
    
26.         Cancel = 0: cl = 0       '允许执行关闭工作簿动作，同时将触发cl复归
    
27.     Else
    
28.         Cancel = 1                   '未点击“关闭”按钮，禁止关闭工作簿
    
29.         MsgBox "此功能已经被禁止，请使用""关闭""按钮关闭工作簿!", vbExclamation, "提示"  '跳出提示对话框
    
30.     End If
    
31. End Sub
    
32. 
    

复制代码