前言

在某工作表中，同时发来的excel表格设置了工作表保护，导致表格的列宽无法调整，一些数字过长导致表格内容显示为“####”，无法正常显示数字，且不能调整表格的列宽极为不便，但是同事自己也忘记了密码导致根本无法撤销工作表保护。此方法适用于excel设置了工作表保护，忘记了密码，无法调节表格列宽时使用。

1.Excel工作表保护表现

已设置了工作表保护的表格，选中表格无法调节列宽，在审阅菜单栏下有显示“撤销工作表保护”。

2.忘记密码如何清除Excel的密码保护

如果忘记了Excel密码保护的密码，可以通过宏指令的方式直接删除密码保护。

1.第一步：录制宏

在“视图”选项卡下，点击“宏”，选择“录制宏”。点击“录制宏”后，不需要进行任何操作。

2.第二步：结束宏

录制宏后，不需要执行任何操作，直接点击“停止录制”。

3.第三步：编辑宏脚本

点击“查看宏”

然后点击“编辑”按钮，编辑删除密码保护的脚本。

---------------------------------------在VBS脚本编辑页面，填入以下脚本：------------------------------------------

Public Sub Password_cracking()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"                      Author - jnxxhzz "
Const HEADER As String = "Password_cracking"
Const VERSION As String = DBLSPACE & "                      Version 1.0"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & ""
Const ALLCLEAR As String = DBLSPACE & "All password is clear" & DBLSPACE & "Please remember to save"
Const MSGNOPWORDS1 As String = "No password!"
Const MSGNOPWORDS2 As String = "No password!"
Const MSGTAKETIME As String = "This will take some time , please wait for a while" & DBLSPACE & "Press next to start"
Const MSGPWORDFOUND1 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _
"If the file worksheet has a different password, it will search for the next set of passwords and release"
Const MSGPWORDFOUND2 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _
"If the file worksheet has a different password, it will search for the next set of passwords and release"
Const MSGONLYONE As String = ""
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER
End Sub

4.运行结果

会弹出一下窗口，点击“确定”即可。

执行脚本后，会将excel工作保护的明文密码显示出来，并将工作保护的密码直接删除，此时可以任意调整excel的列宽。

Excel撤销工作表保护方法(Excel无法调节列宽解决办法)相关推荐

excel撤销工作表保护默认密码_我的表格我做主：Excel工作表不想被别人改动，设置一个密码保护...
工作中,一个Excel表格需要多人填充数据时.或者发给同事的表格只允许查看时,不想表格回来时已面目全非. 今天小编教你设置工作表保护密码,不需要再三叮嘱,只允许查看表格数据的整体设置保护,需要多人填充 ...
excel 撤销工作表保护
方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替 ...
excel取消工作表保护
设置excel文件工作表保护,可以有效保护文件内容,但如果很多文件都设置了工作表保护,密码还不一样的话,可能会导致密码弄混.不记得密码.可是想要编辑excel文件就必须撤销工作表保护才行.网上有很多使 ...
Excel 撤消工作表保护密码
Excel表格密码保护的解除方法表格受密码保护时,我们修改数据Excel弹出"您试图更改的单元格或图表受保护,因而是只读的.若要修改受保护单元格或图表,请先使用'撤消工作表保护'命令(在' ...
excel文件工作表保护如何取消
excel文件设置了工作表保护,想要编辑excel文件就需要对excel文件的工作表保护进行撤销,但是如果想要撤销的前提是输入正确的密码,因为在设置工作表保护的时候设置了密码,所以想要撤销保护也需要输 ...
Excel 2013 工作表保护密码破解
温馨提示: 此方法不适用于一打开就要输入密码才能查看的表格之前整理了下 Excel 2013 的工作表保护密码破解办法今天无意中又用到了,就分享出来吧 Tips:如果你想彻底加密你的工作表,把 ...
Excel破解工作表保护密码
目录: 一.破解过程 1.新建一个EXCEL文件"BOOK1",在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏 2.在Visual ...
excel取消工作表保护，获取原始密码
您试图更改的单元格或图表位于受保护的工作表中.若要进行更改,请取消工作表保护.您可能需要输入密码. 网上找的解决办法,在excel2016中试过后,有效. 1.打开需要破解保护密码的Excel文件: ...
excel 文件工作表保护密码破解
1.快捷键A1t F11打开vbe编辑器→插入菜单 2.选择"插入"模块 3.把下面的代码复制过去→然后把光标点到代码里→F5运行一下→工作表保护就破解了. Sub 破解工作表密码 ...

Excel撤销工作表保护方法(Excel无法调节列宽解决办法)

Excel撤销工作表保护方法

前言