[求助]关于锁定

zhuangyumei

老鬼大哥，还有一个问题，关于锁定某一列单元格的问题。加了此代码后，也可以锁定某一列的单元格，但是如果我将EXCEL关了，再重新开的话，这个锁就会被自动解除。请看一下我的代码：

If ((2 = Target.Column Or 3 = Target.Column Or 4 = Target.Column Or 5 = Target.Column Or 6 = Target.Column Or 7 = Target.Column) And m_iCurrRowIndex < m_iRowMark) Then
        Sheet1.Protect
    Else
        Sheet1.Unprotect
    End If

请帮我看一下，要加一个什么代码，可以关闭EXCEL之后，打开还是锁定的？谢谢！

shxxfgqj

把它设为加载宏,这样每次启动EXCEL这个宏可自动运行.办法:工具—加载宏—浏览—选择指定宏—确定

红池坝

偶有两种猜测：1、你的代码不晓得放在什么地方，可能是在关闭之前执行了你的Else语句2、锁定工作表前要先置相应单元格的“锁定”属性为True。    Range("b:b").Locked = True    Sheet1.Protect