如何在用VBA代码设置共享工作簿权限用VBA代码设置共享工作簿权限的方法 _睿知

如何用VBA代码设置共享工作簿权限?在excel中可以用VBA代码设置共享工作簿权限，但是很多用户不知道如何设置，下面就是用VBA代码设置共享工作簿权限的方法，一起了解一下。1、将excel打开，将共享工作薄的框架和主要内容编辑好，要清楚的知道共享后每个人的分工。

文章插图
2、在上方工具栏中选择【视图】中的【工具栏】，勾选【工具栏】中的【控件工具箱】，会弹出一个控件工具箱的弹窗。

文章插图
3、点击控件工具箱中的【命令】按钮，然后在表格的空白处画一个框，就会弹出一个命令按钮，右键单击【命令】按钮，选择【属性】，将【caption属性】更改为【共享工作簿】。(如下图)

文章插图
4、现在我们来设置代码。右键单击共享工作簿的【命令】以查看代码，之后在代码编辑区中输入以下的内容，输入完成后保存退出。Application.DisplayAlerts = False ThisWorkbook.SaveAs , , , , , , xlShared Application.DisplayAlerts = True

文章插图
5、回到共享工作簿命令窗口，点击取消【设计模式】，然后点击【命令】，就可以运行代码了。可以发现这个时候VBA编辑器就会被锁定无法进去。

文章插图
6、设计取消共享代码：按照以上方法再插入一个命令按钮并命名为：取消共享，然后在代码区那里输入如下代码并保存退出：6、我们还可以设计取消共享代码。按照上面的方法，我们再插入一个【命令】并将其命名为【取消共享】。输入如下代码并保存退出。Application.DisplayAlerts = False ThisWorkbook.ExclusiveAccess Application.DisplayAlerts = True