怎麼保護excel工作表以及取消保護

03版excel的設定方法為：工具——保護——保護工作表——設定——確定07版的設定方法為審閱——更改——保護工作薄——設定密碼——確定要取消的話，照著設定的辦法操作，把密碼設定為空即可，以excel2016為例，如果沒設定密碼，點選檔案/保護工作簿 點選取消保護，選擇不需要保護的工作表即可。如果有密碼，則需要輸入密碼。如果忘記密碼，這事咱們再私下討論，選單 評審（review）->解鎖保護（保護） 相同的按鈕如果有密碼，則需要鍵入密碼解鎖，原發布者:yangbin3151Excel工作表保護密碼清除www.51dongshi.com防採集。

Excel工作表是最常見辦公工具,那麼如何保護Excel工作表呢,如何取消保護呢?今天小編就和大家一起看看怎麼做,希望對大家有幫助

材料/工具

電腦

方法

首先我們開啟Excel

1、首先在excel表格中輸入一組資料並點選“審閱”選項卡中的“允許編輯區域”。2、然後在開啟的

然後點選"審閱"

1、在電腦上安裝好excel軟體，雙擊這個excel軟體的圖示開啟它。2、去下載一個被檔案保護了

接著點選"保護工作表"

第一步、首先，開啟Excel二次，開啟被保護的Excel表格。在主介面介面上方選擇“審閱”，點選開啟

然後在保護工作表單元打鉤

工具：excel20111、先開啟保護密碼的Excel工作表格，如圖所示，修改後綴名稱為.rar。

然後我們輸入密碼,

03版excel的設定方法為：工具——保護——保護工作表——設定——確定07版的設定方法為審

然後點選確定,工作表就被保護了

*篇一：如何撤銷Excel工作表保護　　EXCEL工作表編輯資料，設定了工作表保護後，不能對錶格

取消保護的話,就點選"撤銷工作表保護"

第一步，先找到一個帶有有工作表保護密碼的Excel工作表，然後把字尾名稱改為.rar。第二步，用

然後我們輸入密碼就好了

在excel中取消工作表的保護命令的方法：1.開啟excel，執行檢視—巨集—錄製新巨集—輸入巨集名如:

撤銷是不能撤銷的，只能通過破解密碼來實現，可以用修改後綴名稱zhidao的方法。工具：華碩電腦1、首先找到Excel表格，修改後綴名稱xlsx改為演示操作表格rar，如下圖所示2、然後用壓縮檔案開啟，然後開啟xl，如下圖所示3、然後把壓縮檔案裡面找到的sheet1．xml檔案，然後拖拽出來，然後要進行修改，如下圖所示4、然後sheet1.xml檔案開啟用記事本開啟，然後搜尋protection，把圖中的這一段程式碼版，全部刪除掉，如下圖所示。5、再把修改後的sheet1．xml檔案，選擇權拖拽到壓縮的工作蒲中，選擇替換掉就可以，如下圖所示。6、把檔名稱．rar重新更改．xlsx，然後再開啟工作表保護就撤銷了，如下圖所示。本回答被網友採納，原發布者:飛蓮無解666如何破解EXCEL工作表保護密碼忘記密碼怎麼辦1.新建一個EXCEL工作表，而後點選另存為，講表格儲存為啟用巨集的工作表2.一次點選開發工具---錄製7a64e78988e69d8331333433623763新巨集，在彈出的對話方塊內修改巨集名稱而後確定3.依次點選開發工具----停止錄製巨集，巨集錄製完成4.依次點選開發工具，---巨集----在彈出的對話方塊找到我們剛才錄製的巨集名稱而後進入VBA介面5.在VBA介面，全選裡面的程式碼，而後刪除，講裡面的程式碼全部刪除完6.程式碼複製到VBA編輯視窗內PublicSubAllInternalPasswords() 'Breaksworksheetandworkbookstructurepasswords.BobMcCormick 'probablyoriginatorofbasecodealgorithmmodifiedforcoverage 'ofworkbookstructure/windowspasswordsandformultiplepasswords ' 'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1) 'Modified2003-Apr-04byJEM:Allmsgstoconstants,and 'eliminateoneExitSub(Version1.1.1) 'RevealshashedpasswordsNOToriginalpasswords ConstDBLSPACEAsString=vbNewLine&vbNewLine ConstAUTHORSAsString=DBLSPACE&vbNewLine&_ "AdaptedfromBobMcCormickbasecodeby"&_ "NormanHarkerandJEMcGimpsey" ConstHEADERAsString="AllInternalPasswordsUserMessage" ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04" ConstREPBACKAsString=DBLS，按下面步驟操作，如果不會發郵件給我吧 [email protected]\開啟檔案 2\工具---巨集----錄製新巨集---輸入名字如:aa 3\停止錄製(這樣得到一個空巨集) 4\工具---巨集----巨集,選aa,點編e799bee5baa6e59b9ee7ad9431333262383635輯按鈕 5\刪除視窗中的所有字元(只有幾個),替換為下面的內容:(你複製吧) Option ExplicitPublic 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 ' 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 BooleanApplication.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 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 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, vbInformation, HEADER End Sub6\關閉編輯視窗 7\工具---巨集-----巨集,選AllInternalPasswords,執行,確定兩次,等2分鐘,再確定.OK,沒有密碼了!!本回答被提問者採納，原發布者:三一作文　　7a64e78988e69d8331333433626563*篇一：如何撤銷Excel工作表保護　　EXCEL工作表編輯資料，設定了工作表保護後，不能對錶格進行操作。如果沒有密碼，很簡單:工具-選項—工作表保護——撤消工作表保護就可以了。如果忘記密碼或者不知道密碼，執行如下操作：　　1、開啟檔案　　2、工具---巨集----錄製新巨集---輸入名字如:a　　3、停止錄製(這樣得到一個空巨集)　　4、工具---巨集----巨集,選a,點編輯按鈕　　5、刪除視窗中的所有字元(只有幾個),替換為下面的內容:(複製下來)　　OptionExplicit　　PublicSubAllInternalPasswords()　　Breaksworksheetandworkbookstructurepasswords.BobMcCormick　　probablyoriginatorofbasecodealgorithmmodifiedforcoverage　　ofworkbookstructure/windowspasswordsandformultiplepasswords　　　　NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)　　Modified2003-Apr-04byJEM:Allmsgstoconstants,and　　eliminateoneExitSub(Version1.1.1)　　RevealshashedpasswordsNOToriginalpasswords　　ConstDBLSPACEAsString=vbNewLinevbNewLine　　ConstAUTHORSAsString=DBLSPACEvbNewLine_　　"AdaptedfromBobMcCormickbasecodeby"_　　"NormanHarkerandJEMcGimpsey"　　ConstHEADERAsString="AllInternalPasswordsUserMessage"　　ConstVERSIONAsString=DBLSPACE"Version1.1.12003-Apr-04"　　ConstREPBACKAsString=DBLSPACE"Pleasereportfailure"_　　"tothemicrosoft.public.excel.progra，我有一種方法可以不知道密碼也可以.就是把內容複製到一個抄新的表格中就可以了,我就經常這樣做,因為別的公襲司給我們的價格表老是保護,我就複製到一百個新的檔案裡就能編輯了.這個方法只對度EXCEL有效,因為他雖然保護了不能修改但可以看到內容,可以複製.對WORD就不行了知.WORD有了密碼就看不到內容了.看不到內容不應該啊,EXCEL應該能看到內容啊,照樓主這麼道說一打檔案就讓輸密碼了.EXCEL沒有這功能啊本回答被提問者採納，我設了密碼，也是忘記了，打不開，誰能幫我呀？一開啟工作表就要輸密碼的那種，不一定要用到軟體，你只要把被保護的EXCEL工作表的內容複製到一個新建的EXCEL工作表當中，保護就去掉了。就是稍微麻煩一些，得重新排一下版。我的方法最原始、但也最有效，你試試？，我的的我的王文件 文件內容來自www.51dongshi.com請勿採集。