工作表.Unprotect Password能否再指定区域。。。

yiyaozjk

而是想实现：选择弹出一个对话框，例如：此次想输入10行，输入一个文本框内输入10
工作表就从当前已写数字行后共10行能输入数据，其他以上的数据就不能再写了有密码保护。
ThisWorkbook.Worksheets(1).Range("a2:b4").Unprotect Password:="123456"  对象不支持这种属性和方法。

不是利用Private Sub Worksheet_Change(ByVal Target As Range)  实现



如何能实现呢？
请高手指点。。。

雪舞子

将这10行解锁,
然后再设置保护就可以了

比如可以输入数据的行设置为2~12行,代码可以这样写:

Sub test()
    Rows("2:12").Locked = False
    Sheet5.Protect Password:="123"
End Sub

yiyaozjk

雪舞子 发表于 2015-3-20 09:07
将这10行解锁,
然后再设置保护就可以了

测试了，能通过.

yiyaozjk

后面再打开这个文件再一次使用时，却又报错

不能设置类range类的LOCKED属性  。。。

雪舞子

上传附件吧,把要求说清楚