隐藏/恢复VBA模块工具分享

yunfei2018

gushq 发表于 2017-12-28 19:27
没有办法再现你的问题，能说的详细点吗
是下面的步骤吗？
1.用工具隐藏模块

隐藏前，控件可以正常点击，

隐藏后，控件无法点击了，              附件：   测试文件.zip (58.81 KB, 下载次数: 309)

2018-1-14 22:27 上传

点击文件名下载附件

附件有隐藏前、隐藏后的文件，请查看是何原因，谢谢！   

jimodexue

真的感谢楼主，我想学学我感兴趣方面的XLS，为了以后工作方便，现学的VB，想学习行业内先进的技术，他们写计算书都是用VBA辅助计算的，我想打开看一下代码，为了实现这个目标，从破解工作表保护，到破解VBA工程查看密码，到意识到有隐藏的自定义函数，到意识到有隐藏的模块，然后搜索到楼主的帖子，才能最后学到别人的技术，现在我特意注册了个excelhome的账号来感谢楼主，衷心的感谢楼主，祝楼主新年快乐！

ysbyj

谢谢楼主提供了这样好的工具，祝楼主新年快乐！

shaokui123

yunfei2018 发表于 2018-1-14 22:28
隐藏前，控件可以正常点击，

隐藏后，控件无法点击了，              附件：  

用最后更新的工具把隐藏模块显示，保存后再打开提示文件损坏

年轻人·老梦

大神，是否可以帮忙破解一下代码，附件已上传，谢谢

shaokui123

年轻人·老梦 发表于 2018-7-13 23:22
大神，是否可以帮忙破解一下代码，附件已上传，谢谢

Sub 右()
Cells(1, 1) = "北京地铁十四号线08合同段"
Dim l, B#, I%
I = 4
Do
l = Cells(I, 1)
If Cells(I, 1) = "" Then MsgBox "请输入数据"
  If 17371.6 <= l And l <= 17500.85 Then
       B = 20.311 + (l - 17371.6) * 2 / 1000
  ElseIf 17500.85 < l And l <= 17518 Then
        B = 20.57 + (l - 17500.85) * 2 / 1000 + (l - 17500.85) ^ 2 / (2 * 5000)
ElseIf 17518 < l And l <= 17535.15 Then
        B = 20.756 + (l - 17535.15) * 8.86 / 1000 + (l - 17535.15) ^ 2 / (2 * 5000)
ElseIf 17535.15 < l And l <= 17700 Then
        B = 20.756 + (l - 17535.15) * 8.86 / 1000
ElseIf 17700 < l And l <= 17707.98 Then
        B = 22.217 + (l - 17700) * 8.86 / 1000 - (l - 17700) ^ 2 / (2 * 5000)
ElseIf 17707.98 < l And l <= 17714.68 Then
        B = 22.329 + (l - 17714.68) * 6.18 / 1000 - (l - 17714.68) ^ 2 / (2 * 5000)
ElseIf 17714.68 < l And l <= 17817.85 Then
        B = 22.329 + (l - 17714.68) * 6.18 / 1000
ElseIf 17817.85 < l And l <= 17878.3 Then
        B = 22.966 + (l - 17817.85) * 6.18 / 1000 - (l - 17817.85) ^ 2 / (2 * 5000)
ElseIf 17878.3 < l And l <= 17938.75 Then
        B = 22.252 - (l - 17938.75) * 18 / 1000 - (l - 17938.75) ^ 2 / (2 * 5000)
ElseIf 17938.75 < l And l <= 17988.953 Then
        B = 22.252 - (l - 17938.75) * 18 / 1000
   Else
MsgBox "超出里程范围"
Exit Do
End If
Cells(I, 2) = B
I = I + 1
Loop Until Cells(I, 1) = ""
End Sub

年轻人·老梦

shaokui123 发表于 2018-7-14 14:05
Sub 右()
Cells(1, 1) = "北京地铁十四号线08合同段"
Dim l, B#, I%

您用的是代码还是软件了呢

PengXP

大神好厉害，学习

shaokui123

年轻人·老梦 发表于 2018-7-15 11:41
您用的是代码还是软件了呢

别的软件

zsf1

运行过程中会多出一个thisworkbook1,这是为什么啊