今天看到一个锁定的例子,很不错,所以就折腾了下。
写个宏!
代码如下:
- Sub 锁定()
- Dim a As Long
- a = Sheets(1).[b65536].End(xlUp).Row
- ActiveSheet.Unprotect
- Cells.Select
- Selection.Locked = False
- Selection.FormulaHidden = False ‘解除所有单元格的锁定
- Sheets(1).Range("A1:D" & a).Select
- Selection.Locked = True
- Selection.FormulaHidden = False
- Sheets(1).Range("b" & a + 1).Select
- ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
- False
- End Sub
代码初步解释下,依照B列为非空值自下而上判断,并锁定A1:DA区域。
当然这个条件和执行方式完全可以自定义,比如change时间,这个更快捷!
Have a try!
过来学习一下。感谢分享。
allright~哈
看不懂,但是博主的排名很不错,pr也很牛
没觉得啊~刚起步的
VBA是不是VB?
VB的范围大于VBA,有一定的区别~