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

m0716273254

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

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

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

m0716273254

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

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

cfanpc

上传蓝云啊，发我看看

一丝风

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

Login.Show

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

Hsm162636

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

2010pxl

Login.Show  这句也不要

2010pxl

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

空灵山人

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

weikun444

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