excel - 如何使用 vbscript 不使用 vba 取消共享 excel 工作表

Question

谁能告诉如何使用 VBscript 而不是使用 VBA 取消共享 excel 工作表？我尝试了以下语句，但它不起作用：

If ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.ExclusiveAccess

Answer 1

ActiveWorkbook是Application对象的属性。在 VBA 中，该对象在省略时被隐式使用。在 VBScript 中，您必须明确使用它：

Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Add

If xl.ActiveWorkbook.MultiUserEditing Then xl.ActiveWorkbook.ExclusiveAccess

您还可以使用分配给变量的工作簿对象wb：

If wb.MultiUserEditing Then wb.ExclusiveAccess