有一段excel VBA代码总是出现打开对话框如何去掉

Question

Sub CopyData_1()
Dim Temp As String
Temp = "'" & ThisWorkbook.Path & "￥[date.xls]Sheet1'!"
With Sheet1.Range("A1:F44")
.FormulaR1C1 = "=" & Temp & "RC"
.Value = .Value
End With
End Sub
总是出现打开对话框单击date.xls打开
如何去掉或者隐藏对话框

Answer 1

设置问题，找到EXCEL设置，在信任中心中找找看，有一个“是否信任VBA工程”，把前面的勾点上就好