实现代码如下:
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
以上就是【UserAccessList 集合的功能(VBA)】的全部内容了,欢迎留言评论进行交流!