0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功......", 32, "提示" Close #1 End Sub">
开发工具--录制宏--马上停止录制--然后点击宏选择刚才录制的宏点击编辑清空里面的内容,复制下面的内容进去,然后运行宏就好了 Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解") If Dir(Filename) = "" Then MsgBox "没找到相关文件,清重新设置。" Exit Sub Else FileCopy Filename, Filename & ".bak" '备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next '加入不配对符号 If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功......", 32, "提示" Close #1 End Sub
你好,我现在要注销税务,可是税的那个盒子口令还有密码都忘记了怎么办
老师你好,我有个Excel表格我忘记密码了现在打不开了 怎么办
老师,我有一个表格设置了打开密码,但我忘记密码打不开了,这个密码怎么破解
你好,我那个江西会计服务忘记密码了,登录不了,怎么办
学霸导师里我的应用给设置密码,现在忘记密码有打不开,怎么解锁
法人要是转账到公户卡里怎么备注好呢,直接写往来款还是写清楚法人代垫xx款这样呢
財管:貝塔係數,衡量的是市場風險 中的系統風險還是非系統風險?
为什么所有题目都不提供年金现值指数或是复利现值指数
有一个不明白的就是说比如无形资产它是属于使用寿命不确定的,然后在会计上不用摊销,而在税法上需要进行摊销。那就会需要在当期所得税中进行调减。但是也会产生递延所得税,调减了,然后就属于当期所得税会减少吗,然后这个递延所得税也是属于递延所得税费用也就是,那这个调减的金额和递延所得税费用使利润不就减少了两个相同的数字吗?这样子不就重复了吗?到时候这个递延所得税负债转回的时候,那本期这个当期所得税还是属于调减了。那还需要这个递延所得税有什么意义吗?
老师,我先把人工工资剔除,假设我这个月就是车间的一些制造费用呀,然后一些电费、水电费呀,这些七七八八的车间的一些。费用一个月在三三万四万块钱的样子,4万块钱的样子,那如果我要摊到一个工时上面去,是是除以30天再除以24个小时嘛。
老师,一般纳税人认证发票的步骤: 一个老师说:点击“我要办税”→税务数字账户→发票业务。另一个老师说:我的待办→发票业务(老师,两个老师的步骤不一样,是因为两个不同的路经?还是税局系统界面有变化?)
请问在网上注销工商流程步骤是怎么样的?
你好,老师!我们21年给一个公司运输了一批货物,当时谈的是不含票的价格!今天他们财务突然打电话说让我们补开发票,我不开,合法吗?
老师您好,购入需经过安装设备,安装后投入使用,请问在建工程转固都需要哪些资料
老师,公司租个人的商业房子,租金6万,房产税需要交多少?沈阳的
这是什么老师
老师能分段发给我咯?
Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解") If Dir(Filename) = "" Then MsgBox "没找到相关文件,清重新设置。" Exit Sub Else FileCopy Filename, Filename & ".bak" '备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next '加入不配对符号 If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功......", 32, "提示" Close #1 End Sub
或者采用这种方法
具体操作步骤: 第一步:修改工作表后缀,将工作表名称后缀中的 .xlsx 修改为.rar(修改后悔变成一个压缩包); 第二步:查找压缩包里面的sheet1.xml文件(如果你需要修改sheet1的内容,你就选择sheet1.xml,如果修改别的sheet,你就选择sheet2或者sheet3),打开压缩包→xl文件夹→worksheets→sheet1.xml,选中sheet1.xml复制出来; 第三步:记事本打开sheet1.xml文件; 第四步:删除工作表保护编程。记事本打开后,ctrl+F调出查找窗口,输入protect搜索,找到编程并删除(编程为下图中选中蓝色区域),修改后关闭记事本; 第五步:将文件放回原位置和改回后缀。1.文件放回原位置:打开压缩包→xl文件夹→worksheets→删除原来sheet1.xml→放回修改后的sheet1.xml。2.文改回后缀:将 .rar 后缀改回 .xlsx 。 第六步:打开工作表检查破解情况。打开工作表尝试修改内容,检查密码是否已经破解。