这段代码有问题高手帮看看好吗

chenkongqi

Private Sub Workbook_Open()
Me.IsAddin = False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.IsAddin = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.IsAddin = True
End Sub
'U盘密码狗
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fs, d, s$, checkUSB As Boolean
On Error Resume Next
checkUSB = False '默认没有找到U盘加密
For I = 3 To 26
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Chr(64 + I) & ":")
s = d.SerialNumber
If s = "511039838" Then '当找到序号一样的盘符时
checkUSB = True 'U盘加密为真
Exit For           '退出循环
End If
Next I
If Not checkUSB Then
MsgBox "找不到U盘，系统将退出。"
ThisWorkbook.Close False
Else
'欢迎页面
Dim term As Long, chk, TermDate
chk = GetSetting("swy", "Budget", "Date", "")
UserForm1.Show
Sheet15.Activate
If chk = "" Then
term = 2
Else
End If
End If
End Sub
'退出系统
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If OFF_no = 1 Then Cancel = False
If OFF_no = 0 Then Cancel = True
End Sub

ACMAIN_CHM

提问前请确认你有资格提问。
1。查过HELP文档(F1)。
2。知道如何调试VBA程序(F8,F9)。
3。了解数据类型。

chenkongqi

调试很久了，都不行，刚学会一点，还请指导，谢谢！！！

方漠

下列过程同名的有三个,不出问题那才有问题了.
把这三个SUB合并成一个再试一下吧.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

chenkongqi

就是合并后就不行了，传个附件，还请高手指点，如果可以加我QQ：654813999讨论下好吗？谢谢！！！

方漠

合并成一个后,我的EXCEL2007打开关闭都没有报错.

chenkongqi

6# 方漠
怎样合并啊，为啥我的不可以呢，指点下，谢谢！！！或加QQ：654813999指导下，先谢了。

chenkongqi

6# 方漠
怎样合并啊，详细些好吗，最好传回附件，谢谢！！！

方漠

8# chenkongqi

chenkongqi

9# 方漠
还是不行，这段代码连接了一个按钮，退出文件的按钮，并且在打开时，当禁用宏时，没有提示启用，而且禁用宏没有关闭文件。
效果：打开文件，当禁用宏时，提示是否启用宏，如果选择禁用宏，则关闭文件；如果选择启用宏，则运行继续运行'U盘密码狗（当U盘序号不对应时关闭文件；当U盘序号对应时，则运行继续运行欢迎页面）；'退出系统这段宏连接到事件是推出系统按钮（在首页）只有点击退出按钮才能推出文件。另外附个获取U盘序号的文件，希望可以有用，谢谢！！！