F18：寂寞深水鱼
Sub 添加保护()
Worksheets("sheet2").Protect Password:=2
Worksheets("sheet3").Protect Password:=89
Worksheets("sheet4").Protect Password:=2
Worksheets("sheet5").Protect Password:=5
End Sub
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 SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)
Worksheets("主界面").Select
End Sub
本帖最后由 无聊的疯子 于 2012-3-12 13:52 编辑
A03:无聊的疯子
忘了贴代码了...
Sub 隐藏工作表()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name <> "主界面" Then Sh.Visible = 0
Next
End Sub
Sub 添加密码()
Dim X As Byte
For X = 2 To 5
Sheets(Cells(X, 1).Value).Protect Val(Cells(X, 2).Value)
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> Sheets("主界面").Name Then Sheets("主界面").Select
End Sub
第一题代码
Sub 批量工作表添加保护()
Dim x As Integer
For x = 2 To 5
Sheets(x).Protect Password:=Sheet1.Range("B" & x)
Next x
End Sub
第二题代码
Sub 隐藏工作表()
Sheets(Array("密码表", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Visible = 0
End Sub
第三题代码
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "密码表" Or ActiveSheet.Name = "Sheet5" Or ActiveSheet.Name = "Sheet4" Or ActiveSheet.Name = "Sheet3" Or ActiveSheet.Name = "Sheet2" Then
Sheets(6).Select
End If
End Sub
第三题的代码if部分这样做肯定的不合理,但我又不知怎么做,请老师明示.本人已经56岁了,可以是最老的学员,外语无基础,单词不记得,只凭一腔热血,请老师不要见笑.
Sub 保护()
Dim x As Integer
For x = 2 To 5
Sheets(Range("A" & x).Value).Protect Password:=Range("B" & x).Value
Next x
End Sub
Sub 隐藏()
Dim x As Integer
For x = 1 To Sheets.Count
If Sheets(x).Name <> "主界面" Then
Sheets(x).Visible = flase
End If
Next x
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "主界面" Then
Sheets("主界面").Select
End If
End Sub
A01:xxjjdd0000Sub 隐藏工作表()Application.ScreenUpdating = False
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet4.Visible = xlSheetVeryHidden
Sheet5.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub
Sub 批量保护()
Sheets("sheet2").Protect Password:=2
Sheets("sheet3").Protect Password:=89
Sheets("sheet4").Protect Password:=2
Sheets("sheet5").Protect Password:=5
End Sub
Sub 所有工作表取消隐藏()
Application.ScreenUpdating = False
Sheet1.Visible = xlSheetVisible
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Sheet4.Visible = xlSheetVisible
Application.ScreenUpdating = True
End Sub
Sub 添加保护()
Dim x As Integer
For x = 2 To 5
With Sheets("密码表")
Sheets(.Range("a" & x).Value).Protect Password:=Range("b" & x).Value
End With
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub
awxgaige 发表于 2012-3-9 21:30 static/image/common/back.gif
第一题代码
Sub 批量工作表添加保护()
Dim x As Integer
自己细想一下,第一题也有问题,目前只能这样了,再研究!
H07:w2001pf
A07: 一缕忧兰
第一题
Sub 批量添加保护()
Dim m, i As Integer
With Sheets("密码表")
For i = 2 To 5
m = .Cells(i, 1)
Sheets(m).Protect .Cells(i, 2)
Next i
End With
End Sub
第二题
Sub 隐藏工作表()
Dim i
For i = 1 To Sheets.Count
If Not Sheets(i) Is Sheets("主界面") Then
Sheets(i).Visible = False
End If
Next i
End Sub
第三题
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i
For i = 1 To Sheets.Count
If Not Sheets(i) Is Sheets("主界面") Then
Sheets("主界面").Select
End If
Next i
End Sub
Sub 批量设置密码()
Dim sh As Worksheet, x As Integer
For x = 2 To 5
Sheets(x).Protect Password:=Range("b" & x).Value
Next x
End Sub
Sub 隐藏工作表()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name <> "主界面" Then sh.Visible = xlSheetVeryHidden
Next sh
End Sub
Option Explicit
Dim sh As Worksheet
'Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'For Each Sh In Sheets
' If Sh.Name <> "主界面" Then
' Sheet6.Activate
' Range("a1").Select
' End If
'Next
'
'End Sub
本帖最后由 wenchduan 于 2012-3-11 01:26 编辑
A组长:wenchduan Sub 添加保护()
Dim X As Integer
Dim Y As Integer
For Y = 2 To 5
For X = 2 To 5
If Sheets("sheet" & Y).Name = Sheets("密码表").Range("A" & X) Then
Sheets("sheet" & Y).Protect Password:=Sheets("密码表").Range("B" & X)
Exit For
End If
Next X, Y
End Sub
Sub 隐藏工作表()
Sheets(Array("密码表", "SHEET2", "SHEET3", "SHEET4", "SHEET5")).Visible = 0
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("主界面").Select
End Sub