Question

求教VBA高手！在启用宏之前，excel表格不能编辑，启用宏之后，可编辑，代码该怎么写

Answer 1

先把工作表保护了，然后再用宏解开。
同时别忘了写 BeforeSave 事件，存前先保护工作表。

追问

能不能举个例子，把代码写一下，谢谢，我对vba还是个新手

追答

在 ThisWorkbook 里

Open 事件：
Sheet1.Unprotect "Password"

BeforeSave & BeforeClose 事件：
Sheet1.Protect "Password"

追问

我试了试，代码写的不对，麻烦你把完整的代码写一下，最好在excel里给示范一下，谢谢

追答

按 Alt + F11 启动 Visual Basic 编辑器
按 Ctrl + R 显示“工程”窗口
在窗口的树形框中找 VBAProject(XXXXX.xls)
展开找 ThisWorkbook
右键菜单，选“查看代码”
在弹出的代码窗口中复制代码。
同时注意涉及对象的标识（变量名）。

Private Sub Workbook_Open()
Sheet1.Unprotect "Password"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Protect "Password"
End Sub

Private Sub Wookbook_BeforeClose(Cancel As Boolean)
Sheet1.Protect "Password"
End Sub

事件过程代码在 Visual Basic 编辑器中都能生成事件过程框架的。好歹也试下啊。

追问

将上述代码复制进去后，有问题，调试显示第5个语句错误

1. Private Sub CmdOK_Click()

2.  If TxtContext.Text <> "" Then

3.        ActiveCell.Value = TxtContext.Text

4.     Else

5.       ActiveCell.Value = ""

6.     End If

7.     Unload Me

8. End Sub

追答

那段代码是楼主自己写的吗？

把 ActiveCell.Value = ""
改成 ActiveCell = ""

Answer 2

可以做到。但是误操作后想不保存就不行了，因为要使用关闭前保护并保存这个功能。

追问

听不懂呢，我是个外行人，工作需要，刚接触

追答

你下载试用试用。

缺点，保存后改变单元格位置后才能修改。但可以随时关闭而不保存。