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

xiaoni

第9讲作业题.rar (19.56 KB, 下载次数: 3)

2012-3-9 05:33 上传

点击文件名下载附件
Sub 隐藏工作表()
    Dim i As Long
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "主界面" Then
            Sheets(i).Visible = False
        End If
    Next i
End Sub
Sub 批量添加保护()
    With Sheets("密码表")
        Dim i As Long
        Dim X As Long
        For i = 2 To 5
            For X = 1 To Sheets.Count
                If Sheets(X).Name = Range("A" & i) Then
                    Sheets(i).Protect Password:=Range("B" & i)
                End If
            Next X
        Next i
    End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub

wangchangjun

Sub 隐藏工作表()
    Dim i As Integer
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "主界面" Then
            Sheets(i).Visible = False
        End If
    Next
End Sub
Sub 批量添加保护()
    Dim x As Integer
    Dim y As String
    For x = 2 To [a65536].End(xlUp).Row
        y = Cells(x, 1).Value
        Sheets(y).Protect Password:=Cells(x, 2).Value
    Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "主界面" Then
        Sheets("主界面").Activate
    End If
End Sub
第9讲作业题.rar (16.39 KB, 下载次数: 2)

2012-3-9 07:55 上传

点击文件名下载附件

gaoshuichang1

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

2012-3-9 08:18 上传

点击文件名下载附件

想飞的鸟

第九课作业上交了,请老师多指点一下,我的第3题有点不懂,不知做对没有

亦铭

1、Sub 添加保护()
Dim i As Integer
For i = 2 To 5
Sheets("sheet" & i).Select
ActiveSheet.Protect Password:=Sheets("密码表").Range("b" & i)
Next i
End Sub
2、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
3、Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub

LIYEHUAOK

作业做好了请老师看看不足望指点谢谢

tytytty

第9讲作业题-tytytty.xls (46 KB, 下载次数: 14)

2012-3-9 14:51 上传

点击文件名下载附件 辛苦老师

开心rabbit

A08开心rabbit.rar (10.18 KB, 下载次数: 2)

2012-3-9 15:28 上传

点击文件名下载附件
1.Sub 批量添加保护()
Dim x As Integer
    For x = 2 To 5
    Sheets(Cells(x, 1).Value).Protect Password:=(Cells(x, 2).Value)
    Next x
End Sub
2.Sub 隐藏工作表()
Dim x As Integer
    For x = 1 To Sheets.Count
        If Sheets(x).Name <> "主界面" Then
        Sheets(x).Visible = 0
        End If
    Next x
End Sub
3.Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If ActiveSheet.Name <> "主界面" Then
    Sheets("主界面").Select
    End If
End Sub

linch92413

E05:linch92413 交作业
第一题：
Sub 添加保护()
   Dim Nam As String, Pas As Integer
   Dim i As Integer
   With Sheets("密码表")
      For i = 2 To .Range("a65536").End(xlUp).Row
         Nam = .Range("a" & i)
         Pas = .Range("b" & i)
         Sheets(Nam).Protect Password:=Pas
      Next i
   End With
   MsgBox "密码添加完成"
End Sub

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

第三题：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If Sh.Name <> "主界面" Then Sheets("主界面").Select
End Sub
第9讲作业题(linch92413).rar (17.26 KB, 下载次数: 3)

2012-3-9 16:33 上传

点击文件名下载附件

兰江自由鱼

'-------------------------------
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
'-----------------------------------
Sub 批量保护()
Dim Arr
Dim i As Integer
Arr = Sheets("密码表").Range("A2:B5").Value
For i = 1 To UBound(Arr)
  Sheets(Arr(i, 1)).Protect Password:=Arr(i, 2)
Next i
End Sub

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