网站 › 『编程语言讨论求助区』 › Excel VBA 绕登录系统 求助，代码如下

m0716273254 发表于 2020-10-25 14:47

Excel VBA 绕登录系统 求助，代码如下

Private Sub Workbook_Open()
Application.ScreenUpdating = False '防止屏幕抖动,屏幕刷新禁止
If DateValue(Date) > DateValue(Sheets("主页").) Then
    p = InputBox("您的使用期限已经到期，请输入口令继续使用", , "")
    If p <> "rjs7374521" Then MsgBox "口令错误，请按确定退出！": ThisWorkbook.Close False
    Sheets("主页"). = Date + 180
End If
Login.Show
Sheets("模板").Select
Application.ScreenUpdating = True '防止屏幕抖动,屏幕刷新禁止
End Sub


想问下大佬们，如果我想绕过这个登录系统，或者自己注册有效账号（系统不带注册窗口），该怎么办？有人能帮忙改改吗？

anzequ 发表于 2020-10-25 15:12

If DateValue(Date) > DateValue(Sheets("主页").) Then
    p = InputBox("您的使用期限已经到期，请输入口令继续使用", , "")
    If p <> "rjs7374521" Then MsgBox "口令错误，请按确定退出！": ThisWorkbook.Close False
    Sheets("主页"). = Date + 180
End If

这一段删除掉就不会出现登录提示

m0716273254 发表于 2020-10-25 15:36

anzequ 发表于 2020-10-25 15:12
If DateValue(Date) > DateValue(Sheets("主页").) Then
    p = InputBox("您的使用期限已经到期，请输入 ...

大佬，我删了后还是不行，还是有登录框跳出来，你有盘没，我把文件给你传过去

cfanpc 发表于 2020-10-25 15:54

上传蓝云啊，发我看看

一丝风 发表于 2020-10-25 16:04

m0716273254 发表于 2020-10-25 15:36
大佬，我删了后还是不行，还是有登录框跳出来，你有盘没，我把文件给你传过去

Login.Show

这一楼说的删除那段外，再把这个也删

Hsm162636 发表于 2020-10-25 16:18

上面那2个给出的试试看吧，Login.Show也影响

2010pxl 发表于 2020-10-25 16:43

Login.Show这句也不要

2010pxl 发表于 2020-10-25 16:44

Private Sub Workbook_Open()
Sheets("模板").Select
End Sub   
这样就完美了

空灵山人 发表于 2020-10-25 17:22

方便可以传文件上来。倒是可以学习学习这个代码

weikun444 发表于 2020-10-25 17:39

代码中明确说明输入口令rjs7374521加180天，把180后边再加几个0

查看完整版本: Excel VBA 绕登录系统 求助，代码如下