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

云子

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

第2讲课程视频 http://www.excelpx.com/thread-365855-1-1.html
第2讲课件 http://www.excelpx.com/thread-365774-1-1.html
第2讲作业 http://www.excelpx.com/thread-365779-1-1.html

作业要求：
1、提交作业请注明论坛ID及学号。如：D14-郭郭嗯；
2、作业请以代码方式提交，标清题号并所有题贴到一个代码标签中，无需提交附件。不会使用标签可移步妙妙班长帖子：http://www.excelpx.com/thread-322284-1-1.html
3、代码题要求强制声明变量，代码缩进
4、跟帖不要重复占楼,有问题直接在原帖编辑;
5、非本组学员请勿跟帖，否者往死里扣分；
6、作业截止时间：2015年6月16日18:00时

天蓝地黑

1. 事件程序
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3. MsgBox "此功能已经被禁止，请使用""关闭""按钮关闭工作簿!", , "提示"
   
4. Cancel = True
   
5. End Sub
   
6. 关闭按钮程序
   
7. Sub 关闭()
   
8. ThisWorkbook.Save
   
9. Application.EnableEvents = False
   
10. ThisWorkbook.Close 1
    
11. Application.EnableEvents = True
    
12. End Sub
    

复制代码

D09:天蓝地黑
对了，用这个交作业，为什么代码缩进没有了呢？我是有缩进的？？？

一村之长

D15：一村之长
代码存放在ThisWorkbook
学委美女大人辛苦了，一定要给高分哦么么哒{:011:}，虽然不是第一个交作业

1. Dim bc As Boolean '定义一个变量“bc”，默认值False
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     If bc = False Then  '假设变量bc=False
   
4.         Cancel = True   '参数Cancel赋值True,禁止关闭工作簿
   
5.         MsgBox "此功能已经被禁止，请使用""关闭""按钮关闭工作簿!", vbExclamation, "提示"
   
6.     End If
   
7. End Sub
   
8. Public Sub closeworkbook()
   
9.     bc = True '变量bc赋值True
   
10.     ThisWorkbook.Close True '强制保存当前工作簿
    
11.     Me.Close  '关闭当前工作簿
    
12. End Sub
    

复制代码

武林长风

D14：武林长风  交作业[code]Option Explicit
Option Explicit
Dim wb As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If wb = False Then
        Cancel = True
        MsgBox "此功能已经被禁止，请使用""关闭""按钮关闭工作簿!", vbExclamation, "提示"
    End If
End Sub
Public Sub CloseWorkbook()
    ThisWorkbook.Save
    wb = True
    Me.Close
    Application.Quit
End Sub

addins

云子辛苦，D05-Addnins交作业：

1. Public Close_ As Boolean '“关闭按钮”过程初始值
   
2. Sub 关闭按钮()
   
3.     Close_ = True               '设置初始值为真
   
4.     ActiveWorkbook.Close True   '关闭工作簿并自动保存
   
5. End Sub
   
6. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
7.     If Close_ = True Then                    '如果初始值设置为真
   
8.         Cancel = False                      '允许执行关闭动作
   
9.         Close_ = False                      '复归初始值
   
10.     Else
    
11.         Cancel = True                   '初始值未变化禁止关闭工作簿
    
12.         MsgBox "此功能已经被禁止，请使用""关闭""按钮关闭工作簿!", vbExclamation, "提示"     '警告
    
13.     End If
    
14. End Sub
    

复制代码

一村之长

一村之长 发表于 2015-6-12 08:01
D15：一村之长
代码存放在ThisWorkbook
学委美女大人辛苦了，一定要给高分哦么么哒，虽然不是第一 ...

{:011:}这样才能证明我真的是菜鸟啊

xk465592765

D20:xk465592765

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

复制代码

Updating…

1. C23 UPDATING
   
2. Option Explicit
   
3. 
   
4. Private Sub Workbook_BeforeClose(cancel As Boolean)
   
5.     cancel = 1
   
6.     MsgBox "此功能已经被禁止，请使用“关闭”按钮关闭工作簿！", vbExclamation, "提示"
   
7. 
   
8. End Sub
   
9. 
   
10. Sub 关闭()
    
11.     Application.DisplayAlerts = 0
    
12.     Dim cancel As Boolean
    
13. 
    
14.     Workbook_BeforeClose (cancel = 0)
    
15. 
    
16.     Save
    
17.     cancel = 0
    
18.     Application.DisplayAlerts = 1
    
19. End Sub
    

复制代码

contending

D04：contending   不会做

1. Private Sub Workbook_BeforeClose(cancle As Boolean)
   
2.             MsgBox "此功能已经被禁止，请使用“关闭”按钮关闭工作簿！"
   
3.      If ThisWorkbook.Saved = True Then
   
4.          ThisWorkbook.Save
   
5.       cancle = True
   
6.     End If
   
7. End Sub
   
8. 
   
9. 
   
10. 
    
11. Sub 退出()
    
12. For Each WB In Application.Workbooks
    
13. Next
    
14.     Application.Quit
    
15. End Sub
    
16. 
    
17. 
    

复制代码

纳哥普尔

D23:纳哥普尔
作业不会，厚着脸皮交吧

1. Option Explicit                                ’强制声明变量    ‘
   
2. 
   
3. Sub 保存工作簿()
   
4.     Dim ipo As String                                 '定义ipo为提示栏的内容
   
5.     ipo = "此功能已经被禁止，请使用""关闭""按钮关闭工作簿！"
   
6.     'ActiveWorkbook.Save = False                      '想不让关闭工作簿，但不会写
   
7.     ActiveWorkbook.RunAutoMacros Which:=xlAutoClose   '用录制屏得到宏，但不知道怎么改
   
8.     MsgBox ipo, vbExclamation + vbOKOnly, "提示:"    '以警告+确定的形式显示提示栏
   
9.     ActiveWorkbook.Close True                        '保存修改并关闭工作簿
   
10. End Sub
    

复制代码