【改头换面】【简单操作，强大功能】成绩统计系统v2010-剥壳易制作

wxhsqdy

本人愚笨，虽然解除了密码，但是还是无法进入代码查看，能告诉我该怎样做吗？

lzqlaj

alt+f11查看

zy040059

我屏蔽了ALT+F11，你只能从“工具”——“宏”——“Visual Basic编辑器”中调出窗口

zy040059

这个我也试过多次，现在仍没能解决

zy040059

问题解决，原因是关闭工作薄时并没有结束EXCEL进程，故第二次打开会避开登陆窗口(系程序自动化故障），解决办法是修改两处代码，如下
①在ThisWorkbook 中找到Private Sub Workbook_BeforeClose(Cancel As Boolean) 修改为：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    xscdml
    hfhml
    WbBuiltin
       Application.EnableEvents = False       '关闭并保存文件
    Application.Quit   '关闭Excel
      ThisWorkbook.Save
      ThisWorkbook.Close True '活动工作薄关闭,不保存
    Application.DisplayAlerts = True
      Application.EnableEvents = True        'EXCEL程序退出
End Sub

②找到窗体 Login 代码 中的CommandButton1_Click() '''''''系统登陆确定按钮，修改为

Private Sub CommandButton1_Click() '''''''系统登陆确定按钮
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False   
    Sheet36.Range("A2").Value = Me.ComboBox1.Text
    If Me.TextBox1.Text = Sheet36.Range("B2").Value Then
     MsgBox Me.ComboBox1 & " ，欢迎你使用本系统！", vbInformation, "系统提示"
        Unload Login
        Unload frmFace
        Application.Visible = True
    Else
        MsgBox "密码错误,你无权使用本系统!", vbExclamation, "系统提示"
         Application.Quit
        ThisWorkbook.Close savechanges:=False
  End If
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

[ 本帖最后由 zy040059 于 2010-7-15 14:48 编辑 ]

l_hl2008

资源共享 下载学习

风和日月

巳下载学习了 谢谢共享

ldr

多谢楼主，收藏了。

feng474

邹毅老师，咱们是同行，我在单位也是负责成绩统计这块的，你做的模板确实很好，特别是你的ＶＢＡ方面很值得我学习。为了方便向你学习，可不可以加你为好友呀？我的ＱＱ是498594158。

feng474

老师你好，为什么你的左侧按钮怎么点出不出对话框呀，右侧的点出后，输入密码后提示你没有使用权限。