excel
文章平均质量分 66
深度解析
。。。
展开
-
【VBA修改】excel按照某一列内容保留表头和结尾拆分为独立的新表
Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Object, k, t, i&, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 4, , , , , 1) If c = 0 Then Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False arr = [a1].Cur...原创 2021-04-26 17:01:42 · 2798 阅读 · 3 评论 -
破解excel密码保护
如果保护的是整个工作簿,该如何破解密码呢?这里教大家一招,快速破解。同样是打开VBA内容,然后在模块中输入以下代码:Sub 工作簿破解()ActiveWorkbook.Sheets.CopyFor Each sh In ActiveWorkbook.Sheetssh.Visible =TrueNextEnd Sub(代码直接复制即可)之后按F5运行,这样就可以重新复制一个工作簿,这样也就破解密码了。...原创 2020-05-29 11:05:45 · 1141 阅读 · 0 评论