當前位置:首頁 » 辦公資訊 » 怎樣取消excel中被保護的表格

怎樣取消excel中被保護的表格

發布時間: 2022-07-04 17:43:50

excel表格被保護了,怎麼解鎖

能打開,不能復制的話
文件——另存為 找到txt格式的

然後再用excel打開這個txt文件

② 如何解除excel被保護的表格

您好,方法
1、首先打開Excel,打開自己需要的表格,可以看到這份表格已經被保護了。無法進行更改的操作。
2、此時我們無法進行某些操作,上方的很多選項都是灰色的,無法修改。
3、下面我們需要點擊上方工具欄中的「審閱」。
4、接著可以看到右側有「撤銷工作表保護」的選項,我們點擊一下。
5、最後輸入我們保護表格時設置的密碼即可解除保護。
6、這時再看上方工具欄里,「撤銷工作表保護」的選項已經沒有了,說明表格的保護情況已經解除。

③ 怎樣取消EXCEL中的宏保護

本文以win7系統Excel018為例進行演示,具體步驟如下所示。

1、啟動excel點擊工具欄中的開發者工具選項卡。

④ 如何解除excel表格的保護

EXCEL的保護一般有兩種,解除保護都需要保護時設置的密碼,下面分別簡要說明解除保護的方法:


一是文件保護,打開文件的時候需要輸入密碼,否則無法打開。在輸入正確密碼打開文件之後,選擇菜單文件、另存為,這時候有個選項,裡面可以取消密碼保護。如下圖:

⑤ Excel中 被鎖定的單元格如何解鎖

方法一:
1.首先,利用Excel快捷鍵"Ctrl + A"全選所以的單元格,然後,右鍵選擇「設置單元格格式」。
2.在彈出的「單元格格式」中選擇「保護」,取消「鎖定」前面的鉤去掉。
方法二:
1.打開文件。
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
' 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 'mmy 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
6.關閉編輯窗口。
7.工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鍾,再確定即可完成操作。

⑥ 工作表被保護如何解除

在使用excel表格時,偶爾會遇到別人發給自己被設置保護的工作表,自己無法編輯,那麼如何將excel保護工作表的保護解除,操作方法如下。

1、首先打開已經被設置保護的excel表格,可以發現編輯欄無法進行操作。

⑦ excel表格工作表受保護了如何取消

工作表受保護了的話 那你看上面那個是保護在裡面輸入那個密碼就可以取消了唄

⑧ EXCEL 如何對受保護的單元格去掉保護

1.在電腦找到設置了保護的EXCEL表格,點擊打開這份EXCEL表格。

⑨ Excel表格受保護怎麼取消

摘要 你好!打開Excel,打開被保護表格,此時無法進行某些操作,上方的很多選項都是灰色的,無法修改。點擊上方工具欄中的「審閱」。點擊右側有「撤銷工作表保護」的選項,點擊一下。輸入保護表格時設置的密碼即可解除保護了。請查看,謝謝!

⑩ 怎樣取消excel工作表的保護

一、如何保護工作表

開始之前,必須要來說一說對工作表是如何保護的。這也是最基礎的工作。

在實際工作過程中,我們創建的表格,或比較重要的數據都會對它進行加密處理,別人打開它一定要輸入密碼才能實現。或許還有部分童鞋對此還不太熟悉,下面來說一說。

1、單元格保護

在說明工作表保護之前,首先要明白對於單元格保護的相關道理。打開單元格保護設置的過程也很簡單。首先選中所有需要進行鎖定或隱藏的單元格區域,然後右鍵點擊滑鼠選擇設置單元格格式命令,再點擊保護標簽即可看到彈出對話框。

這里有兩個復選項,再簡單說明一下,鎖定就是鎖定單元格的意思,隱藏是對單元格中的公式進行隱藏不顯示的意思,根據截圖及下面的說明可知,這兩個功能的最終實現都是在設置了保護工作表之後才能生效。這里舉個例子,比如說當我們設置的函數不想被別人看到的時候,就可以進行設置完成。具體方法是選中帶有函數的單元格區域,設置單元格格式,在「隱藏」前面的復選框挑勾,再設置「工作表保護」,那麼在編輯欄中就不會顯示函數的內容。

2、打開保護工作表

想要進行工作表的保護,首先要知道如何設置,打開工作表就是第一步。打開的方法也是很多的,在平時工作中,我們通常採用以下兩種方法,第一種是點擊審閱選項卡下的保護功能組,然後就會看到保護工作表的功能按鈕,點擊就可以了。

熱點內容
馬路上汽車的噪音在多少分貝 發布:2023-08-31 22:08:23 瀏覽:1510
應孕棒多少錢一盒 發布:2023-08-31 22:08:21 瀏覽:1013
標准養老金一年能領多少錢 發布:2023-08-31 22:05:05 瀏覽:1311
湖北通城接網線多少錢一個月 發布:2023-08-31 21:59:51 瀏覽:1384
開隨車吊車多少錢一個月 發布:2023-08-31 21:55:06 瀏覽:1150
京東付尾款怎麼知道前多少名 發布:2023-08-31 21:52:58 瀏覽:1459
在學校租鋪面一個月要多少錢 發布:2023-08-31 21:52:09 瀏覽:1601
2寸有多少厘米 發布:2023-08-31 21:50:34 瀏覽:1230
知道電壓如何算一小時多少電 發布:2023-08-31 21:46:20 瀏覽:1215
金手鐲54號圈周長是多少厘米 發布:2023-08-31 21:44:28 瀏覽:1388