如何破解excel宏密码的方法

　　在Excel中经常需要设置密码保护重要的数据，但时间过后密码就会容易忘记，这个时候就需要破解密码了，接下来是小编为大家带来的如何破解excel宏密码的方法，希望对你有用。

　　如何破解excel宏密码的方法：

　　破解宏密码步骤1：打开需要破解的文件，并点开需要输入密码的界面，如图

　　破解宏密码步骤2：使用EXCEL.EXE重新打开一个工作簿。

　　破解宏密码步骤3：打开新工作簿的VBA代码区域，并插入一个模块。

　　破解宏密码步骤4：插入如下代码

　　Sub test()

　　Dim st, nd, th3, th4, th5, th6, th7, th8 As Variant

　　Dim ii, jj, kk, ll, mm, nn, oo, pp, qq As Integer

　　Dim PADN, PD, IJ, JK, PADNO, speed

　　speed = 0.005

　　st = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　nd = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　th3 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　th4 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　th5 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　th6 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　th7 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　th8 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

　　PADN = InputBox("How long the password is", "Guilin Hu", 4)

　　PADNO = CInt(PADN)

　　For IJ = 1 To 100

　　If Sheet1.Cells(IJ, 1) = "" Then

　　Sheet1.Cells(IJ, 1) = Now

　　Exit For

　　Else

　　End If

　　Next IJ

　　PauseTime = 2

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　Select Case (PADNO)

　　Case 1

　　For ii = 0 To 61

　　PD = st(ii)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next ii

　　Case 2

　　For ii = 0 To 61

　　For jj = 0 To 61

　　PD = st(ii) & nd(jj)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next jj

　　Next ii

　　Case 3

　　For ii = 0 To 61

　　For jj = 0 To 61

　　For kk = 0 To 61

　　PD = st(ii) & nd(jj) & th3(kk)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next kk

　　Next jj

　　Next ii

　　Case 4

　　For ii = 0 To 61

　　For jj = 0 To 61

　　For kk = 0 To 61

　　For ll = 0 To 61

　　PD = st(ii) & nd(jj) & th3(kk) & th4(ll)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next ll

　　Next kk

　　Next jj

　　Next ii

　　Case 5

　　For ii = 0 To 61

　　For jj = 0 To 61

　　For kk = 0 To 61

　　For ll = 0 To 61

　　For mm = 0 To 61

解除excel只读方式的方法步骤图

在Excle中有些数据只供他人阅读，而不能让他人随意修改，这个时候就需要把Excel设置成只读，但自己编辑的时候就需要解除只读方式了。下面是由小编分享的如何解除excel只读的方法，希望对你有用。 解除excel只读方式的方法 解除只读步骤1：找到对应的工作表，右击-属性 解除只读步骤2：只读属性-勾取消

　　PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next mm

　　Next ll

　　Next kk

　　Next jj

　　Next ii

　　Case 6

　　For ii = 0 To 61

　　For jj = 0 To 61

　　For kk = 0 To 61

　　For ll = 0 To 61

　　For mm = 0 To 61

　　For nn = 0 To 61

　　PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next nn

　　Next mm

　　Next ll

　　Next kk

　　Next jj

　　Next ii

　　Case 7

　　For ii = 0 To 61

　　For jj = 0 To 61

　　For kk = 0 To 61

　　For ll = 0 To 61

　　For mm = 0 To 61

　　For nn = 0 To 61

　　For oo = 0 To 61

　　PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn) & th7(oo)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next oo

　　Next nn

　　Next mm

　　Next ll

　　Next kk

　　Next jj

　　Next ii

　　Case 8

　　For ii = 0 To 61

　　For jj = 0 To 61

　　For kk = 0 To 61

　　For ll = 0 To 61

　　For mm = 0 To 61

　　For nn = 0 To 61

　　For oo = 0 To 61

　　For pp = 0 To 61

　　PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn) & th7(oo) & th8(pp)

　　SendKeys PD

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　PauseTime = speed

　　Start = Timer

　　Do While Timer < Start PauseTime

　　DoEvents

　　Loop

　　Finish = Timer

　　SendKeys "{enter}"

　　Next pp

　　Next oo

　　Next nn

　　Next mm

　　Next ll

　　Next kk

　　Next jj

　　Next ii

　　End Select

　　For JK = 1 To 100

　　If Sheet1.Cells(JK, 2) = "" Then

　　Sheet1.Cells(JK, 2) = Now

　　Exit For

　　Else

　　End If

　　Next JK

　　End Sub

　　破解宏密码步骤5：按F5执行代码，输入密码长度。如果不知道密码的长度，就猜，第一次输1，第二次输2。。。依次试。

　　破解宏密码步骤6：输入密码长度后，点击确定。并在2s内将鼠标的焦点点在最开始要破解文件的密码输入框里边。接下来的工作就是“静候佳音”了。。哈哈。。

　　破解宏密码步骤7：没有破解不开的密码。主要的是你有时间就好!1位密码破解最长时间：62/(1/0.005)=0.31秒;2位数密码破解最长时间：62*62/(1/0.005)=19.22秒。。。依次类推：N位数密码破解时间：(62)的N次方/(1/0.005)秒的时间。就看您的耐性了!破解完成之后就会自动进去VBA代码模块。

　　破解宏密码步骤8：接下来就是修改别人的密码了!进去果断点击VBA工程属性，。。。“干啥?”。。。。哈哈 改密!!

　　破解宏密码步骤9：看哥的密码改的!哈哈。。。

excel表格怎样调整行高和列宽

在excel办公时把表格调整到合适的行高和列宽，有利于数据的完整显示。下面随小编一起看看具体的设置方法吧。 excel调整行高和列宽的方法一 改变列宽：将鼠标移到列标的右边边框线上，当鼠标变为双箭头时，按住鼠标左键左右移动，调整到你认为合适的宽度时松手。 改变行高：将鼠标移到行标的下边框线上，当鼠标变为双箭