答案 0 :(得分:2)
根据Reafidy的评论查看完整代码会有所帮助
听起来用户仍在运行代码,如果他们想要修改它。但是这个用户(或将来的其他用户)可能会选择禁用宏,或者公司策略可能会自动禁用宏
如果是用户选择,则标准技术是隐藏除了启动画面之外的所有工作表,通知用户他们需要启用宏。如果他们启用了宏,则所有VeryHidde
n张(标准菜单无法显示)都可见,并且在工作簿打开时隐藏了闪屏
你可以结合起来
Brad's splash screen code使用现有的Open
代码
答案 1 :(得分:0)
尝试使用附加密码参数,如下所示:
Sub OpenBookTest()
Dim myFile As String
Dim myPath As String
myPath = "C:\My Documents"
myFile = "My Workbook.xls"
Workbooks.Open myPath & "\" & myFile, password:="password"
End Sub
或写另一种方式:
Workbooks.Open "Full Path Name", Password: ="XYZ"
通过MSDN查看后,我猜你的Workbook_Open
是你编写的自定义子程序(或从某处在线复制)。如果是这种情况,则需要对其进行编辑以允许其他密码参数。您应该编辑您的问题并发布您的Workbook_Open例程。这样我们就会知道如何帮助你。