hactnet 发表于 2012-3-8 13:11

交下作业，H15:hactnet
{:1_1:}

yl_li 发表于 2012-3-8 13:35

汉娜 发表于 2012-3-8 14:02

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 发表于 2012-3-8 14:46

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

wuhairong2011 发表于 2012-3-8 16:04

第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

菜鸟无尾鱼 发表于 2012-3-8 18:03

F02：菜鸟无尾鱼


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

End Sub

Sub 取消隐藏工作表()
Dim x As Integer


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 发表于 2012-3-8 19:31

E学委:sunjing-zxl

我不知道呀 发表于 2012-3-8 21:46

第一题：在密码表的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 发表于 2012-3-8 22:58

老师辛苦了!!!!!!

xiaoni 发表于 2012-3-9 05:34


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
页: 1 2 3 [4] 5 6 7 8
查看完整版本: 统计VBA学习小组正式组第八课（第十讲）的积分帖之作业上交贴（第11周）