如果文件已经打开则继续前进（带有curDate的文件）

Question

如果文件已经打开，你可以帮助我继续前进吗？下面是打开文件的代码。我遇到困难，因为它不是一个直接的开放文件。谢谢。

Dim curDate As String, Fname As String
curDate = Format(Date, "yyyy-mm-dd")
Dim wba As Workbook
Fname = "http://sharepoint.XYZ.com/sites/Company/Operations/dmc/XYZDM/Shared%20Documents/" & curDate & "%20Master%20Build%20Plan%20-%20ONLY%20FOR%20VIEW.xlsx"
Set wba = Workbooks.Open(Filename:=Fname, UpdateLinks:=False, Notify:=False)