加密的文件，请高手帮忙看看如何解决？

wkbu

跨分页符表.rar (43.31 KB, 下载次数: 26)

2010-3-19 20:52 上传

点击文件名下载附件

加密后忘记密码，请高手帮忙去除密码。

cflood

找软件破解一下。

kevinchengcw

原帖由 wkbu 于 2010-3-19 20:52 发表
684109

加密后忘记密码，请高手帮忙去除密码。

一般这样的我们都怀疑是不是楼主自己的文件

kevinchengcw

密码有什么规律吗,是单词还是数字,如果是混合的就不是一天半天的事了

FXSHENG

这题目是犯禁忌:讨论破解问题
还是解不开?
wkbu指定的宏是
Sub WKBU() '跨分页符的合并单元格分割_WKBU
Range("A200").Select
Dim i%, j%, md%, ipage%, k%, kk%, ku%, ilastrow%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ipage = ActiveSheet.HPageBreaks.Count: md = 1
For k = 1 To ipage
  ilastrow = ActiveSheet.HPageBreaks(k).Location.Row - 1 '判断每页最后一行的行数
    For j = 1 To 13
    For i = md To ilastrow
         If Cells(i, j).MergeCells Then kk = Cells(i, j).MergeArea.Rows.Count: ku = Cells(i, j).MergeArea.Columns.Count
         If Cells(i, j).MergeCells And (kk + i - 1) > ilastrow Then
           Cells(i, j).Select
             Cells(i, j).UnMerge
              Cells(i, j).Value = ActiveCell.Value
               Cells(ilastrow + 1, j) = ActiveCell.Value
                  Range(Cells(i, j), Cells(ilastrow, j + ku - 1)).Merge
                    Range(Cells(ilastrow + 1, j), Cells(i + kk - 1, j + ku - 1)).Merge
                    End If
                   If Cells(i, j).MergeCells Then i = kk + i - 1
                  Next
                Next
              md = ilastrow + 1
            Next
        Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

[ 本帖最后由 FXSHENG 于 2010-3-19 21:22 编辑 ]

wkbu

感谢楼上，证明这个文件是我自己的!