代码求助

指尖的阳光、

请教：1.如图，打开窗体后，怎样将表格隐藏，只显示窗体。

      2.关闭蓝圈所示的“X”时，为什么excel不关闭，而直接进入表格

02761752696

关于求助贴的答复效率与发帖规范

Application.Visible =False  隐藏工作表

建议上传附件

02761752696

供参考。。。。。。

3190496160

提问22.rar (107.93 KB, 下载次数: 8)

2022-12-23 12:43 上传

点击文件名下载附件

指尖的阳光、

还是不行啊，麻烦再看看

亲、现在我半价

指尖的阳光、 发表于 2022-12-23 15:37
还是不行啊，麻烦再看看

工作簿打开事件弹出窗体就会获得几率性【自动化错误】，我用的on error goto xxxx 给他屏蔽掉

亲、现在我半价

我的是这样写的：

1. Public Sub Workbook_Open()
   
2.     On Error GoTo 异常处理方法
   
3.     Application.Visible = False
   
4.     With ThisWorkbook
   
5.         数据源存在 = False
   
6.         If 微软系统.是否为64位系统 Then
   
7.             Call 注册表值结果("SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\ODBC Drivers", 名称数组, 数据数组)
   
8.         Else
   
9.             Call 注册表值结果("SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers", 名称数组, 数据数组)
   
10.         End If
    
11.         数组总数 = UBound(名称数组)
    
12.         If 数组总数 >= 0 Then
    
13.             For 标 = 0 To 数组总数 Step 1
    
14.                 If InStr(1, 名称数组(标), "mysql", vbTextCompare) Then
    
15.                     数据源存在 = True
    
16.                     Exit For
    
17.                 End If
    
18.             Next 标
    
19.         End If
    
20.         If Not 数据源存在 Then Err.Raise 常规异常代码, , "没有检测到 [MySQL ODBC 数据源] 驱动"
    
21.         安装工作簿名 = "安装" & XLSM格式
    
22.         If .Name = 安装工作簿名 Then
    
23.             If MsgBox( _
    
24.                 "检测您已选择安装模式" _
    
25.                 & vbCrLf & vbCrLf & "点 [是] 进入安装界面" _
    
26.                 & vbCrLf & vbCrLf & "点 [否] 退出工作簿" _
    
27.             , vbYesNo) <> vbYes Then GoTo 退出异常处理
    
28.             安装窗口.Show
    
29.             Exit Sub
    
30.         End If
    
31.         Call 打开数据
    
32.         SQL = "SELECT `" & 版本维护表获取地址字段名 & "`, " _
    
33.             & "`" & 版本维护表版本号字段名 & "` " _
    
34.             & "FROM `" & 版本维护表 & "` " _
    
35.             & "ORDER BY `" & 版本维护表版本号字段名 & "` DESC " _
    
36.             & "LIMIT 1"
    
37.         Set 数据结果集 = 数据连接.Execute(SQL)
    
38.         新版本号 = 0
    
39.         新源地址 = Empty
    
40.         If Not 数据结果集.EOF Then
    
41.             新版本号 = Val(数据结果集(版本维护表版本号字段名))
    
42.             新源地址 = 数据结果集(版本维护表获取地址字段名)
    
43.         End If
    
44.         Call 关闭数据
    
45.         版本号 = Val(获取设置项参数("版本号"))
    
46.         If 版本号 < 新版本号 Then
    
47.             If 新源地址 <> Empty Then
    
48.                 Call 文件管理.复制(新源地址, "C:" & Environ("HOMEPATH") & "\Desktop" & 文件管理.提取文件名(新源地址))
    
49.                 Err.Raise 常规异常代码, , "新版本已复制到电脑桌面，请运行新文件"
    
50.                 Exit Sub
    
51.             End If
    
52.             Err.Raise 常规异常代码, , "源地址出错！！！！！！！！"
    
53.         End If
    
54.         登录窗口.Show
    
55.     End With
    
56.     Exit Sub
    
57. 退出异常处理:
    
58.     ThisWorkbook.Close SaveChanges:=True
    
59.     Exit Sub
    
60. 异常处理方法:
    
61.     MsgBox Err.Description
    
62.     Resume 退出异常处理
    
63. End Sub

复制代码