查看: 676|回复: 8
高手请进，自己做的一个文件，搞得自己进不去了，求破解
阅读权限20
在线时间 小时
求助大神，我自己做了一个启动窗口，本意是想自定义启动所选择路径的文件，但是搞了共享之后，自己进不去工作表界面和VBE界面了，求大神帮忙破解，否则又要重新做一遍了。
想重新进去改的是：窗体下拉框目前不能引用指定工作表内的内容，这点只要能进去界面之后我自己弄也可以，主要是现在自己都进不去修改了。
(43.23 KB, 下载次数: 17)
11:19 上传
点击文件名下载附件
阅读权限20
在线时间 小时
本帖最后由 adunis 于
11:53 编辑
按 ctrl + pause上面不算，我理解错了，你是要破解吧。。。自己没有留底？
阅读权限90
在线时间 小时
Private Declare Function SendMessage Lib &user32& Alias &SendMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DrawMenuBar Lib &user32& (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Sub ChangeIcon(ByVal hwnd As Long, Optional ByVal hicon As Long = 0&)
SendMessage hwnd, WM_SETICON, ICON_SMALL, ByVal hicon
SendMessage hwnd, WM_SETICON, ICON_BIG, ByVal hicon
DrawMenuBar hwnd
Private Sub CheckBox1_Click()
Private Sub userForm_initialize()& && && && && &'窗体加载
Application.Interactive = False
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Me.Caption)
Call ChangeIcon(hwnd, Image1.Picture.Handle)
Me.欢迎词 = Environ(&username&) & &欢迎您进入本系统，遇到问题请联系管理员&
Application.Interactive = True
Application.ScreenUpdating = True&&'显示运算过程
Private Sub userForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode && 1 Then
& & Cancel = True
& & Unload Me
& & Application.CutCopyMode = False
ThisWorkbook.Close Saved = True
Application.Quit
Private Sub 取消登陆_Click()
Private Sub 确定登陆_Click()
With Sheet1
& & For i = 2 To 100
& && &&&If 用户名.Text = .Cells(i, 1).Text And 密码.Text = .Cells(i, 2).Text Then
& && && && &进入系统
& && &&&End If
Sub 进入系统()
Unload 登陆窗口
'Sheet1.Cells(2, 4).Value = 用户名.Value
'Sheet1.Cells(2, 5).Value = Date
& & Application.Interactive = False
& & '将有备料需求的物料放到呆滞防控中
& & ChDir ThisWorkbook.Path
& & Workbooks.Open FileName:=登陆窗口.服务器.Text & &\计划管理助手\SYS&, Password:=&**********&&&'导入指定路径的指定表
& & Application.Interactive = True
& &&&Application.CutCopyMode = False
ThisWorkbook.Close Saved = True
Application.Quit
阅读权限70
在线时间 小时
你说一下你的加密方法 也许对别人帮你恢复有点帮助
阅读权限20
在线时间 小时
张三李四 发表于
Private Declare Function SendMessage Lib &user32& Alias &SendMessageA& (ByVal hwnd As Long, ByVa ...
谢谢，能分享下是怎么进去的吗？
阅读权限20
在线时间 小时
百度不到去谷歌 发表于
你说一下你的加密方法 也许对别人帮你恢复有点帮助
我没有特别的加密，只是设工程密码，然后共享保护，把工作表标签隐藏掉，再之后想进去时，想取消共享保护也变灰色的了，VBE界面由于有共享保护，也进不了
阅读权限20
在线时间 小时
张三李四 发表于
Private Declare Function SendMessage Lib &user32& Alias &SendMessageA& (ByVal hwnd As Long, ByVa ...
佩服你，能帮我把能正常进去后的附件上传么？
您既然破解了，应该也看的出里面没有什么数据，也没有什么技术含量的东西，不是恶意破解和剽窃人家的东西
麻烦您了，或者帮我把工作簿OPEN 事件代码发上来也行，我就不用再写了
阅读权限90
在线时间 小时
把你的工作表设置全改了，你自己再加工一下吧。
(25.33 KB, 下载次数: 17)
16:09 上传
点击文件名下载附件
阅读权限70
在线时间 小时
自己知道共享密码的话 下面的代码你在其他文件里执行可以解锁掉共享Private Sub UnlockSharing() '解锁共享工作簿
& & '解开“锁定并共享工作簿”功能的代码，原锁定密码为“1”
& & Application.DisplayAlerts = False
& & Application.EnableEvents = False
& & With Workbooks.Open(ThisWorkbook.Path & &\启动.xls&)
& & If .MultiUserEditing Then
& && &&&.UnprotectSharing 1 '1是共享工作簿的密码
& && &&&.Close True
& & End If
& & End With
& &&&Application.EnableEvents = True
& & Application.DisplayAlerts = True
& & '对工作簿重新锁定而不共享，密码为&1&
& & 'ThisWorkbook.Protect Password:=&1&, Structure:=True, Windows:=False
& & 'ThisWorkbook.ProtectSharing Filename:=ThisWorkbook.Path & &\保护工作簿.xls&, Password:=&1&
End Sub复制代码
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师【求助】跳过开发者模式进入，ubuntu必须重装吗？_chromebook吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：4,870贴子：
【求助】跳过开发者模式进入，ubuntu必须重装吗？收藏
同学拿我的chromebook玩，结果没注意进入正常模式，现在要重新进入开发者模式的话必须再格式化么？这样ubuntu必须重装吗？妈蛋，在学校现在连VPN都不能连，不然直接重装了
2017年在职研究生有没有取消，具体的政策有什么变化
格式化后数据自然不会保留。如使用devOS就不用担心ubuntu系统被人开机一键删除了。
我用的安装OpenELEC时的一个脚本. 可以调整默认启动（如默认Ctrl+D的chromeos或是Ctrl+L的SeaBIOS）和设定等待时间（30秒或1秒）. 我设置的chromeos1秒进入, 自然不会碰到这个情况. 有兴趣的可以谷歌OpenELEC Chromebox, 记得自行fq.
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求大神指点，荣耀6开发者模式打不开了，点6次也不行_华为荣耀6吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：163,590贴子：
求大神指点，荣耀6开发者模式打不开了，点6次也不行收藏
点版本号7次，你少点1次
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求助 开发版进不去 这是什么鬼_剑网3吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：3,933,008贴子：
求助 开发版进不去 这是什么鬼
凌晨5:30左右 1线草地...
校园网苦逼兮兮下了一天...
这是为什么需要交钱吗？
为什么促使我发这个帖子...
现在的随机高难划水这么...
2017年在职研究生有没有取消，具体的政策有什么变化
感觉他在逗我
显卡挺好用开发版感觉没必要呀，正式版电影级都妥妥的
　　大家请注意，这里是一则剑网三寻狗启示，本人在扬州城跑丢了一只阿拉斯加，蓬蓬头，穿着一件红白色小毛衣，看人的眼神是的。　　麻烦好心人看到后把它还给电五姨妈一个叫 【词楚】 的盾哥哥，没错就是我，灰常感谢！
XP没法用DX11
重新上一张图 不知道为什么他显示是XP
算了 这个问题有点严重 我还是继续屏蔽吧
楼主你试试打开开发版的客户端，就是那个蓝色的图标，桌面没有的话去游戏文件夹里面找，然后等它更新，更新完成别点进入游戏，关掉开发版界面，再打开正式版，就是那个红色的图标，然后再看看能不能勾选dx11
是时候一发苍爹x秀姐cp了
贴吧热议榜
使用签名档&&
保存至快速回贴