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

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

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

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

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

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

帐号		自动登录	找回密码
密码			注册[Register]

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

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