[已解决][求助]将两段Private Sub Workbook_Open开头的代码分先后执行或合并

18zhangyong

将两段Private SubWorkbook_Open开头的代码分先后执行或合并

代码1：

Private Sub Workbook_Open()

  Dimfs, d, s$

  OnError Resume Next

  Fori = 3 To 26

   Set fs = CreateObject("Scripting.FileSystemObject")

   Set d = fs.GetDrive(Chr(64 + i) & ":")

    s= d.serialnumber

    Select Case s

     Case "1219432226"

       Exit Sub

     End Select

Next i

MsgBox "系统将退出。"

ThisWorkbook.Close False

End Sub

代码2：

Private Sub Workbook_Open()

Application.Visible = False

系统登录.Show

Sheets("用户及密码").Visible = 0

EndSub

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-11 21:38

sub 代码2()

Application.Visible = False

系统登录.Show

Sheets("用户及密码").Visible = 0

End Sub
这个要放到模块里面去

跳转到最佳答案楼层

sunjing-zxl

代码1： Private Sub Workbook_Open()   Dimfs, d, s$   OnError Resume Next   Fori = 3 To 26    Set fs = CreateObject("Scripting.FileSystemObject")    Set d = fs.GetDrive(Chr(64 + i) & ":")     s= d.serialnumber     Select Case s      Case "1219432226"        Exit Sub      End Select Next i MsgBox "系统将退出。" ThisWorkbook.Close False call 代码2 End Sub sub 代码2() Application.Visible = False 系统登录.Show Sheets("用户及密码").Visible = 0 End Sub

18zhangyong

sunjing-zxl 发表于 2012-1-11 15:38

谢谢sunjing-zxl老大的关注，问题还没解决,出现“编译错误：子过程或函数未定义”

sunjing-zxl

sub 代码2()

Application.Visible = False

系统登录.Show

Sheets("用户及密码").Visible = 0

End Sub
这个要放到模块里面去

18zhangyong

sunjing-zxl 发表于 2012-1-11 21:38
sub 代码2()

Application.Visible = False

sunjing-zxl老大，还是不行，不能自动运行
sub 代码2()
Application.Visible = False
系统登录.Show
Sheets("用户及密码").Visible = 0
End Sub
以上属于登录窗体的代码

sunjing-zxl

传附件，需要测试

sunjing-zxl

上传附件我才能测试