案例一：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
