UserAccessList 集合的功能(VBA)
更新時(shí)間：2009年07月15日 20:18:13 作者：
可用 ProtectedRange 對(duì)象的 Users 屬性返回一個(gè) UserAccessList 集合。
返回一個(gè) UserAccessList 集合后，便可用 Count 屬性來確定訪問受保護(hù)區(qū)域的用戶數(shù)量。在下例中，Microsoft Excel 將訪問第一個(gè)受保護(hù)區(qū)域的用戶的數(shù)量通知給用戶。本示例假定受保護(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)文章
VBA實(shí)現(xiàn)合并具有文本框的Word文檔
這篇文章主要為大家詳細(xì)介紹了如何基于VBA語言,對(duì)大量含有圖片、文本框與表格的Word文檔加以批量自動(dòng)合并,感興趣的小伙伴可以跟隨小編一起學(xué)習(xí)一下2024-11-11
Excel·VBA合并工作簿的實(shí)現(xiàn)示例
本文主要介紹了Excel·VBA合并工作簿的實(shí)現(xiàn)示例，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2023-01-01
VBA 中要用到的常數(shù)...2007-02-02
用vba實(shí)現(xiàn)將記錄集輸出到Excel模板
用vba實(shí)現(xiàn)將記錄集輸出到Excel模板...2007-02-02
Excel?VBA指定條件刪除整行整列的實(shí)現(xiàn)
本文主要介紹了Excel?VBA指定條件刪除整行整列的實(shí)現(xiàn)，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2023-01-01
可用 Application 對(duì)象的 UsedObjects 屬性返回一個(gè) UsedObjects 對(duì)象。2009-07-07
本文主要介紹了VBA中的循環(huán)代碼的使用，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2023-06-06
excel vba 限制工作表的滾動(dòng)區(qū)域代碼
如果希望限制工作表中滾動(dòng)的區(qū)域，可以通過設(shè)置WorkSheet對(duì)象的ScrollArea屬性來實(shí)現(xiàn)。2009-07-07
用條件格式設(shè)置高亮顯示當(dāng)前行，難的是如何確定當(dāng)前行。用VBA就很簡單，鼠標(biāo)右擊工作表標(biāo)簽，選擇“查看代碼”，將下面的代碼粘貼到VBE窗口中2009-07-07
今天遇到一個(gè)excel小工具感覺不錯(cuò)，想研究研究代碼，竟然有密碼，我就不淡定了。網(wǎng)上找了找代碼，改了一下就OK了。接下來通過本文給大家分享兩種方式破解VBA工程加密，需要的朋友參考下吧2021-12-12