zjyxp 发表于 2012-3-11 12:22

作业1Sub 作业1()
    Dim i As Integer
   For i = 2 To 5
      Sheets("sheet" & i).Protect Password:=Range("b" & i)
            Next i
End Sub作业2Sub 作业2()
    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作业3，在sheet1-sheet5里面分别录入代码Private Sub Worksheet_Activate()
Sheets(6).Select
End Sub

qushui 发表于 2012-3-11 15:29

a组学委：qushuiSub 批量添加保护()
    Dim i%, a
    With Sheets("密码表")
      For i = 2 To 5
            Sheets(.Cells(i, 1).Value).Protect Password:=.Cells(i, 2).Value
      Next i
    End With
End Sub
Sub 隐藏工作表()
    Dim Sh As Worksheet
    For Each Sh In Sheets
      If Sh.Name <> "主界面" Then
            Sh.Visible = 0
      End If
    Next Sh
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "主界面" Then
      Sheets("主界面").Select
    End If
End Sub

qushui 发表于 2012-3-11 15:32

忘了附件补上   :(:(:(

370311805 发表于 2012-3-11 16:53

一步一个脚印，好好学习

wxfx1228 发表于 2012-3-11 20:57

第一题：
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 发表于 2012-3-11 21:51

看看我的上次没交真遗憾

qzc804030 发表于 2012-3-11 21:53

E组长:qzc804030交作业

开心妙妙 发表于 2012-3-12 13:09

B09开心妙妙

chrissha 发表于 2012-3-12 13:31

c組10 chrissha

shengxudong 发表于 2012-3-12 14:26

Option ExplicitDim x As Integer Sub 隐藏工作表()For x = 1 To Sheets.Count    If Sheets(x).Name <> "主界面" Then      Sheets(x).Visible = 0    End IfNext xEnd SubSub 反隐藏工作表()For x = 1 To Sheets.Count    If Sheets(x).Name <> "主界面" Then      Sheets(x).Visible = -1    End IfNext xEnd Sub Sub 密电码()Dim mysheet As StringFor 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 IfNext xEnd SubOption ExplicitPrivate Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name <> "主界面" Then    Sheets("主界面").SelectEnd If End Sub
页: 1 2 3 4 5 6 [7] 8
查看完整版本: 统计VBA学习小组正式组第八课（第十讲）的积分帖之作业上交贴（第11周）