java防止vba注入,从VBA中的另一个宏调用时,防止UserForm可见

我正在从一个工作簿(即wb1.xlsm)运行一个宏,它将模板工作簿复制到另一个位置并重命名它(即wb2.xlsm) . 然后使用Application.Run运行位于wb2中的AutoSetup()Sub . 这将根据给定的参数创建合适的工作表 .

我的问题发生在这个过程中 . 它是使用UserForm中出现的现有函数设置的 .

当我运行宏时,我不希望看到任何弹出,但即使Application.Events和Application.Visible设置为False执行设置计算的UserForm仍然会弹出并可见 .

有什么建议?

代码如下:

'AutoSetup Module

Public Sub AutoSetup(Project As String, Program As String, TestName As String, _

TestType As String, TaskNumber As String, Token As String)

Dim TokenArr() As String

Application.ScreenUpdating = False

Application.EnableEvents = False

Set IntSht = ActiveWorkbook.Sheets("Integrations")

Set DctSht = ActiveWorkbook.Sheets("Duct")

IntSht.Range("B4").value = Program

IntSht.Range("B5").value = TestName

IntSht.Range("E4").value = Project

IntSht.Range("E5").value = TaskNumber

Call WorkbookSetup

MenuForm.TestSetBox.value = TestType

TokenArr = Split(Base64DecodeString(Token), ",")

EPFLogin.TextBox1.value = TokenArr(0)

EPFLogin.TextBox2.value = TokenArr(1)

MenuForm.LoadSheets (True)

DctSht.Activate

ThisWorkbook.Save

ThisWorkbook.Close

End Sub

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

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值