VBA怎么设置共享工作簿权限

今天小编和大师分享一下若何利用VBA设置EXCEL共享工作薄权限，今天以EXCEL2003例给大师进行讲解。

东西/原料

1
起首打开EXCEL2003编纂好共享工作薄的框架和本家儿要内容，明白共享后大家的分工。
2
第二步，点击打开控件东西箱：点击视图——东西栏——控件东西箱，这时控件东西箱就会被勾选，并弹出控件东西箱。
3
第三步，插入号令按钮并设置属性：点击选择号令按钮——在表格空白处画一个框，号令按钮就出来了——右击号令按钮，选择属性——把caption属性改为：共享工作薄。
4
第四步，设置代码：右击共享工作薄的号令按钮——查看代码——然后在代码编纂区那边输入如下内容并保留退出：Application.DisplayAlerts = False ThisWorkbook.SaveAs , , , , , , xlShared Application.DisplayAlerts = True
5
第五步，运行代码：回到共享工作蒲号令按钮那边，点击控件箱左上角的设计模式，打消设计模式，然后点击号令按钮就可以运行代码了，这时VBA编纂器就会被锁心猿意马无法进去。
6
第六步，设计打消共享代码：按照以上方式再插入一个号令按钮并定名为：打消共享，然后在代码区那边输入如下代码并保留退出：
Application.DisplayAlerts = False ThisWorkbook.ExclusiveAccess Application.DisplayAlerts = True