强制更改宏设置

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

此脚本自动寻找脚本目录中的一个工作薄并打开,所以,以后只要将想要强制开启宏的工作薄放在此文件夹中即可完成
注意:
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

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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值