强制更改宏设置

应网友 只观看 的要求，不想每次更改工作薄的路径，特更新代码。

此脚本自动寻找脚本目录中的一个工作薄并打开，所以，以后只要将想要强制开启宏的工作薄放在此文件夹中即可完成
注意：
1。脚本只寻找一个工作薄，所以建议只在此目录放置一个工作薄
2。如果想要打开其它Excel文件，请更改代码粗体处为此Excel文件的后缀（如：.xla）

代码：

VB版本：

'编绎下面为exe后创建快捷方式(exe + 空格 + 文件[若路径含空格，请使用引号])：D:\Project1.exe "D:\Macro Book.xls"
'如果不想要提示，请删除代码是MsgBox语句

Sub Main()

Dim objXL As Object

If LenB(Command) > 0 Then

On Error GoTo Eixtxl
    Set objXL = CreateObject("Excel.Application")
    
    objXL.Workbooks.Open Command
    
    objXL.Visible = True
    
    Set objXL = Nothing

    Exit Sub

End If

Eixtxl:
objXL.Quit
Set objXL = Nothing
MsgBox "您未指定文件路径或指定的文件路径不存在，请检查并重新指定", vbInformation, "文件路径错误"

End Sub

注：建议还是给用户应有的权利，让用户来选择是否启用宏
       请不要用此方法制作病毒