AAA-Excel 如何设置一个工作薄里某几个工作表需要密码才能打开

 本帖最后由 bjjdghyf 于 2016-9-8 20:44 编辑

简单的保护，代码放入sheet2
Private Sub Worksheet_Activate()
    tmp = Application.InputBox("请输入密码", "提示")
    If tmp <> "123" Then
        Sheet1.Activate
    Else
        Cells.EntireRow.Hidden = False
    End If
End Sub

Private Sub Worksheet_Deactivate()
    Cells.EntireRow.Hidden = True
End Sub