论坛 › Excel VBA实战营2期 › 统计VBA学习小组正式组第八课（第十讲）的积分帖之作业上交贴（第11周）

水上漂123 发表于 2012-3-12 19:34

Sub 隐藏工作表()
Dim SH As Worksheet
For Each SH In Sheets
If SH.Name <> "主界面" Then SH.Visible = xlSheetVisible
Next
End Sub
Sub tt()
Dim x As Integer
Dim y As String
For x = 2 To 5
y = Range("b" & x).Value
Sheets(x).Protect Password:=y
Next x
End Sub
Sub tt1()
Dim x As Integer
Dim y
y = Array(2, 49, 24, 55)
For x = 1 To 4
Sheets(x + 1).Protect Password:=y(x - 1)
Next x
End Sub

水上漂123 发表于 2012-3-12 20:08

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "主界面" Then Sheets("主界面").Select
End Sub
Sub 隐藏工作表()
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name <> "主界面" Then Sh.Visible = xlSheetVisible
Next
End Sub
Sub tt()
Dim x As Integer
Dim y As String
For x = 2 To 5
y = Range("b" & x).Value
Sheets(x).Protect Password:=y
Next x
End Sub

vistafans 发表于 2012-3-12 23:52

vbaa16   vistafans

janne.71 发表于 2012-3-13 08:55

老师，我第一次来交作业，没有参加竞赛小组。^:L

tongfuge 发表于 2012-3-13 19:32

2.
Option Explicit
Dim i As Integer
For i = 1 To Sheets.Count
    If Sheets(i) <> Sheets(主界面) Then
      Sheets(主界面).Select
      Sheets(i).Visible = 0
    End If
   Next i
End Sub

3.
Private Sub Workbook_Activate()
Dim sr
    sr = Application.InputBox("请输入查看密码")
   If sr <> 123 Then
       Sheets("主界面").Select
   End If
End Sub

szczm121 发表于 2012-3-13 22:12

能把九课的作业设置为可见了吗?我对批量保护工作表,由,于保护密码不同,不会用循环,想学习一下

laoau126 发表于 2015-6-14 17:11

124242745

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