Microsoft Word 中的 Document 对象的 SharedWorkspace 属性、Microsoft Excel 中的 Workbook 对象和 Microsoft PowerPoint 中的 Presentation 对象返回 SharedWorkspace 对象，该对象允许开发人员将活动文档添加到 SharePoint 网站并管理共享工作区网站中的其他对象。
注意
自 Microsoft Office 2010 开始，此对象或成员已弃用，不应再行使用。
备注
使用 SharedWorkspace 对象将活动Word、Excel 或 PowerPoint 文档添加到服务器上的 SharePoint 文档工作区网站，以利用工作区的协作功能，或者断开或从工作区网站中删除文档。 使用 SharedWorkspace 对象的集合来管理与共享文档关联的文件、文件夹、链接、成员和任务。
SharedWorkspace 对象模型都可用存储在工作区中的文档。 文档、工作簿和演示文稿对象的 SharedWorkspace 属性在文档未共享时不返回 Nothing。 使用 SharedWorkspace 对象的 Connected 属性可确定活动文档实际上是否保存在共享工作区中并与其连接。
用户需要相应的权限才能使用 SharedWorkspace 对象层次结构中的对象、 属性和方法。
使用 SharedWorkspaceFiles 集合（通过 SharedWorkspace 对象的 Files 属性访问）管理保存在共享工作区中的文档和文件。
使用 SharedWorkspaceFolders 集合，通过 SharedWorkspace 对象中，该 文件夹 属性访问管理共享工作区主文档库文件夹中的子文件夹。
使用 SharedWorkspaceLinks 集合，通过 SharedWorkspace 对象，此对象的 链接 属性访问管理的其他文档和共享工作区中的文档协作的成员感兴趣的信息的链接。
使用 SharedWorkspaceMembers 集合，通过 SharedWorkspace 对象，此对象的 成员 属性访问管理人员有权利参与共享工作区中，并保存在工作区中的共享文档上进行协作的用户。
SharedWorkspaceTasks 集合，通过 SharedWorkspace 对象中，该 任务 属性访问用于管理任务分配给共享工作区中文档协作的成员。
若要创建新的文档工作区，并将活动文档添加到工作区，请使用 CreateNew 方法。 使用 名称 和 URL 属性返回有关该工作区的信息。
SharedWorkspace 对象使用对象和属性从服务器本地的缓存。 开发人员在执行某些操作前可能需要先更新此缓存，或将缓存的属性更改重新保存到服务器中。 使用 SharedWorkspace 对象的 刷新 方法刷新本地缓存从服务器和 LastRefreshed 属性，以确定当刷新操作后发生。 使用本地，其属性的修改后的 SharedWorkspaceLink 和 SharedWorkspaceTask 对象的 Save 方法将所做的更改上载到服务器。
使用 Disconnect 方法可断开活动文档的本地副本与共享工作区中，连接同时使工作区中的共享的副本保持不变。 使用 RemoveDocument 方法从共享工作区完全删除共享的文档。
用户需要相应的权限才能使用 SharedWorkspace 对象层次结构中的对象、 属性和方法。 在将成员添加到 SharedWorkspaceMembers 集合时，使用 Role 参数指定特定于每个工作区成员的权限集。
当使用 SharedWorkspace 对象模型，就可以创建条件不在活动文档的 共享工作区窗格中显示的用户界面与同步 SharedWorkspace 对象缓存的位置。 例如，如果 CreateNew 方法以编程方式将活动文档添加到新工作区中，同时“共享工作区”窗格保持为打开状态，则“共享工作区”窗格会继续显示“创建”按钮。 在上述情况下，如果用户在不再有效 共享工作区窗格进行的选择，会引发错误并执行刷新操作以使显示与当前文档状态和共享工作区数据同步。
Document、Workbook 和 Presentation 对象还具有返回 Sync 对象的 Sync 属性。 使用 Sync 对象及其属性和方法可管理共享文档的服务器副本和本地的同步。
示例
下面的示例将显示活动文档所连接的共享工作区的属性。
Dim swsWorkspace As Office.SharedWorkspace
Dim strSWSInfo As String
Set swsWorkspace = ActiveWorkbook.SharedWorkspace
strSWSInfo = swsWorkspace.Name & vbCrLf & _
" - URL: " & swsWorkspace.URL & vbCrLf & _
"The shared workspace contains " & vbCrLf & _
" - Files: " & swsWorkspace.Files.Count & vbCrLf & _
" - Folders: " & swsWorkspace.Folders.Count & vbCrLf & _
" - Links: " & swsWorkspace.Links.Count & vbCrLf & _
" - Members: " & swsWorkspace.Members.Count & vbCrLf & _
" - Tasks: " & swsWorkspace.Tasks.Count & vbCrLf
MsgBox strSWSInfo, vbInformation + vbOKOnly, _
"Shared Workspace Information"
Set swsWorkspace = Nothing
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。