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

zjyxp

作业1

1. Sub 作业1()
   
2.     Dim i As Integer
   
3.      For i = 2 To 5
   
4.         Sheets("sheet" & i).Protect Password:=Range("b" & i)
   
5.             Next i
   
6. End Sub

复制代码

作业2

1. Sub 作业2()
   
2.     Dim i As Integer
   
3.     For i = 1 To Sheets.Count
   
4.      If Sheets(i).Name <> "主界面" Then
   
5.        Sheets(i).Visible = 0
   
6.      End If
   
7.     Next i
   
8. End Sub

复制代码

作业3，在sheet1-sheet5里面分别录入代码

1. Private Sub Worksheet_Activate()
   
2.   Sheets(6).Select
   
3. End Sub

复制代码

qushui

a组学委：qushui

1. Sub 批量添加保护()
   
2.     Dim i%, a
   
3.     With Sheets("密码表")
   
4.         For i = 2 To 5
   
5.             Sheets(.Cells(i, 1).Value).Protect Password:=.Cells(i, 2).Value
   
6.         Next i
   
7.     End With
   
8. End Sub
   
9. Sub 隐藏工作表()
   
10.     Dim Sh As Worksheet
    
11.     For Each Sh In Sheets
    
12.         If Sh.Name <> "主界面" Then
    
13.             Sh.Visible = 0
    
14.         End If
    
15.     Next Sh
    
16. End Sub
    
17. 
    
18. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
19.     If Sh.Name <> "主界面" Then
    
20.         Sheets("主界面").Select
    
21.     End If
    
22. End Sub
    

复制代码

qushui

忘了  附件补上   

370311805

一步一个脚印，好好学习

wxfx1228

第一题：
Sub bh()
Dim x As Integer
  For x = 2 To 5
  Sheets(x).Protect Password:=Range("b" & x).Value
  Next x
End Sub
第二题
Sub 隐藏工作表()
Dim i As Integer
  For i = 5 To 1 Step -1
    Sheets(i).Visible = 0
  Next i
End Sub
第三题：
Private Sub Worksheet_Activate()
Sheets("主界面").Select
End Sub

lyqzls

看看我的上次没交真遗憾

qzc804030

E组长:qzc804030交作业
第9讲作业题.rar (9.96 KB, 下载次数: 11)

2012-3-11 21:53 上传

点击文件名下载附件

开心妙妙

B09开心妙妙 B-09开心妙妙-第9讲作业题.rar (18.2 KB, 下载次数: 13)

2012-3-12 13:09 上传

点击文件名下载附件

chrissha

c組10 chrissha
第9讲作业题.rar (10.4 KB, 下载次数: 2)

2012-3-12 13:31 上传

点击文件名下载附件

shengxudong

Option Explicit

Dim x As Integer

Sub 隐藏工作表()

For x = 1 To Sheets.Count

    If Sheets(x).Name <> "主界面" Then

        Sheets(x).Visible = 0

    End If

Next x

End Sub

Sub 反隐藏工作表()

For x = 1 To Sheets.Count

    If Sheets(x).Name <> "主界面" Then

        Sheets(x).Visible = -1

    End If

Next x

End Sub

Sub 密电码()

Dim mysheet As String

For x = 1 To Sheets.Count

    If Sheets(x).Name = "Sheet2" Then

        mysheet = Sheets(x).Name

        Sheets(mysheet).Protect Password:=2

   

    ElseIf Sheets(x).Name = "Sheet3" Then

        mysheet = Sheets(x).Name

        Sheets(mysheet).Protect Password:=89

   

    ElseIf Sheets(x).Name = "Sheet4" Then

        mysheet = Sheets(x).Name

        Sheets(mysheet).Protect Password:=2

   

    ElseIf Sheets(x).Name = "Sheet5" Then

        mysheet = Sheets(x).Name

        Sheets(mysheet).Protect Password:=5

    End If

Next x

End Sub

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Name <> "主界面" Then

    Sheets("主界面").Select

End If

End Sub