excel07只读密码,电子表格excel设置密码只读

1. excel设置密码只读

我们的生活和工作中常常会有一些Excel文档中的数据需要保密，这时我们可以为Excel表格数据文档设置只读密码或者修改密码。下面我们先来看看在Excel2007中怎样为文档设置密码。在Excel2007中点击左上角的按钮，在弹出菜单中选择“另存为”。

2. excel设置只读权限密码

第一种方法，直接右键文件属性，把属性改为只读

　　这种方法对误删有帮助，但是如果是你同学刻意修改你的文件的话，就没办法了，因为他完全可以将文件的只读属性改为可读可写。

　　第二种方法，设置密码，在保存文件时，点击上方的工具——常规选项。

　　然后有个打开权限密码和修改权限密码，设置上就可以了，如果他想修改，那必须输入密码。

　　第三种方法，直接在编辑excel文件时设置保护，点击工具栏——保护——保护工作表等，根据提示设置即可。

　　第四方法 锁定单元格

　　把不需要保护的的单元格选定，单击右键-设置单元格，将保护标签中的锁定复选框清除，然后对该工作表设置保护。

　　此时，锁定的单元格是只读的，刚才已被清除锁定复选框的单元则可以正常输入。如果你连某些单元的内容也不想别人看到，在确定这些单元保护标签中的锁定复选框是选中的情况下，再选择隐藏即可，这样将不显示这些单元其中的内容。

　　但是你必须对工作表或工作簿实施保护后，你的保护和隐藏才有效。要保护工作表，可按以下选择：[工具]→[保护]→[保护工作表]→选择密码，重复输入相同密码，这样，以后要进入这个工作表，只要输入密码即可。

3. Excel密码打开后只读

选中只读的表格，不用打开，右击--【属性】 会看到属性下面 有“只读”选项，前面的对勾去掉，点击确定就可以，然后重新打开文档，就可以在里面进行编辑和修改了

4. excel07如何设置密码

1打开要加密的excel表格，点击菜单栏的“文件”按钮，在弹出的页面选择“信息”按钮。

2点击页面右侧的“保护工作簿”按钮，在弹出的下拉菜单中选择“用密码进行加密”。

3在弹出的“加密文档”对话框中，输入要设置的密码，下次打开这个excel表格就会提示需要输入密码。

4如果要取消密码，和设置密码操作类似，点击“用密码进行加密”，将原先设置的密码删除，点击确定就可以了。

5. vba只读打开有密码的excel

破解vbaproject密码

1．打开带密码的excel,视图---宏----录制宏---（保存到）“个人宏工作簿”---点“确认”。

2．查看宏----点“编辑”-----进入“microsofevisualbasic-personal.xlsb”页面；

3．点“模块1“，弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西：

publicsub工作表保护密码破解()

constdblspaceasstring=vbnewline&vbnewline

constauthorsasstring=dblspace&vbnewline&_

"作者:mccormickjemcgimpsey"

constheaderasstring="工作表保护密码破解"

constversionasstring=dblspace&"版本version1.1.1"

constrepbackasstring=dblspace&""

constzhengliasstring=dblspace&"hfhzi3—戊冥整理"

constallclearasstring=dblspace&"该工作簿中的工作表密码保护已全部解除!!"&dblspace&"请记得另保存"_

&dblspace&"注意：不要用在不当地方，要尊重他人的劳动成果！"

constmsgnopwords1asstring="该文件工作表中没有加密"

constmsgnopwords2asstring="该文件工作表中没有加密2"

constmsgtaketimeasstring="解密需花费一定时间,请耐心等候!"&dblspace&"按确定开始破解!"

constmsgpwordfound1asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_

"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"

constmsgpwordfound2asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_

"如果该文件工作表有不同密码,将搜索下一组密码并解除"

constmsgonlyoneasstring="确保为唯一的?"

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

else

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

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

'checksforallclearshtagtriggeredto1ifnot.

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

'leveragefindingpwordbytryingonothersheets

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&zhengli,vbinformation,header

endsub

4．点保存，然后关闭“book1”

5．点运行即可。

6. excel2013设置密码只读

1、打开excel工作表，如图所示。

2、点击工具栏中的“审阅”，如图所示。

3、点击右上方的“保护工作表”，如图所示。

4、界面会出现一个小窗口，在这个小窗口中设置打开工作表的用户所能进行操作的权限，一般只用选择前两个就行了，然后在上方输入取消所用的密码，最后点击下方的确定。

5、按照要求重新输入密码并点击确定，如图所示。

6、完成设置之后即可生效，这时我们再对表格进行未被授权的操作将出现如图所示的操作提示。

扩展资料：

取消只读模式的步骤：

1、在之前设置表格保护的位置点击“撤销工作表保护”，如图所示。

2、输入我们之前设置的密码，如图所示。

3、当上方的工具栏恢复原样的时候我们就又可以进行对应操作了。

7. excel设置只读和输入密码

   把不需要保护的的单元格选定，单击右键-设置单元格，将保护标签中的锁定复选框清除，然后对该工作表设置保护。

      此时，锁定的单元格是只读的，刚才已被清除锁定复选框的单元则可以正常输入。如果你连某些单元的内容也不想别人看到，在确定这些单元保护标签中的锁定复选框是选中的情况下，再选择隐藏即可，这样将不显示这些单元其中的内容。

      但是你必须对工作表或工作簿实施保护后，你的保护和隐藏才有效。要保护工作表，可按以下选择：[工具]→[保护]→[保护工作表]→选择密码，重复输入相同密码，这样，以后要进入这个工作表，只要输入密码即可。