我有一个Excel文件(保存为Excel Macro-Enabled Workbook),如下所示:
现在,我创建了此功能,该功能可在该人打开文件时通知该人。
Private Sub Workbook_Open()
Dim i As Long, lastRow As Long
lastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
If DateDiff("d", Cells(i, 4), Date) <= 90 Then
MsgBox (Cells(i, 2) + " is expiring!")
End If
Next
End Sub
该过程设置为Open且该对象设置为Workbook,现在的问题是它不显示警告消息,除非我执行以下操作:打开Visual Basic开发人员选项卡->重新打开文件->并收到以下警告消息:Warning: It is not possible to determine that this content came from a trustworthy source. You should leave this content disabled unless the content provides critical functionality and you trust its source
然后单击启用宏。
我正在使用Excel 2007
任何帮助深表感谢。
这是一项安全功能。用户必须先启用宏,然后才能运行任何代码。您无法在代码中采取任何措施来防止这种情况。
如果文件始终位于同一文件夹中,则可以将该文件夹添加为受信任位置,这样就不会出现警告:
- 选择文件>选项。
- 单击信任中心,然后单击信任中心设置...。
- 单击受信任的位置。
- 如果[包含文件的文件夹]没有列为受信任位置,请单击“添加新位置...”。输入路径[...] ,或者单击浏览...找到并选择它。
- 单击确定。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句