如何用VBA代碼設(shè)置共享工作簿權(quán)限?在excel中可以用VBA代碼設(shè)置共享工作簿權(quán)限,但是很多用戶不知道如何設(shè)置,下面就是用VBA代碼設(shè)置共享工作簿權(quán)限的方法,一起了解一下。
1、將excel打開(kāi),將共享工作薄的框架和主要內(nèi)容編輯好,要清楚的知道共享后每個(gè)人的分工。
2、在上方工具欄中選擇【視圖】中的【工具欄】,勾選【工具欄】中的【控件工具箱】,會(huì)彈出一個(gè)控件工具箱的彈窗。
3、點(diǎn)擊控件工具箱中的【命令】按鈕,然后在表格的空白處畫(huà)一個(gè)框,就會(huì)彈出一個(gè)命令按鈕,右鍵單擊【命令】按鈕,選擇【屬性】,將【caption屬性】更改為【共享工作簿】。(如下圖)
4、現(xiàn)在我們來(lái)設(shè)置代碼。右鍵單擊共享工作簿的【命令】以查看代碼,之后在代碼編輯區(qū)中輸入以下的內(nèi)容,輸入完成后保存退出。
Application.DisplayAlerts = False
ThisWorkbook.SaveAs , , , , , , xlShared
Application.DisplayAlerts = True
5、回到共享工作簿命令窗口,點(diǎn)擊取消【設(shè)計(jì)模式】,然后點(diǎn)擊【命令】,就可以運(yùn)行代碼了?梢园l(fā)現(xiàn)這個(gè)時(shí)候VBA編輯器就會(huì)被鎖定無(wú)法進(jìn)去。
6、設(shè)計(jì)取消共享代碼:按照以上方法再插入一個(gè)命令按鈕并命名為:取消共享,然后在代碼區(qū)那里輸入如下代碼并保存退出:6、我們還可以設(shè)計(jì)取消共享代碼。按照上面的方法,我們?cè)俨迦胍粋(gè)【命令】并將其命名為【取消共享】。輸入如下代碼并保存退出。
Application.DisplayAlerts = False
ThisWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
上面就是用VBA代碼設(shè)置共享工作簿權(quán)限的方法,大家學(xué)會(huì)了嗎?請(qǐng)繼續(xù)關(guān)注
系統(tǒng)之家。
發(fā)表評(píng)論
共0條
評(píng)論就這些咯,讓大家也知道你的獨(dú)特見(jiàn)解
立即評(píng)論以上留言?xún)H代表用戶個(gè)人觀點(diǎn),不代表系統(tǒng)之家立場(chǎng)