excl隐藏单元格内容及设置为只读Word格式文档下载.docx

excl隐藏单元格内容及设置为只读Word格式文档下载.docx

《excl隐藏单元格内容及设置为只读Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《excl隐藏单元格内容及设置为只读Word格式文档下载.docx（10页珍藏版）》请在冰豆网上搜索。

“Sheet4”，在属性窗口中把“Visible”项的值设置为“2-xlsheetveryHidden”（如图3），若没有属性窗口可按F4显示。

然后右击“VBAProject（XXXX.xls）”选择“VBAProject属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码，保存文档退出。

以后想展开VBAProject（XXXX.xls）时会弹出一个要求输入密码的对话框，没密码就别想查看或修改了。

用这方法隐藏的工作表，不能通过单击“格式/工作表/取消隐藏”取消隐藏，也不会影响其它工作表操作。

excel表格中怎样使个别单元格变成只读

Postedon2008-10-2811:

22啊黄阅读（815）评论（0） 

编辑收藏所属分类:

其它

那你可以将要使用到的单元格选定,然后选择菜单中的

第一步:

格式------储存格------在出现的窗口里,点击”保护”,在”锁定（L）”前面的方框不要打勾------确定.

第二步

工具------保护------保护工作表------输入密码------确定------再输入一次密码------确定,即可.

你之前没有选择的单元格就不可以更改了.

格式-单元格-保护 

被锁定的单元格在保护后不能编辑

编程实现就更灵活些VBE

PrivateSubWorksheet_SelectionChange（ByValTargetAsRange）

DimPass,s

IfTarget.Value<

>

"

"

Then

Pass=InputBox（"

请输入修改密码：

"

提示"

）

IfPass<

ah"

s=MsgBox（"

密码错误，不能修改"

vbOKOnly,"

警告"

IfTarget.Offset

（1）="

Target.Offset

（1）.Select

Else

Target.End（xlDown）.Offset

（1）.Select

EndIf

EndSub

使excel表格内容只读不能修改及破解

作者:

顾芗日期:

2009-9-238:

38:

00

1

推荐

只读不能修改方法:

在EXCEL里，选择工具——选项——安全性——分别设置打开权限密码和修改权限密码，2个密码要不一样，然后确定，会弹出对话框让你重新输入密码，第一个框输入你设置打开权限密码，第二个框输入你修改权限密码，然后保存文件。

然后你把打开权限密码给别人就OK了，别人打开就是只读，不能修改。

要修改需要你修改权限密码。

补充一下：

如果不想只读打开需要密码，可以不设置打开权限密码，只设置修改权限密码。

破解Excel保护方法

Excel对数据有很强的保护功能，可以对整个或部分数据隐藏、禁止复制和修改等，但有时候，由于忘记了密码，或者记不起以前自己到底做了哪些改动，这种保护反而会为难自己。

针对这种情况，我总结了几种解除保护的方法，供大家参考，并希望能够以此抛砖引玉。

一、解除单元格的保护

1．取消隐藏的行或列

被隐藏的行或列有一个明显的标志，那就是在行标题栏或列标题栏上有一条粗的黑线。

取消隐藏的行或列的方法有两种，一种是直接拖动隐藏处的行或列标题使之变宽，也可以选中包含隐藏区域的行或列，通过“格式”菜单中的行列项目输入非0数值调整行高或列宽，使数据有足够的空间显示出来；

另一种方法是选中包含隐藏内容的行或列区域，再通过“格式”菜单行列选项中的“取消隐藏”命令来恢复全部行列区域。

2．取消隐藏单元格或区域中的数据

为了不让他人直接看到单元格的内容，一种简单的方法就是把数据颜色设置成与背景色相同，这时我们只要拖选整个工作表即可让数据原形毕露；

如果用图片、矩形框之类的非字符内容将重要数据遮盖，需要先用拖选方式找出工作表中的图片位置，再将其移开，激活被遮住的单元格，一般在公式编辑栏中就会显示其内容。

若在单元格格式中使用了三个分号或空格之类的自定义格式，一般只要选中此单元格，在公式编辑栏中即可显示其内容，要想取消这种隐藏，可重新设置此单元格格式，在“数字”选项卡中选择“常规”即可。

如果选中怀疑有数据的单元格后并没有在公式编辑栏中显示数据，不一定它就真的没有数据，我们只要看一下单元格的格式能否设置，若不能的话说明工作表被保护，如果不用密码可以取消工作表保护的话，再在单元格格式设置中先查看数据格式是否为自定义，然后查看“保护”选项卡，看看是否已勾选了“隐藏”项，将这些都取消就可以知道单元格是否真的没有内容。

当然，如果在撤消工作表保护时需要密码的话，我们将无可奈何，除非用户设置的密码很简单，那我就告诉你一个秘密，当密码的形式是“*123*”或“*abc*”时，我们可以分别用“*333*”或“*ccc*”来破解，星号表示任意字符，到底是什么只有靠猜了，这种方法对工作表和工作簿保护的密码也适应。

3．取消单元格数据的只读属性

有时单元格中的数据虽然可见，但是我们既不能修改，也不能在当前工作表中复制，对于这种保护措施，取消的方法跟上面的第2点基本相同，只要取消单元格格式设置对话框中“保护”选项卡中的“锁定”一项即可。

当然还需要通过密码取消工作表的保护才行。

　　如果我们无法通过密码取消怎么办？

你可以将其复制粘贴到其他工作表中，再在新的工作表中进行修改。

二、解除工作表的保护

查看是否有被隐藏的工作表，若菜单中有“格式→工作表→取消隐藏”项，则可通过此项取消隐藏的工作表。

如果在菜单中也没有有效的“取消隐藏”项，仍然可能有被隐藏的工作表，这时我们可以任选一工作表右击，在弹出菜单中选择“查看代码”，然后在左窗格中的“MicrosoftExcel对象”列表中选择被隐藏的工作表，将其“Visible”属性值取“-1”退出即可，如图所示。

如果工作表被密码保护，则可复制当前表全部内容到另一张未保护的工作表中编辑。

三、VBA宏代码破解法：

第一步：

打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出（图2）；

　　再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：

PasswordBreaker（图3），点击“确定”退出；

　　第二步：

再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：

　　SubPasswordBreaker（）

　　DimiAsInteger,jAsInteger,kAsInteger

　　DimlAsInteger,mAsInteger,nAsInteger

　　Dimi1AsInteger,i2AsInteger,i3AsInteger

　　Dimi4AsInteger,i5AsInteger,i6AsInteger

　　OnErrorResumeNext

　　Fori=65To66:

Forj=65To66:

Fork=65To66

　　Forl=65To66:

Form=65To66:

Fori1=65To66

　　Fori2=65To66:

Fori3=65To66:

Fori4=65To66

　　Fori5=65To66:

Fori6=65To66:

Forn=32To126

　　ActiveSheet.UnprotectChr（i）&

Chr（j）&

Chr（k）&

_

　　Chr（l）&

Chr（m）&

Chr（i1）&

Chr（i2）&

Chr（i3）&

　　Chr（i4）&

Chr（i5）&

Chr（i6）&

Chr（n）

　　IfActiveSheet.ProtectContents=FalseThen

　　MsgBox"

Oneusablepasswordis"

&

Chr（i）&

　　Chr（k）&

Chr（l）&

　　Chr（i3）&

Chr（i4）&

　　ActiveWorkbook.Sheets

（1）.Select

　　Range（"

a1"

）.FormulaR1C1=Chr（i）&

　　ExitSub

　　EndIf

　　Next:

Next:

Next

　　EndSub

　　第三步：

再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了（图4）。

　　第四步：

切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。

另一个能解除Excel工作表保护的VBA脚本

OptionExplicit

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=DBLSPACE&

Pleasereportfailure"

tothemicrosoft.public.excel.programmingnewsgroup."

ConstALLCLEARAsString=DBLSPACE&

Theworkbookshould"

nowbefreeofallpasswordprotection,somakesureyou:

DBLSPACE&

SAVEITNOW!

DBLSPACE&

andalso"

BACKUP!

BACKUP!

!

Also,rememberthatthepasswordwas"

putthereforareason.Don'

tstuffupcrucialformulas"

ordata."

Accessanduseofsomedata"

maybeanoffense.Ifindoubt,don'

t."

ConstMSGNOPWORDS1AsString="

Therewerenopasswordson"

sheets,orworkbookstructureorwindows."

AUTHORS&

VERSION

ConstMSGNOPWORDS2AsString="

Therewasnoprotectionto"

workbookstructureorwindows."

Proceedingtounprotectsheets."

ConstMSGTAKETIMEAsString="

AfterpressingOKbuttonthis"

willtakesometime."

Amountoftime"

dependsonhowmanydifferentpasswords,the"

passwords,andyourcomputer'

sspecification."

Justbepatient!

Makemeacoffee!

ConstMSGPWORDFOUND1AsString="

YouhadaWorksheet"

StructureorWindowsPasswordset."

Thepasswordfoundwas:

$$"

Noteitdownforpotentialfutureuseinotherworkbooksby"

thesamepersonwhosetthispassword."

Nowtocheckandclearotherpasswords."

ConstMSGPWORDFOUND2AsString="

passwordset."

Noteitdownforpotential"

futureuseinotherworkbooksbysamepersonwho"

setthispassword."

Nowtocheckandclear"

otherpasswords."

ConstMSGONLYONEAsString="

Onlystructure/windows"

protectedwiththepasswordthatwasjustfound."

ALLCLEAR&

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'

dummydoloop

Fori=65To66:

Fork=65To66

Forl=65To66:

Fori1=65To66

Fori2=65To66:

Fori4=65To66

Fori5=65To66:

Forn=32To126

.UnprotectChr（i）&

Chr（l）&

Chr（i3）&

Chr（n）

If.ProtectStructure=FalseAnd_

.ProtectWindows=FalseThen

PWord1=Chr（i）&

Chr（m）&

Chr（i4）&

MsgBoxApplication.Substitute（MSGPWORDFOUND1,_

PWord1）,vbInformation,HEADER

ExitDo'

Bypassallfor...nexts

Next:

Next

LoopUntilTrue

OnErrorGoTo0

IfWinTagAndNotShTagThen

MsgBoxMSGONLYONE,vbInformation,HEADER

AttemptclearancewithPWord1

w1.UnprotectPWord1

ForEachw1InW