VBA应用—给单个工作表加密

案例一：VBA应用—给单个工作表加密

第一步 在thisworkbook写入

Private Sub Workbook_Open()

Excel.Application.EnableEvents = True

Excel.Sheets("1考场").Cells.Font.Color = RGB(255, 255, 255)

'将要保护的工作簿的文子颜色改成白色

Sheet1.Activate

'表2变成活动工作簿

End Sub

第二步 在要保护的工作表写入

Private Sub Worksheet_Activate()

Dim a As String

Excel.Application.ScreenUpdating = False

'取消屏幕显示

  a = Excel.Application.InputBox("请输入密码", "密码保护", , , , , , 1)

'输入密码窗口

Excel.Sheets("1考场").Cells.Font.Color = RGB(255, 255, 255)

'将要保护的工作簿的文子颜色改成白色

  If a = False Then

' 如果选择取消则回到另外一页

    Sheet1.Activate

  ElseIf a = 123456 Then

'如果输入的密码是123456则

    Excel.Sheets("1考场").Cells.Font.Color = RGB(0, 0, 0)

'要保护的工作簿的文子改成黑色

    Excel.Application.EnableEvents = False

'取消该事件触发反应

Else: Sheet1.Activate

'表2变成活动工作簿

End If

Excel.Application.ScreenUpdating = True

'回复屏幕显示

End Sub

'取消该事件触发反应

Else: Sheet1.Activate

'表2变成活动工作簿

End If

Excel.Application.ScreenUpdating = True

'回复屏幕显示

End Sub