在VBA中，如何编写代码为工作表添加密码！

1、为工作表【789】加密，打开时无显示内容，并跳出输入密码对话框，正确输入密码后，显示表中内容，若输入密码错误，则不显示里面的内容，也无法进行编辑操作！

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！双击左侧栏中准备加密的工作表！

4、会弹出事件程序代码编辑窗口！

5、在事件程序界面里的左下拉菜单中选择【worksheet】,右下拉菜单中选择【activate】。

6、在事件程序窗口，输入以下代码：

Private Sub Worksheet_Activate()

i = InputBox("请输入密码")

If i = 123 Then

  Cells.Font.Color = RGB(0, 0, 0)

Else

  Sheet11.Activate

End If

Application.EnableEvents = flase

End Sub

7、双击左侧栏中的“thisworkbook”工作薄！右下拉菜单中选择【open】，输入以下代码。

Private Sub Workbook_Open()

Application.EnableEvents = True

Sheet8.Cells.Font.Color = RGB(255, 255, 255)

Sheet11.Select

End Sub

8、点击保存关闭工作表，我们再次打开工作簿时，点击工作表【789】，需要正确输入密码后，才能显示内容和进行编辑操作！