<em>EXCEL</em> <em>VBA</em>工作簿事件-vba

把下面子程序中百的代码加入度到workbook-open（）事件中：回
Sub aaa()
Dim t, d, n, dh, c
t = 0
d = Replace(Date, "-", "")
n = ThisWorkbook.Sheets("数据库").Range("a65536").End(xlUp).Row
For Each c In Range("a3:a" & n)
dh = Left(c, 8)
If dh = d Then
t = 1
num = 1 & Right(c, 3)
End If
Next c
If t = 1 Then
ThisWorkbook.Sheets("面板答").Range("h2") = d & "-" & Right(num + 1, 3)
Else:
ThisWorkbook.Sheets("面板").Range("h2") = d & "-001"
End If
End Sub

把下面子程序zd中的代码加入到版workbook-open（）事件中：
Sub aaa()
Dim t, d, n, dh, c
t = 0
d = Replace(Date, "-", "")
n = ThisWorkbook.Sheets("数据库").Range("a65536").End(xlUp).Row
For Each c In Range("a3:a" & n)
dh = Left(c, 8)
If dh = d Then
t = 1
num = 1 & Right(c, 3)
End If
Next c
If t = 1 Then
ThisWorkbook.Sheets("面板权").Range("h2") = d & "-" & Right(num + 1, 3)
Else:
ThisWorkbook.Sheets("面板").Range("h2") = d & "-001"
End If
End Sub
提问者采纳
如果，我说的是如果，不zd存在workbook的open事件代码和Sheet1的Activate事件，那么工作簿被隐藏很有可能是曾经使用GetObject方法打开过并保存了。
这种情况下，只要正常打开（比如双击）后，在VBA的立即窗口输入专一次workbooks("文件名全称").Windows(1).Visible=True，并保存一次，以后就能正常了
如果，存在Open事件的代属码，那就酌情修改取消隐藏

提问者采纳如果，我说的是百如果，不存在workbook的open事件代码和Sheet1的Activate事件，那么工作簿被隐藏很有可能是曾经使用GetObject方法打开过并保存了。这度种情况下，只要正常打开（比如双击）后，在VBA的立即回窗口输入一次workbooks("文件名全称").Windows(1).Visible=True，并保存一次，以后就能正常了如果，存在Open事件的代码，那就酌情修答改取消隐藏