你猜我不告诉你
有些WORD文档为何禁止复制？该怎样破解？
首先打开需要破译的文档，如图所示（这里以excel2013为例，word和excel设置都是一样的就不用一 一列举了），点击“视图”，选择右边的“宏” 点击宏后，选择“录制宏”，如图所示 弹出录制宏对话框，修改宏的名字，点击确定 再次点击宏，选择“查看宏”，如图所示 然后在弹出的宏对话框中点击“编辑”，如图所示 在编辑中将所有的字符删除，然后添加如下代码 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = ＂There was no protection to ＂ & _＂workbook structure or windows.＂ & DBLSPACE & _＂Proceeding to unprotect sheets.＂ & AUTHORS & VERSIONConst 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 & VERSIONConst MSGPWORDFOUND1 As String = ＂You had a Worksheet ＂ & _＂Structure or Windows Password set.＂ & DBLSPACE & _＂The password found was: ＂ & DBLSPACE & ＂$$＂ & DBLSPACE & _＂Note it down for potential future use in other workbooks by ＂ & _＂the same person who set this password.＂ & DBLSPACE & _＂Now to check and clear other passwords.＂ & AUTHORS & VERSIONConst MSGPWORDFOUND2 As String = ＂You had a Worksheet ＂ & _＂password set.＂ & DBLSPACE & ＂The password found was: ＂ & _DBLSPACE & ＂$$＂ & DBLSPACE & ＂Note it down for potential ＂ & _＂future use in other workbooks by same person who ＂ & _＂set this password.＂ & DBLSPACE & ＂Now to check and clear ＂ & _＂other passwords.＂ & AUTHORS & VERSIONConst MSGONLYONE As String = ＂Only structure / windows ＂ & _＂protected with the password that was just found.＂ & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & ...
求microsoft office2013破解版
支持所有电脑\笔记本和全部WIN系统的OFFICE软件，圆满解决问题：包含word、excel、powerpoint、access、pdfOffice2003经典版 软件及教程： http://biso.cn/soft/401.htmOffice2007完美版 软件及教程：http://biso.cn/soft/385.htmOffice2015通用版 软件及教程：http://biso.cn/soft/office_v.htmOffice2016标准版 软件及教程：http://biso.cn/soft/449.htm按提示安装完成即可永久使用
急求 microsoft office2013破解版压缩包
下载Microsoft office 2013安装包，并解压，在里面找setup.exe，以管理员身份运行勾选我接受此协议的条款，继续在选择所需的安装 ，可以选择立即安装，也可以选择自定义，为了省事可以选择立即安装，在这里选择自定义在安装选项中，选择自己需要的功能安装，不需要的功能，在单击该功能会弹出下拉菜单可以选中不可用，文件位置，默认，C盘点立即安装 ，等待一会儿，安装就完成打开Microsoft word 2013，在文件——账户 有需要激活的信息
用word2013自动生成的目录,但是目录没编号,怎么破？？<b
软件介绍：word2013是为帮助您创建专业质量文档而设计的文字处理工具，是office2013的组件之一。
其主要作用是文字处理、排版、制作报纸、书籍、各类文件等，作用非常广泛，功能非常强大。
是我们平时办公中不可缺少的办公软件之一。
所需工具：点击下载 word2013重要提示一、解压文件后请用“右键管理员身份运行”＂！）安装.cmd＂文件。
二、第二次打开文件出现闪退情况后，请将Access 、Excel、Ppt、Word的主程序分别右键“兼容性疑难解答”，选“疑难解答程序”，勾选“该程序需要附加权限”保存即可！word2013怎么自动生成目录1、在插入目录之前，首先需要设置各级标题的样式，在“开始”选项卡界面的右边有样式设置选项，如下图所示。
2、选中一级标题，点击样式里的“标题1”，依次将所有的一级标题进行设置，如下图所示。
3、类似的，选中二级标题，点击样式里的“标题2”，依次完成二级标题设置，以此类推，如下图所示。
4、在所有标题的样式设置完成之后，就可以添加目录了，将光标定位到要添加目录的地方，word选中“引用”选项卡，如下图所示。
5、在工具栏的最左边，有“目录”，点击目录，选择“自动目录1”，如下图所示。
6、这样就自动生成目录了，如下图所示。
7、当标题发生变化时，可以选中目录，点击“更新目录”按钮，选择“更新整个目录”，这样目录就会自动更新了。
...
转载请注明出处51数据库 » microsoft word 2013破
