如何攤銷對工作薄的保護

Ⅰ excel中怎樣能使整個工作薄受到保護不被修改

試試：
改變工作簿窗口（縮小）後，執行「工具/保護/保護工作簿」命令，同時勾選「格式」和「窗口」，輸入密碼後「確定」。
特點：工作簿窗口被限制而達到保護的目的。

Ⅱ 如何對整個excel保護工作表

親愛的，我不知道你要的是不是這樣的效果，看一下效果圖：
如果是這樣的話，步驟就是：
點好後會讓你設置一個密碼的，設置好保存表格，重新打開就什麼都不能看了，只有密碼才能看哦！
能查看的話這個標簽當然也可以看得到了，不然他要怎麼看整個工作薄里的各個工作表呢？

Ⅲ excel怎麼把一整個工作簿都保護起來，許可權跟保護工作表是一樣的，不能更改。

循環將同一工作薄所有表格加密：
Sub Protect()
For j = 1 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(j).Protect "123"
Next j
End Sub
循環將同一工作薄所有表格解密：
Sub Protect()
For j = 1 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(j).Unprotect "123"
Next j
End Sub
操作方法如下：

1. 按鍵盤上的Alt+F11調出VBE界面

2. 選擇【插入】---【模塊】，插入一個模塊

3. 將第一段代碼粘貼到空白的位置

   

4. 點擊工具欄上綠色的運行按鈕即可

5. 如果要解密用下面的代碼

6. 其中的「123」是可以改的密碼

Ⅳ 在Excel中，對工作薄進行了保護後,是否就意味著工作表上的所有數據都被保護了

不是的，工作簿保護的效果是無法增減工作表、不允許調整工作表的順序等，工作表裡面並沒有保護。

Ⅳ 如何將excel 工作薄進行保護

你好，如果有上千個工作表，只能用VBA代碼批量設置了

'批量工作表保護
Sub unprotect()
Dim i, j As Integer
j = Worksheets.Count
For i = 1 To j
Worksheets(i).protect "123"
Next
End Sub

打工要設置的工作薄，按ALT+F11再選"插入"---"模塊"，所以上代碼復制進去，點運行就好了。
Worksheets(i).protect "123" 默認密碼是123，樓主可以根據自己需要把123改為你自己需要的密碼就好了， 把這句Worksheets(i).protect "123" 改為Worksheets(i).Unprotect "123" 就是解碼的。
祝好運了！

Ⅵ excel2007一張工作簿里有多張（100來張）工作表，如何對全部工作表進行保護，如何進行批量

簡單~

Private Sub CommandButton1_Click()

Dim a, b

a = Sheets.Count

For b = 1 To a

Sheets(b).Protect AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True

Next

End Sub

按一下那個小三角，或者按一下F5，就全部都保護了~

之後把代碼和那個按鈕都刪除了就成了

Ⅶ excel表中，一個工作薄有500多個工作表，如何一次性撤消工作表保護！

1、在進行編輯的excel地表的情況下中，那麼就出現提示了無法進行編輯excel。

Ⅷ excel中如何對工作簿設置保護

點擊菜單「工具」→「保護」→「保護工作簿…」，在打開的「保護工作簿」對話框中，有「結構」和「窗口」兩個復選項，下面還有一個「密碼（可選）」框，可以設置保護密碼。

Ⅸ EXCEL中想插入工作表，卻出現「工作薄有保護，不能更改」，該怎麼取消工作薄保護

第一步、首先，打開Excel二次，打開被保護的Excel表格。在主界面界面上方選擇「審閱」，點擊打開。

Ⅹ excel 如何撤銷工作薄保護，忘記密碼了

破解工作表保護密碼

去除Excel工作表保護密碼,很有用的方法

操作步驟：
1. 打開需要破解密碼的Excel；
2. 按Alt+F11進入VBA編輯界面；
3. 插入 -- 模塊(Mole)；
4. 在右邊Mole的空白編輯區域，復制粘貼下面所有內容
5. F5，運行該VBA命令；

---------------------(下面的內容在第四步復制進去)-------------------------

OptionExplicit
PublicSubAllInternalPasswords()
'.BobMcCormick
'
'ofworkbookstructure/
'
'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)
'Modified2003-Apr-04byJEM:Allmsgstoconstants,and
'eliminateoneExitSub(Version1.1.1)
'
ConstDBLSPACEAsString=vbNewLine&vbNewLine
ConstAUTHORSAsString=DBLSPACE&vbNewLine&_
""&_
"NormanHarkerandJEMcGimpsey"
ConstHEADERAsString=""
ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"
ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_
"tothemicrosoft.public.excel.programmingnewsgroup."
ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_
",somakesureyou:"&_
DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_
DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_
DBLSPACE&"Also,rememberthatthepasswordwas"&_
"putthereforareason.Don'tstuffupcrucialformulas"&_
"ordata."&DBLSPACE&"Accessanseofsomedata"&_
"maybeanoffense.Ifindoubt,don't."
ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_
"sheets,orworkbookstructureorwindows."&AUTHORS&VERSION
ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_
"workbookstructureorwindows."&DBLSPACE&_
"Proceedingtounprotectsheets."&AUTHORS&VERSION
ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_
"willtakesometime."&DBLSPACE&"Amountoftime"&_
",the"&_
"passwords,andyourcomputer'sspecification."&DBLSPACE&_
"Justbepatient!Makemeacoffee!"&AUTHORS&VERSION
ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_
"StructureorWindowsPasswordset."&DBLSPACE&_
"Thepasswordfoundwas:"&DBLSPACE&"$$"&DBLSPACE&_
""&_
"."&DBLSPACE&_
"."&AUTHORS&VERSION
ConstMSGPWORDFOUND2AsString="YouhadaWorksheet"&_
"passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_
DBLSPACE&"$$"&DBLSPACE&"Noteitdownforpotential"&_
""&_
"setthispassword."&DBLSPACE&"Nowtocheckandclear"&_
"otherpasswords."&AUTHORS&VERSION
ConstMSGONLYONEAsString="Onlystructure/windows"&_
"."&_
ALLCLEAR&AUTHORS&VERSION&REPBACK
Dimw1AsWorksheet,w2AsWorksheet
DimiAsInteger,jAsInteger,kAsInteger,lAsInteger
DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger
Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger
DimPWord1AsString
DimShTagAsBoolean,WinTagAsBoolean
Application.ScreenUpdating=False
WithActiveWorkbook
WinTag=.ProtectStructureOr.ProtectWindows
EndWith
ShTag=False
ForEachw1InWorksheets
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfNotShTagAndNotWinTagThen
MsgBoxMSGNOPWORDS1,vbInformation,HEADER
ExitSub
EndIf
MsgBoxMSGTAKETIME,vbInformation,HEADER
IfNotWinTagThen
MsgBoxMSGNOPWORDS2,vbInformation,HEADER
Else
OnErrorResumeNext
Do'mmydoloop
Fori=65To66:Forj=65To66:Fork=65To66
Forl=65To66:Form=65To66:Fori1=65To66
Fori2=65To66:Fori3=65To66:Fori4=65To66
Fori5=65To66:Fori6=65To66:Forn=32To126
WithActiveWorkbook
.UnprotectChr(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=FalseAnd_
.ProtectWindows=FalseThen
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)
MsgBoxApplication.Substitute(MSGPWORDFOUND1,_
"$$",PWord1),vbInformation,HEADER
ExitDo'Bypassallfor...nexts
EndIf
EndWith
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
LoopUntilTrue
OnErrorGoTo0
EndIf
IfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
ExitSub
EndIf
OnErrorResumeNext
ForEachw1InWorksheets
'AttemptclearancewithPWord1
w1.UnprotectPWord1
Nextw1
OnErrorGoTo0
ShTag=False
ForEachw1InWorksheets
'.
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfShTagThen
ForEachw1InWorksheets
Withw1
If.ProtectContentsThen
OnErrorResumeNext
Do'Dummydoloop
Fori=65To66:Forj=65To66:Fork=65To66
Forl=65To66:Form=65To66:Fori1=65To66
Fori2=65To66:Fori3=65To66:Fori4=65To66
Fori5=65To66:Fori6=65To66:Forn=32To126
.UnprotectChr(i)&Chr(j)&Chr(k)&_
Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_
Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
IfNot.ProtectContentsThen
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)
MsgBoxApplication.Substitute(MSGPWORDFOUND2,_
"$$",PWord1),vbInformation,HEADER
'
ForEachw2InWorksheets
w2.UnprotectPWord1
Nextw2
ExitDo'Bypassallfor...nexts
EndIf
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
LoopUntilTrue
OnErrorGoTo0
EndIf
EndWith
Nextw1
EndIf
MsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADER
EndSub