作者：乔山办公网日期：
返回目录：excel表格制作
Sub Macro2()
Dim pws$
pws = "888888"
With ActiveSheet
.Unprotect pws
.Cells.Locked = True
.Cells.FormulaHidden = True
.Protect pws
.EnableSelection = xlNoSelection
End With
End Sub
--------
双击的代zd码，专Hi我，详细解答属
1、打开一个excel表格，在更改表格内数据的知时候页面弹出提示框，提示单元格受保护，此时点击确定。
2、然后点击工具栏中的“审道阅”选项并找到“撤销工作内表保护”按钮。
3、此时页面弹出“撤销工作表保护”对话框，在框内输入密码后点击确定。
4、即可对表格内的数据进行更改操作而不受限制了容。
使用workSheet的复selection_change事件。
当该事件发生，则
检测是否仅选中一格
是，则进一步检测选中单制元知格地址是否B列
若是，则进一步检测同行A列的值道是否为100%
否，则鼠标焦点移向B列同行的A列单元格
你少了一句end if
ActiveSheet.Unprotect
Cells.Locked = False '先把所有单元格设置抄为不锁定zhidao的
For i = 3 To 63
If Cells(i, 1) = "正确" Then Cells(i, 2).Locked = True
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
也可以改成以下代码
ActiveSheet.Unprotect
Cells.Locked = False '先把所有单元格设置为不锁定的
For i = 3 To 63
If Cells(i, 1) = "正确" Then Cells(i, 2).Locked = True
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True