搜档网
当前位置:搜档网 › excel设置只读和excel取消只读的操作方法

excel设置只读和excel取消只读的操作方法

excel设置只读和excel取消只读的操作方法
excel设置只读和excel取消只读的操作方法

excel设置只读和excel取消只读的操作方法

第一,excel设置只读方式的方法

在excel中,我们试图保护工作簿,可以将excel设置只读来保护文档。具体设置方法如下:

执行“文件——另存为”,弹出“另存为”对话框,单击左下角的“工具”,选择“常规选项”,勾选“建议只读”,确定。

Excel设置只读方式之后,当我们再次打开文件,会出现如下图的提示框:除非您需要保持对“某文件”的更改,否则应以只读方式打开。是否已只读方式打开?

单击“是”,那么打开文件之后所做的修改只能另存为。单击“否”,打开文件之后编辑可以保存。

第二,excel取消只读设置

当我们将文档设置只读方式之后,如果需要excel取消只读,可以这样操作:执行"文件"--"另存为",弹出另存为窗口.点击窗口上面的"工具",在弹出的下拉菜单中选择"常规选项",不勾选“建议只读”,确定,然后覆盖掉原文件即可。

关于excel设置只读和excel取消只读知识点就介绍这些,希望对有疑惑的朋友有所帮助。

强力破解EXCEL工作表保护密码

强力破解EXCEL工作表保护 在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?有时您从网上下载的Excel格式的小程序,您想修改,但是作者加了工作表保护密码,怎么办?您只要按照以下步骤操作,Excel工作表保护密码瞬间即破! 1、打开您需要破解保护密码的Excel文件; 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 " &

如何破解EXCEL工作表保护密码忘记密码怎么办

如何破解EXCEL工作表保护密码忘记密码怎么办 1.新建一个EXCEL工作表,而后点击另存为,讲表格保存为启用宏的工作表 * ■乐 碍乐雄迥 -* >计■尙 二0Q) .... ㈱ 亍总HI “ ■ I i ■ * \ Jfcft禺呵第證Mkrp^pft Qffiy fxeel JDQ7 工作褰x I gm [EHMI呦 怔■: Ad>51iAk±VAt4f t?nfl; 2. 一次点击开发工具---录制新宏,在弹出的对话框内修改宏名称而后确定 ft 真面布局公式敖掠审同视冒开裁工員 D F 254 3.依次点击开发工具停止录制宏,宏录制完成

| J fFik^j| 匮独 画Mffi植近三t 陥比疙上窸甜 空釦模式劑执行龙话框 代再 4.依次点击开发工具,---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入 VBA界面 处8屯简开林工貝 能t ■BS| 斫厨丁亓的二作輝 说閉 5.在VBA界面,全选里面的代码,而后删除,讲里面的代码全部删除完

Mkroioft visual - Microsoft Office Excel 200?工荷txlsx 文件⑥锚也迺世)磁?惜式型谒试曲迳行逊Zft? 尹碗詠笛莆口呦 [

破解EXCEL工作表保护密码的简单方法

破解EXCEL工作表保护密码的简单方法 你是否给excel文件设置了保护工作表密码,现在要撤消工作表保护,但密码却忘了,自己把锁在了门外,真尴尬呀!怎么办?下面的方法将轻松解决: 本人亲测,完全可以成功,但是本方法只用于解决自己的文件忘记密码,请勿进行违法行为,一切后果本人不负责任 1.打开你的受保护的文件 2.工具---宏----录制新宏---输入名字如:aa 3.停止录制(这样得到一个空宏) 4.工具---宏----宏,选aa,点编辑按钮 5.删除窗口中的所有字符,替换为下面的内容:(复制吧) 6.关闭编辑窗口 7.工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!! 内容如下: 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

Excel工作表保护密码忘记之解决办法

工作表保护密码破解(图解)1、新建一个EXCEL文件“BOOK1”, 在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏: 2、在Visual Basic工具栏中,点击“录制”按钮, 弹出“录制新宏”对话框,选择“个人宏工作簿”:

3、选择“个人宏工作簿”后按确定, 弹出如下“暂停”按钮,点击停止: 4、在Visual Basic工具栏中,点击“编辑”按钮: 5、点击“编辑”按钮后,弹出如下图的编辑界面: 找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)” 双击模块1-将右边代码内容清空

6、复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”

7、运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮

8、点击“运行”按钮后,弹出“宏”对话框, 点击运行“PERSONAL.XLS!工作保护密码破解”这个宏9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后, 如下图示意就可以解除工作表的密码保护了 (这个图,如果工作表中有多组不同密码,每解开一组,就会提示一次,也就说可能会出现几次)

工作表保护密码破解(代码) =========请复制以下内容============= Public Sub 工作表保护密码破解() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "作者:McCormick JE McGimpsey " Const HEADER As String = "工作表保护密码破解" Const VERSION As String = DBLSPACE & "版本Version 1.1.1" Const REPBACK As String = DBLSPACE & "" Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥整理" Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _ & DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!" Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2" Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!" Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ "如果该文件工作表有不同密码,将搜索下一组密码并修改清除" Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ "如果该文件工作表有不同密码,将搜索下一组密码并解除" Const MSGONLYONE As String = "确保为唯一的?" 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

终于找到excel密码保护破解的方法了,和大家共享一下

Office Password Remover 是一款可以瞬间破解Word、Excel和Access 文档密码的工具,一般情况下解密过程不超过5秒,而且操作简单,无需设置。但是使用本软件需要连接到互联网,因为要向软件服务器发送少量的数据并解密,不过本软件不会泄露任何个人隐私,请放心使用。 在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?有时您从网上下载的Excel格式的小程序,您想修改,但是作者加了工作表保护密码,怎么办?您只要按照以下步骤操作,Excel工作表保护密码瞬间即破! 1、打开您需要破解保护密码的Excel文件; 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."

破解excel工作保护表密码的方式

在Excel这一单元的教学中,我们经常使用Excel的工作表保护功能,将工作表用密码保护起来,以防学生操作时进行修改,但是这样一来有可能会无法进行一些操作(如输入公式等),时间久了保护的密码也有可能忘记了,这该怎么办呢?只要按照以下步骤操作,Excel工作表保护密码瞬间即破! 1、打开您需要破解保护密码的Excel文件。 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 & _

【excel表格破解工具怎么用】 excel2010破解工具

【excel表格破解工具怎么用】excel2010破解工具 不少用户为保护Office文档的内容,都会加上密码,使用的时候挺麻烦的;又或者是你自己不小心把excel2007密码忘记了,搞得最后自己也用不了文档,下面让小编为你带来破解excel2007密码软件,希望看完本教程的朋友都能学会并运用起来。 破解excel2007密码软件使用技巧 Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件! Office Password Unlocker Office Password Unlocker支持Office 97到2007系列所有版本的MicrosoftWord、Excel、Access和PowerPoint。 提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。 提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。 2007版excel表格密码破解的方法 点击下方的连接,下载软件,软件不是很大,直接下载下来就可以了,下载下来是一个压缩包,解压该压缩包。 打开压缩包解压出来的文件夹,第二个文件就是我们的密码破解工具,双击打开工具。

浏览,找到我们要破解的文件,点击确定,破解就开始啦。 点击移除密码。 弹出对话框,点击确定,当然,电脑是要能联网的,相信你能看到这篇经验,电脑应该也是能联网的。 解密时间要看密码复杂程度,不过应该没有太变态的密码。 当当当当,成功破解密码,并且生成了一个新的没有密码的文件 感谢您的阅读!

Excel表格密码保护的解除方法

Excel表格密码保护的解除方法 表格受密码保护时,我们修改数据Excel弹出“您试图更改的单元格或图表受保护,因而是只读的。若要修改受保护单元格或图表,请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。这时候我们可以用VBA宏代码破解法来破解表格保护密码:第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”。再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker,点击“确定”退出;第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码: Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.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 ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub 第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了 第四步:点击“撤消工作表保护”,然后输入密码即可解除锁定;

如何破解EXCEL表格的密码保护完整版

如何破解E X C E L表格 的密码保护 集团标准化办公室:[VV986T-J682P28-JP266L8-68PNN]

如何破解EXCEL表格的密码保护 我们常常会在EXCEL输入密码以保护部分表格不被他人修改,但往往会忘记密码,现提供一解决方法,供大家参考! 1.按Alt+F11,打开VBA编辑器。 2.在“工程”窗口中选择要取消保护的工作表名称,单击菜单“插入→模块”。 3.在右侧的代码窗口中输入下列代码: SubRemove_WorkSheet_Password()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInt eger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsI ntegerOnErrorResumeNextIfActiveSheet.ProtectContents=FalseThenMsgBox"该工作表没有保护密码! "ExitSubEndIfFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66F ori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveShee t.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i 5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"已经解除了工作表保护!"ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub4.关闭VBA编辑器,回到工作表中,按Alt+F8,打开“宏”对话框,选择 “Remove_WorkSheet_Password”,并单击“执行”按钮。稍等片刻工作表保护将被取消。

excel加密文档破解

方法: 1\打开文件 2\工具---宏----录制新宏---输入名字如:aa 3\停止录制(这样得到一个空宏) 4\工具---宏----宏,选aa,点编辑按钮 5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧) 代码如下: 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 " & _

相关主题