如何摊销对工作薄的保护

Ⅰ 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