excel表格怎樣設置禁止編輯圖文教程

excel表格怎樣設置禁止編輯圖文教程

如何使excel表格內容只讀不能修改及破解，具體該怎么去進行操作的呢?對于剛從其它版本轉型過來的應該就不會太懂吧，沒關系，接下來小編就教大家在Excel2010表格設置不可修改的方法。

Excel2010表格設置不可修改的方法

只讀不能修改方法:

在EXCEL里，選擇工具——選項——安全性——分別設置打開權限密碼和修改權限密碼，2個密碼要不一樣，然后確定，會彈出對話框讓你重新輸入密 碼，第一個框輸入你設置打開權限密碼，第二個框輸入你修改權限密碼，然后保存文件。然后你把打開權限密碼給別人就OK了，別人打開就是只讀，不能修改。要 修改需要你修改權限密碼。

補充一下：如果不想只讀打開需要密碼，可以不設置打開權限密碼，只設置修改權限密碼。

破解Excel保護方法

Excel對數據有很強的保護功能，可以對整個或部分數據隱藏、禁止復制和修改等，但有時候，由于忘記了密碼，或者記不起以前自己到底做了哪些改動，這種保護反而會為難自己。針對這種情況，我總結了幾種解除保護的方法，供大家參考，并希望能夠以此拋磚引玉。

一、解除單元格的保護

1.取消隱藏的行或列

被隱藏的行或列有一個明顯的標志，那就是在行標題欄或列標題欄上有一條粗的黑線。取消隱藏的行或列的方法有兩種，一種是直接拖動隱藏處的行或列標題使之變 寬，也可以選中包含隱藏區域的行或列，通過“格式”菜單中的行列項目輸入非0數值調整行高或列寬，使數據有足夠的空間顯示出來;另一種方法是選中包含隱藏 內容的行或列區域，再通過“格式”菜單行列選項中的“取消隱藏”命令來恢復全部行列區域。

2.取消隱藏單元格或區域中的數據

為了不讓他人直接看到單元格的內容，一種簡單的方法就是把數據顏色設置成與背景色相同，這時我們只要拖選整個工作表即可讓數據原形畢露;如果用圖片、矩形 框之類的非字符內容將重要數據遮蓋，需要先用拖選方式找出工作表中的圖片位置，再將其移開，激活被遮住的單元格，一般在公式編輯欄中就會顯示其內容。

若在單元格格式中使用了三個分號或空格之類的自定義格式，一般只要選中此單元格，在公式編輯欄中即可顯示其內容，要想取消這種隱藏，可重新設置此單元格格式，在“數字”選項卡中選擇“常規”即可。

如果選中懷疑有數據的單元格后并沒有在公式編輯欄中顯示數據，不一定它就真的沒有數據，我們只要看一下單元格的格式能否設置，若不能的話說明工作表被保 護，如果不用密碼可以取消工作表保護的話，再在單元格格式設置中先查看數據格式是否為自定義，然后查看“保護”選項卡，看看是否已勾選了“隱藏”項，將這 些都取消就可以知道單元格是否真的沒有內容。當然，如果在撤消工作表保護時需要密碼的話，我們將無可奈何，除非用戶設置的密碼很簡單，那我就告訴你一個秘 密，當密碼的形式是“*123*”或“*abc*”時，我們可以分別用“*333*”或“*ccc*”來破解，星號表示任意字符，到底是什么只有靠猜了， 這種方法對工作表和工作簿保護的密碼也適應。

3.取消單元格數據的只讀屬性

有時單元格中的數據雖然可見，但是我們既不能修改，也不能在當前工作表中復制，對于這種保護措施，取消的方法跟上面的第2點基本相同，只要取消單元格格式 設置對話框中“保護”選項卡中的“鎖定”一項即可。當然還需要通過密碼取消工作表的保護才行。 　　如果我們無法通過密碼取消怎么辦?你可以將其復制粘貼到其他工作表中，再在新的工作表中進行修改。

二、解除工作表的保護

查看是否有被隱藏的工作表，若菜單中有“格式→工作表→取消隱藏”項，則可通過此項取消隱藏的工作表。

如果在菜單中也沒有有效的“取消隱藏”項，仍然可能有被隱藏的工作表，這時我們可以任選一工作表右擊，在彈出菜單中選擇“查看代碼”，然后在左窗格中的 “Microsoft Excel 對象”列表中選擇被隱藏的工作表，將其“Visible”屬性值取“-1”退出即可，如圖所示。

如果工作表被密碼保護，則可復制當前表全部內容到另一張未保護的工作表中編輯。

三、VBA宏代碼破解法：

第一步：打開該文件，先解除默認的“宏禁用”狀態，方法是點擊工具欄下的“選項”狀態按鈕，打開“Microsoft Office安全選項”窗口，選擇其中的“啟用此內容”，“確定”退出(圖2);

再切換到“視圖”選項卡，點擊“宏”→“錄制宏”，出現“錄制新宏”窗口，在“宏名”定義一個名稱為：PasswordBreaker(圖3)，點擊“確定”退出;

第二步：再點擊“宏”→“查看宏”，選擇“宏名”下的“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”并點擊“執行”，密碼就現形了(圖4)。

第四步：切換“審閱”選項卡，點擊“撤消工作表保護”，然后輸入密碼即可解除鎖定。

另一個能解除Excel工作表保護的VBA腳本

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

' 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

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 Sub

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

把上面的代碼保存為一個宏，運行，點兩次確定，等到它運行結束，工作表密密碼就解除了。

★如果出現提示“工程不可查看”不能錄制新宏，可以先使用“VBA工程加鎖解鎖器”來解除其“工程不可查看”后再用上面的方法找出保護密碼。

當然了，“VBA工程加鎖解鎖器”顧名思義，這是一個既可以解除Excel保護密碼，又可以為Excel加保護密碼的軟件，實為一個優秀的Excel輔助工具。

-：http://pickup.mofile.com/9306322777229726

四、解除工作簿的保護

如果工作簿被密碼保護不能打開，我們可以也使用一些專用的破解軟件進行破解

Intelore Excel Password Recovery V1.0c

-：http://pickup.mofile.com/6508444219536677

Passware Kit V7.1.1411 漢化版.rar

- http://pickup.mofile.com/1349573336951801

如果只能以只讀方式打開，我們打開后另存為一個不設密碼的副本，即可解除只讀限制。

有時雖然工作簿在打開時沒有任何密碼，但如果我們不能對工作表進行復制、移動和插入等操作，那是保護了工作簿，可以通過依次選擇“工具→保護→撤消工作簿 保護”菜單命令來解除，但如果有密碼的話，能夠猜出來更好，否則只有新建一工作簿，將被保護的工作表內容用拖選的方法復制到新的工作簿中進行編輯。

相信有了上面這些方法，Excel中應該沒有多少東西能夠瞞過你的火眼金睛，也沒有多少內容讓你不能左右了。

猜你感興趣：

1.Excel中禁止別人修改表格的設置方法

2.Wps excel怎樣設置限制編輯教程

3.Excel2010中進行表格保護不能編輯的操作方法

4.Excel2013怎么設置不可輸入指定的內容

5.excel2013如何設置允許編輯區域

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。