Excel VBA共享工作簿和非共享工作簿_Excel_Vba_Networking

Excel VBA共享工作簿和非共享工作簿

excel vba networking

Excel VBA共享工作簿和非共享工作簿,excel,vba,networking,Excel,Vba,Networking,我试图找到共享工作簿的代码，并将其与visual basic取消共享，但没有找到，有人知道这是否可能吗另一件事是共享工作簿保存后，向所有用户更新工作簿。。。问题是，如果使用visual basic代码保存工作簿，工作簿将更新到其他用户我正在编写一个按钮，当单击它时（共享工作簿>填充单元格>保存并取消共享）我当然同意pnuts和他提供的链接：共享工作簿太可怕了不过，为了回答这个问题，如果在Excel中记录宏，则在共享工作簿时会看到如下代码 Sub Macro1() Workboo

我试图找到共享工作簿的代码，并将其与visual basic取消共享，但没有找到，有人知道这是否可能吗

另一件事是共享工作簿保存后，向所有用户更新工作簿。。。问题是，如果使用visual basic代码保存工作簿，工作簿将更新到其他用户

我正在编写一个按钮，当单击它时（共享工作簿>填充单元格>保存并取消共享）

我当然同意pnuts和他提供的链接：共享工作簿太可怕了

不过，为了回答这个问题，如果在Excel中记录宏，则在共享工作簿时会看到如下代码

Sub Macro1()
    Workbooks.Add
    With ActiveWorkbook
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 30
    End With
    ActiveWorkbook.SaveAs Filename:= _
        "F:\Documents and Settings\student\My Documents\Book1.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, AccessMode:=xlShared
    ActiveWorkbook.ExclusiveAccess
End Sub

（如果您还不知道如何在Excel中记录宏，那么我建议您花点时间来了解-这非常有用，尤其是在您刚开始使用VBA时。）

如果您将此代码复制到VB编辑器中，并单击某些单词（

SaveAs

），然后按F1键，您将进入帮助系统

从这个录制的宏中，我推测从工作簿中删除共享只不过是将

SaveAs

与

AccessMode

一起使用，而不是

xlShared

（或省略）。毕竟，这是手动共享或取消共享工作簿时出现的对话框/选项

Sub Macro1()
    Workbooks.Add
    With ActiveWorkbook
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 30
    End With
    ActiveWorkbook.SaveAs Filename:= _
        "F:\Documents and Settings\student\My Documents\Book1.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, AccessMode:=xlShared
    ActiveWorkbook.ExclusiveAccess
End Sub

但是，要强调的是，我并不提倡使用共享工作簿。