欢迎来到我的范文网!

撤销工作表保护

个人简历表格 时间:2007-06-11

【www.myl5520.com--个人简历表格】

如何撤销excel工作表保护的方法
篇一:撤销工作表保护

  在Excel中录入好重要的数据以后都需要进行工作表的密码保护,或许过了段时间后数据不再重要了就可以撤销工作表保护了,可能有的朋友还不会如何撤销工作表的保护。下面是小编带来的关于如何撤销excel工作表保护的方法,希望阅读过后对你有所启发!

  如何撤销excel工作表保护的方法:

  撤销工作表保护步骤1:打开要保护的excel

  撤销工作表保护步骤2:选择“审阅”选项,可以在该页面的工具栏上看到有一个“保护工作表”的工具栏

  撤销工作表保护步骤3:点击该按钮,打开“保护工作表”对话框。在该对话框中,需要设定一个取消保护工作表时的密码,以及保护工作表后,允许进行的操作,将允许的操作前面的复选框选中,即点击打上“√”

  撤销工作表保护步骤4:点击“确定”按钮,弹出确定密码的对话框,输入“保护工作表”页面中设定的密码,然后点击确定

  撤销工作表保护步骤5:此时,如果再在工作表页面中输入数据或修改数据时,会弹出该工作表被保护的提示信息。

  撤销工作表保护步骤6:当想编辑该文档的时候,执行取消保护工作表操作就可以了。和设定保护工作表时的操作类似,打开要编辑的excel文档,选择审阅,可以看到原来“保护工作表”的工具变为“撤销保护工作表”的工具

  撤销工作表保护步骤7:点击“撤销保护工作表”按钮,会弹出“撤销保护工作表”对话框,在编辑框中输入设定“保护工作表”时的密码,然后点击“确定”按钮

  撤销工作表保护步骤8:回到excel工作表编辑区,发现可以编辑文档了

看了如何撤销excel工作表保护的方法还看了:

怎么在excel中保护和取消保护工作表
篇二:撤销工作表保护

  我们辛苦录入的Excel工作表数据,如果因为一不小心误改了数据,那就太可惜了。所以我们对重要数据最好保护起来。下面小编教你怎么在excel中保护和取消保护工作表。

  excel中保护和取消保护工作表的步骤:

  打开我们需要保护的工作表,先选中不需要保护的部分数据,如图所示,右击鼠标,选择“设置单元格格式…”。

  在“保护”选项卡中,我们把“锁定”前面的勾去掉,如图所示,单击“确定”按钮。如果你的所有数据都需要保护起来,那么这前2步可以忽略。

  依次单击菜单栏的“工具”--“保护”--“保护工作表…”。

  在弹出的窗口中,我们设置密码(也可以不设置密码哦),注意红框处一定是勾选状态。单击“确定”按钮。

  会让你确认密码,即再次输入刚才的密码,单击“确定”按钮。

  这时,保护工作表已经设置完成了,如果你试图修改被保护的数据,会弹出如图提示窗口,已经不能修改被保护的数据了。

  如果你修改之前设置的取消保护的部分数据,还是正常可以修改的,如图所示。

  如果自己要修改原数据,该怎么办呢?那只有先撤销工作表的保护了。依次单击“工具”--“保护”--“撤销工作表保护…”,输入你之前设置的密码即可撤销保护了。




怎么在excel中保护和取消保护工作表相关文章:

Excel中2007版进行撤销工作表保护的操作方法
篇三:撤销工作表保护

  Microsoft发布Excel 2007时,引入了新的文件类型,即xlsx、xlsm、xltx,等等,称之为Open XML。今天,小编就教大家在Excel中2007版进行撤销工作表保护的操作方法。

  Excel中2007版进行撤销工作表保护的操作步骤:

  新的Open XML文件类型带来了许多好处。其主要的好处之一是可以通过操作组成文件的XML文档来简单地修改Excel 2007文件的内容和属性。

  是的,当处理Open XML文件时,发现可以通过简单地编辑Excel文件里的xml文件,从而简单地移除工作表保护。

  假设有一个工作簿,其工作表Sheet1被保护。现在,我希望取消该工作表的保护,但是不知道密码。怎么办呢?幸好这是Excel 2007,我们可以利用XML来移除工作表保护。

  步骤1 首先备份工作簿,以防万一。

  步骤2 修改工作簿文件的扩展名为zip。

  步骤3 解压该压缩文件。

  步骤4 找到代表目标工作表的XML文件(在xl\worksheets文件夹中)。

  步骤5 使用任一XML编辑器打开代表目标工作表的xml文档。

  步骤6 找到“sheetProtection”标签并移除该标签所在的行。

  步骤7 保存已编辑的XML文档,用其取代原Zip文件中相应的XML文档。

  步骤8 将文件的扩展名修改回xlsx。

  至此,工作表保护已解除。

  注意:

  在XML文件中看到的任何密码都不是真正的密码。

  这种方法不能取消对整个工作簿的保护。

Excel中2007版进行撤销工作表保护的操作相关文章:

Excel中如何破解“撤销工作表保护密码”并获取原始密码
篇四:撤销工作表保护

Excel中如何破解"撤销工作表保护密码"并获取原始密码

一、 保护工作表的方法

1、 全选定工作表 右击[设置单元格格式] 找到[保护]将

[锁定]和[隐藏]两个的勾去掉;

2、将要保护的工作表单元格选定右击[设置单元格格式] 找到[保护]将[锁定]和[隐藏]两个的勾打上;

3、 点菜单栏的[工具]中的[保护]里的[保护工作表]将[保护工作表及锁定

的单元内容]打上勾,下选允许此工作表的所有用户[选定未锁定的单元格]打上勾

二、Excel工作表保护密码破解方法

1、打开您需要破解保护密码的Excel文件;

2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;

3、停止录制(这样得到一个空宏);

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;

5、删除窗口中的所有字符(只有几个),替换为下面的内容;

从横线下开始复制

------------------------------------------------------------------------------------------

Option Explicit

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

如何撤销excel工作表保护的方法

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted from Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

Const REPBACK As String = DBLSPACE & "Please report failure " & _

"to the microsoft.public.excel.programming newsgroup."

Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _

"now be free of all password protection, so make sure you:" & _

DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _

DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _

DBLSPACE & "Also, remember that the password was " & _

"put there for a reason. Don't stuff up crucial formulas " & _

"or data." & DBLSPACE & "Access and use of some data " & _

"may be an offense. If in doubt, don't."

Const MSGNOPWORDS1 As String = "There were no passwords on " & _

"sheets, or workbook structure or windows." & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & _

"workbook structure or windows." & DBLSPACE & _

"Proceeding to unprotect sheets." & AUTHORS & VERSION

Const MSGTAKETIME As String = "After pressing OK button this " & _

"will take some time." & DBLSPACE & "Amount of time " & _

"depends on how many different passwords, the " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

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如何撤销excel工作表保护的方法

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66如何撤销excel工作表保护的方法

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

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, vbInformation, HEADER

End Sub

-----------------------------------------------------------------------------------------

复制到横线以上

6、关闭编辑窗口;

7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;

等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):

再点击确定。Excel的原始密码就被清除了!!

EXCEL如何撤销保护
篇五:撤销工作表保护

EXCEL工作表保护密码忘记 如何撤销保护 在做excel表格时我们有时候会给自己的工作表加密,一旦忘记密码就会很麻烦,下面我们就介绍一下如何绕过密码,直接撤销保护。 

 01 02 03 04 05 06 01

打开excel,点击菜单栏的“视图”,点击二级菜单里的“宏”,选择录制宏

 02

在弹出来的方框中输入宏的名称,点击确认。如何撤销excel工作表保护的方法

 03

重复第一步的步骤,不过这次点击“停止录制”。

 04

选择查看宏。

 05

编辑宏。

Excel表格密码保护的解除方法
篇六:撤销工作表保护

Excel表格密码保护的解除方法

表格受密码保护时,我们修改数据Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。这时候我们可以用VBA宏代码破解法来破解表格保护密码:第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”。再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker,点击“确定”退出;第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码:

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了

第四步:点击“撤消工作表保护”,然后输入密码即可解除锁定;

本文来源:http://www.myl5520.com/gerenjianli/26913.html

推荐内容