VBA欢迎界面怎样才能不显示EXCLE表格？

林中侠

我想实现的功能是首先点击文件，就打开欢迎界面，再显示表格。但下面的代码，先显示表格，然后关闭表格，再显示欢迎界面，最后显示表格。

模块1
Sub a()
   欢迎.ltime.Caption = 欢迎.ltime.Caption - 1
   If 欢迎.ltime.Caption * 1 > 0 Then
      Call b
   Else
      Unload 欢迎
      Application.Visible = True
   End If
End Sub

Sub b()
   Application.OnTime Now + TimeValue("00:00:01"), "a"
End Sub

窗体
Private Sub UserForm_Initialize()
    ltime.Caption = 5
    Call b
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
         If CloseMode <> 1 Then Cancel = 1
End Sub


Thisworkbook
Private Sub Workbook_Open()
    Application.Visible = False
    欢迎.Show
End Sub

liulang0808

看下楼主宏安全设置吧。
是不是启用宏以后才可以执行表格事件的。
改成低级或者放到受信任位置看看

dailj

我是来凑热闹的，学校就是有钱，疫情期间的报销单仍然是用A4的模板，我们只能用一半真是羡慕

洋务德雷

如果你的office是正版，或者注册为正版就不会出现这个问题了

林中侠

liulang0808 发表于 2022-12-15 20:47
看下楼主宏安全设置吧。
是不是启用宏以后才可以执行表格事件的。
改成低级或者放到受信任位置看看

启用了宏的，不启动宏，欢迎界面不会出现了。

林中侠

洋务德雷 发表于 2022-12-15 21:59
如果你的office是正版，或者注册为正版就不会出现这个问题了

D版，明白了。谢谢

f8b1987

洋务德雷 发表于 2022-12-15 21:59
如果你的office是正版，或者注册为正版就不会出现这个问题了

这个和正版有个锤子关系

洋务德雷

f8b1987 发表于 2022-12-16 08:41
这个和正版有个锤子关系

你就知道个锤子吗？不会说话就闭嘴！

tmplinshi

可以用 VBS 来打开 Excel 文件。

1. set xl = CreateObject("Excel.Application")
   
2. xl.Workbooks.Open("C:\test\工作簿1.xlsm")

复制代码

修改代码中的文件路径，然后保存为 任意名称.vbs，双击打开。

f8b1987

洋务德雷 发表于 2022-12-17 14:27
你就知道个锤子吗？不会说话就闭嘴！

我2003-2021 365都安装过多次，我还能不知道？你不懂就不要扯和正版盗版的关系