2015年VBA初级1班D组第2讲作业提交帖

星白

D25：星白

1. Public A As Boolean    '定义一个公共变量
   
2. Sub 退出()
   
3.     A = True    '当点击的指定按钮后，将A为设为已点击，然后再关闭工作簿
   
4.     ActiveWorkbook.Save    '活动状态的工作薄进行保存
   
5.     Application.Quit    '退出 Excel 程序
   
6. End Sub
   
7. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
8.     If Not A Then    '当A为False时，即未点击指定按钮
   
9.         MsgBox "此功能已经被禁止，请使用“关闭”按钮关闭工作簿!", vbExclamation, "提示"
   
10.         Cancel = True    '取消关闭的操作
    
11.     End If
    
12. End Sub

复制代码

郭郭嗯

我放弃

xk465592765

xk465592765 发表于 2015-6-14 20:56
D20:xk465592765