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

wenjun 2018-11-06 10:42:11
  如何用VBA代码设置共享工作簿权限?在excel中可以用VBA代码设置共享工作簿权限,但是很多用户不知道如何设置,下面就是用VBA代码设置共享工作簿权限的方法,一起了解一下。
 
  1、将excel打开,将共享工作薄的框架和主要内容编辑好,要清楚的知道共享后每个人的分工。
如何在用VBA代码设置共享工作簿权限 用VBA代码设置共享工作簿权限的方法
 
  2、在上方工具栏中选择【视图】中的【工具栏】,勾选【工具栏】中的【控件工具箱】,会弹出一个控件工具箱的弹窗。
如何在用VBA代码设置共享工作簿权限 用VBA代码设置共享工作簿权限的方法
  3、点击控件工具箱中的【命令】按钮,然后在表格的空白处画一个框,就会弹出一个命令按钮,右键单击【命令】按钮,选择【属性】,将【caption属性】更改为【共享工作簿】。(如下图)
如何在用VBA代码设置共享工作簿权限 用VBA代码设置共享工作簿权限的方法
 
  4、现在我们来设置代码。右键单击共享工作簿的【命令】以查看代码,之后在代码编辑区中输入以下的内容,输入完成后保存退出。
 
  Application.DisplayAlerts = False
 
  ThisWorkbook.SaveAs , , , , , , xlShared
 
  Application.DisplayAlerts = True
如何在用VBA代码设置共享工作簿权限 用VBA代码设置共享工作簿权限的方法
 
  5、回到共享工作簿命令窗口,点击取消【设计模式】,然后点击【命令】,就可以运行代码了。可以发现这个时候VBA编辑器就会被锁定无法进去。
如何在用VBA代码设置共享工作簿权限 用VBA代码设置共享工作簿权限的方法
 
  6、设计取消共享代码:按照以上方法再插入一个命令按钮并命名为:取消共享,然后在代码区那里输入如下代码并保存退出:6、我们还可以设计取消共享代码。按照上面的方法,我们再插入一个【命令】并将其命名为【取消共享】。输入如下代码并保存退出。
 
  Application.DisplayAlerts = False
 
  ThisWorkbook.ExclusiveAccess
 
  Application.DisplayAlerts = True
如何在用VBA代码设置共享工作簿权限 用VBA代码设置共享工作簿权限的方法
 
  上面就是用VBA代码设置共享工作簿权限的方法,大家学会了吗?请继续关注系统之家
 

若对以上内容有疑问请联系反馈

文章价值

100

260人打分
猜你想搜
相关推荐