UserAccessList 集合的功能(VBA)
更新時(shí)間：2009年07月15日 20:18:13 作者：
可用 ProtectedRange 對(duì)象的 Users 屬性返回一個(gè) UserAccessList 集合。
返回一個(gè) UserAccessList 集合后，便可用 Count 屬性來(lái)確定訪(fǎng)問(wèn)受保護(hù)區(qū)域的用戶(hù)數(shù)量。在下例中，Microsoft Excel 將訪(fǎng)問(wèn)第一個(gè)受保護(hù)區(qū)域的用戶(hù)的數(shù)量通知給用戶(hù)。本示例假定受保護(hù)的區(qū)域位于活動(dòng)工作表上。
Sub UseDeleteAll()
Dim wksSheet As Worksheet
Set wksSheet = Application.ActiveSheet
' Notify the user the number of users that can access the protected range.
MsgBox wksSheet.Protection.AllowEditRanges(1).Users.Count
End Sub
復(fù)制代碼 代碼如下:
Sub UseDeleteAll()
Dim wksSheet As Worksheet
Set wksSheet = Application.ActiveSheet
' Notify the user the number of users that can access the protected range.
MsgBox wksSheet.Protection.AllowEditRanges(1).Users.Count
End Sub
相關(guān)文章
今天遇到一個(gè)excel小工具感覺(jué)不錯(cuò)，想研究研究代碼，竟然有密碼，我就不淡定了。網(wǎng)上找了找代碼，改了一下就OK了。接下來(lái)通過(guò)本文給大家分享兩種方式破解VBA工程加密，需要的朋友參考下吧2021-12-12
好多朋友想學(xué)習(xí)vba但相關(guān)資料不是很多，其實(shí)就是利用了vb的語(yǔ)法，結(jié)合office2009-07-07
用vba實(shí)現(xiàn)將記錄集輸出到Excel模板
用vba實(shí)現(xiàn)將記錄集輸出到Excel模板...2007-02-02
當(dāng)編輯框內(nèi)容改變 對(duì)應(yīng)的單元格也隨著改變vba代碼
當(dāng)編輯框內(nèi)容改變 對(duì)應(yīng)的單元格也隨著改變vba代碼2009-07-07
VBA 瀏覽文件夾對(duì)話(huà)框調(diào)用的幾種方法
VBA 瀏覽文件夾對(duì)話(huà)框調(diào)用實(shí)現(xiàn)代碼。大家可以根據(jù)需要選擇。2009-07-07
要想一下子就替換掉很多個(gè)WORD文檔中的內(nèi)容,我們可以使用VBA的辦法,本文主要介紹了VBA實(shí)現(xiàn)全文件快速替換的示例代碼,具有一定的參考價(jià)值,感興趣的可以了解一下2023-08-08
本文主要介紹了VBA中的循環(huán)代碼的使用，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-06-06
本文主要介紹了vba將excel按照某一列拆分成多個(gè)文件，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧<BR>2023-01-01
可用 Application 對(duì)象的 UsedObjects 屬性返回一個(gè) UsedObjects 對(duì)象。2009-07-07
本文給大家匯總介紹了幾種使用VBA處理EXCEL并生成JSON文件的方法和思路，非常的實(shí)用，有需要的小伙伴可以參考下。2015-09-09