设置单位格的点窜权限能有用地庇护工作簿内容不被误改,下面就跟小编一路来进修一下吧。
本教程以庇护下表数据不得点窜为例。
绘制按钮,本教程以插入一个矩形外形来实现该操作。
编纂外形文字,并美化。
复制该按钮,绘制“打消庇护按钮”。
切换到VBA界面,不清晰的可以参考以下链接:
插入模块,输入以下代码:
Dim rng As Range
Sub 庇护所选区域()
Set rng = Selection
'Cells.Select
'Selection.Locked = False
'Selection.FormulaHidden = False
rng.Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub 打消庇护()
ActiveSheet.Unprotect
End Sub
返回Excel界面,为两个按钮指定宏代码,下图以“庇护所选区域”按钮为例。
选中需要庇护的区域,点击“庇护所选区域”即可(此时点窜会弹出警告)。若要打消庇护,点击“打消区域庇护”按钮即可。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!