Excel VBA教程:UserStatus属性

返回一个基于 1 的二维数组,该数组提供有关每一个以共享清单模式打开工作簿的用户的信息。数组第二维的第一个元素为用户名,第二个元素是用户打开工作簿的日期和时间,第三个元素是一个表示清单类型的数字(1 表示独占,2 表示共享)。Variant 类型,只读。

说明

UserStatus属性不返回有关以只读方式打开指定工作簿的用户的信息。

Excel VBA教程:UserStatus属性·示例

本示例新建一个工作簿,并将所有以共享清单模式打开活动工作簿的用户的信息插入新工作簿。


users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
    For row = 1 To UBound(users, 1)
        .Cells(row, 1) = users(row, 1)
        .Cells(row, 2) = users(row, 2)
        Select Case users(row, 3)
            Case 1
                .Cells(row, 3).Value = "Exclusive"
            Case 2
                .Cells(row, 3).Value = "Shared"
        End Select
    Next
End With

上页:Excel VBA教程:Users属性 下页:Excel VBA教程:UseStandardHeight属性

Excel VBA教程:UserStatus属性

Excel VBA教程:UseStandardHeight属性 Excel VBA教程:UseStandardWidth属性
Excel VBA教程:UseSystemSeparators属性 Excel VBA教程:VacatedStyle属性
Excel VBA教程:Validation属性 Excel VBA教程:Value属性
Excel VBA教程:Value2属性 Excel VBA教程:Values属性
Excel VBA教程:VaryByCategories属性 Excel VBA教程:VBASigned属性
Excel VBA教程:VBE属性 Excel VBA教程:VBProject属性
Excel VBA教程:Version属性 Excel VBA教程:VerticalAlignment属性
Excel VBA教程:VerticalFlip属性 Excel VBA教程:Vertices属性
Excel VBA教程:View属性 Excel VBA教程:ViewCalculatedMembers属性
Excel VBA教程:Visible属性 Excel VBA教程:VisibleFields属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号