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
第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
第一题:在密码表的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
点击文件名下载附件
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