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