统计VBA学习小组正式组第八课（第十讲）的积分帖之作业上交贴（第11周）

冠军欧洲2010

说明:
统计帖每个学员只能跟帖回复一次，也就是在原来回复楼层的基础上点编缉，不要一个链接一层楼，否则不计算积分。
各小组学员上交作业时，一定要点击“我要参加”，并注明自己的新组编号和论坛ID，如果点击过“我要参加”但没有跟帖提交作业的，扣该学员5积分；如果跟帖提交了作业，但没有点“我要参加”的，不给予评分。

请各学员看清上面的说明，免得被扣了分分！
本帖为仅楼主可见帖，直接回复即可！
第九课（第10讲）作业链接：
http://www.excelpx.com/thread-225973-1-1.html

byhdch

A09:byhdch

第一题：
Sub 批量添加保护()
   Dim i As Integer, j As Integer
    For i = 1 To Sheets.Count
    For j = 2 To 5
       If Sheets(i).Name = Sheets("密码表").Range("a" & j) Then
         Sheets(i).Protect Password:=Sheets("密码表").Range("b" & j).Value
       End If
     Next j
   Next i
End Sub

第二题：
Sub 隐藏工作表()
Dim i As Integer
    For i = 1 To Sheets.Count
      If Sheets(i).Name <> "主界面" Then
        Sheets(i).Visible = 0
      End If
   Next i
End Sub

第三题：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sheets("主界面").Select
End Sub

第9讲作业题 A09byhdch.rar (10.48 KB, 下载次数: 2)

2012-3-7 21:10 上传

点击文件名下载附件

decheng

老师 您好  您看一下 我的作业是否正确
第9讲作业题 decheng.zip (17.38 KB, 下载次数: 14)

2012-3-7 00:33 上传

点击文件名下载附件

yu20078

第一题
Sub 添加密码()
Dim rng As Range, i As Integer
For i = 2 To 5
    For Each rng In Range("a2:a5")
        If rng = Sheets(i).Name Then
            Sheets(i).Protect Password:=rng.Offset(0, 1).Value
        End If
    Next rng
Next i
End Sub

第二题
Sub 隐藏工作表()
Dim x As Integer
For x = 1 To Sheets.Count
    If Sheets(x).Name <> "主界面" Then Sheets(x).Visible = 0
Next x
End Sub

第三题
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub

happym8888

1. 
   
2. Option Explicit
   
3. Private Sub Workbook_Activate()
   
4.       If ActiveSheet.Name <> "主界面" Then Sheets("主界面").Select
   
5. End Sub
   
6. 
   
7. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
8.       If ActiveSheet.Name <> "主界面" Then Sheets("主界面").Select
   
9. End Sub
   
10. 
    
11. Option Explicit
    
12. Sub 隐藏工作表()
    
13. Dim i As Integer
    
14. For i = 1 To Sheets.Count
    
15.       If Sheets(i).Name = ActiveSheet.Name Then Exit Sub
    
16.       Sheets(i).Visible = False
    
17. Next
    
18. End Sub
    
19. 
    
20. Sub 批量添加保护()
    
21. Dim i As Integer
    
22. For i = 2 To 5
    
23.       Sheets(Cells(i, 1).Value).Protect Cells(i, 2).Value
    
24. Next
    
25. End Sub
    

复制代码

第9讲作业题C17-Happym8888.rar (10.08 KB, 下载次数: 6)

2012-3-7 01:03 上传

点击文件名下载附件

szczm121

g17:szczm121
1题
Sub 批量保护工作表()
Sheets("sheet2").Protect Password:=2
Sheets("sheet3").Protect Password:=89
Sheets("sheet4").Protect Password:=2
Sheets("sheet5").Protect Password:=5
End Sub
2题
Sub 隐藏工作表()
   Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "密码表")).Visible = 0
End Sub
3题
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub
szczm121第9课作业.rar (10.26 KB, 下载次数: 2)

2012-3-7 08:32 上传

点击文件名下载附件

hrpotter

C12-hrpotter-第9讲作业题.rar (9.82 KB, 下载次数: 9)

2012-3-7 08:59 上传

点击文件名下载附件

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.     Sheets("主界面").Select
   
3. End Sub
   

复制代码

1. Sub 隐藏工作表()
   
2.     Dim Sh As Worksheet
   
3.     For Each Sh In Worksheets
   
4.         If Sh.Name <> "主界面" Then
   
5.             Sh.Visible = 0
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

1. Sub 批量添加保护()
   
2.     Dim i As Integer
   
3.     Dim Sh As Worksheet
   
4.     For i = 2 To Range("a65536").End(xlUp).Row
   
5.         For Each Sh In Worksheets
   
6.             If Sh.Name = Cells(i, 1) Then
   
7.                 Sh.Protect Cells(i, 2)
   
8.             End If
   
9.         Next
   
10.     Next
    
11. End Sub

复制代码

ybchxj2010

作业中有二个地方没按老师的思路走：
一、各工作表的密码都相同（我记忆力不好)
二、在给工作表加密的过程中，事先没有判断工作表是否已经加密。直接用错误语句跳过。
另外：本人一直不机会听老师讲课（给其他同学让道),老师是否可以在群里共享课件??

yijundanny

游客，如果您要查看本帖隐藏内容请回复

雨后的风

1. 
   
2. Sub 批量添加保护()
   
3.   Sheets("Sheet5").Protect 5
   
4.   Sheets("Sheet4").Protect 2
   
5.   Sheets("Sheet2").Protect 2
   
6.   Sheets("Sheet3").Protect 89
   
7. End Sub

复制代码

第9讲作业题.zip (17.18 KB, 下载次数: 2)

2012-3-7 11:40 上传

点击文件名下载附件