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

hactnet

交下作业，H15:hactnet

yl_li

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

2012-3-8 13:35 上传

点击文件名下载附件

汉娜

B12:汉娜
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 隐藏工作表()
Dim x As Integer
For x = 1 To Sheets.Count
If Not Sheets(x) Is Sheets("主界面") Then
    Sheets(x).Visible = 0
End If
Next
End Sub
3 在主界面以外的工作表模块中写入以下语句：
Private Sub Worksheet_Activate()
Sheets("主界面").Select
End Sub

bl5062

貌似16组~~~~~~~~~~~~

wuhairong2011

第1题
Sub 工作表保护()
Worksheets("密码表").Activate
Dim s As String
Dim z As Integer
For z = 2 To 5
  s = Cells(z, 1).Value
  Sheets(s).Protect Password:=Cells(z, 2)
Next z
End Sub
第2题
Sub 隐藏工作表()
Worksheets("主界面").Activate
Dim x As Integer
For x = 1 To Sheets.Count
   Sheets(x).Visible = 0
Next x
   Sheets("主界面").Visible = -1
End Sub
第3题
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub

菜鸟无尾鱼

F02：菜鸟无尾鱼


Sub 隐藏工作表()
Sheets(Array("密码表", "SHEET5", "SHEET4", "SHEET3", "SHEET2")).Visible = 0

End Sub

Sub 取消隐藏工作表()
Dim x As Integer 第9讲作业题3-8.rar (12.21 KB, 下载次数: 7)

2012-3-8 18:01 上传

点击文件名下载附件


For x = 1 To Sheets.Count
Sheets(x).Visible = 1
Next x
End Sub
Sub a01()
Sheets.Parent
End Sub
Sub 批量添加保护()

Dim y As Integer
Dim x As Integer
For x = 2 To 5
Sheets(x).Protect Password:=y
y = Range("b" & x)

Next x
End Sub

sunjing-zxl

E学委:sunjing-zxl
第9讲作业题-sunjing-zxl.rar (17.03 KB, 下载次数: 3)

2012-3-8 19:30 上传

点击文件名下载附件

我不知道呀

第一题：在密码表的VBE编辑窗口输入以下代码：
Sub 批量添加保护()
Dim gzb As String, mm As String
Dim X As Integer
Dim y As Integer
X = Range("a65536").End(xlUp).Row - 1
  For y = 1 To X
  gzb = Cells(y + 1, 1)
  mm = Cells(y + 1, 2)
    Sheets(gzb).Protect Password:=mm
  Next y
End Sub

第二题：新建一个模块，在模块中输入以下代码：
Sub 隐藏工作表()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name <> "主界面" Then
Sh.Visible = 0
End If
Next
End Sub

第三题：在thisworkbook的VBE编辑窗口里输入如下代码：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "主界面" Then
Sheets("主界面").Select
End If
End Sub

bikong01

老师辛苦了!!!!!!

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