Excel一键实现所选区域修改权限设置技巧

      设置单位格的点窜权限能有用地庇护工作簿内容不被误改，下面就跟小编一路来进修一下吧。

东西/原料

• Excel（本教程以Excel2013为例）

方式/步调

1. 1

   本教程以庇护下表数据不得点窜为例。

   
2. 2

   绘制按钮，本教程以插入一个矩形外形来实现该操作。

   
3. 3

   编纂外形文字，并美化。

   
4. 4

   复制该按钮，绘制“打消庇护按钮”。

   
5. 5

   切换到VBA界面，不清晰的可以参考以下链接：

   11打开的三种方式

   
6. 6

   插入模块，输入以下代码：

   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

   
7. 7

   返回Excel界面，为两个按钮指心猿意马宏代码，下图以“庇护所选区域”按钮为例。

   
8. 8

   选中需要庇护的区域，点击“庇护所选区域”即可（此时点窜会弹出警告）。若要打消庇护，点击“打消区域庇护”按钮即可。

   

注重事项

• 若是对您有点帮忙，请撑持一下，感谢！