即使单击取消，使用的文件中的Excel VBA也会打开

Question

我有一个代码可以通过VBA中的用户窗体打开文件。所以我输入了一个项目编号，然后VBA打开了正确的工作表。我们将这些文件用于多人。因此，问题在于当文件已经打开时，您会收到一条消息，指出该文件已经打开，并且您要继续只读还是取消操作。但是，当我按“取消”时，文件仍然以只读方式打开。我该如何解决？

这是我在用户表单中的代码：

Private Sub CommandButton1_Click()

Dim path As String
    path = "J:\Planning\Projecten\"

Dim File As String
File = TextBox1.Text

Dim openfile As String
    openfile = path & File & ".xlsm"

    Workbooks.Open (openfile)

Unload Me

End Sub

Answer 1

VBA并不是很聪明，所以您必须告诉他该怎么做。对我来说，您应该尝试了解打开的工作簿之一是否是您尝试打开的工作簿。一种方法是像

一样进行检查

if Workbook.name != openfile then
   Workbooks.Open (openfile)
endif

不确定语法，已经很长时间了，我放弃了在vba上获得VSTO的东西。希望对您有帮助。