Question

excel 中这个宏语句怎么使用啊？这是一个使单元格只能输入一次的宏命令，现在不知道怎么用请高手赐教谢谢

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'***********************************************************************************************
'说明:这个模块主要是在工作薄保存前进行逐个单元格的检查,如不是空格就加锁,然后进行工作薄保护.

'请把这段代码复制到ThisWorkbook的代码区中就可以了

'它会在您按了保存键后起作用
'假设只对sheet1中的A1至Z100单元格起作用
'************************************************************************************************

Sheets("sheet1").Unprotect '撤销保护
'在重复使用前要把工作薄保护去掉.否则会出错.
For Each c In Worksheets("Sheet1").Range("A1:Z100") '检查在A1到Z100行之间的每个单元格,如格数太多会影响速度
If c.Text <> "" Then '如果单元格不为空
c.Locked = True '予以锁定
Else
c.Locked = False '予以解锁'****这是新加的
End If
Next c

Sheets("sheet1").Protect '加上保护

End Sub

Answer 1

打开你要实现这个效果的工作簿
按下alt+F11
左边工程框里，双击thisworkbook
右边出现一大片空白区，代码复制进去。
存盘退出。
重新打开你这个工作簿。打开时，会有窗口提示。按照里面的内容提示，最终选择“启用宏”
然后，再关闭工作簿，你的代码开始起作用了