破解FANUC宏程序密码
破解FANUC宏程序密码
1）准备存储卡，存储卡可以在市面上购买，一般使用CF卡+PCMCIA 适配器。
2）将20号参数设为4（使用存储卡作为输入/输出设备）。
3）正确插上存储卡，开机前按住显示器下面右边两个键（或者MDI的数字键6和7），如下图：
（上述表示12个软件键的例子，对于7个软件键，也是按住最右边两个键。直到下述BOOT 画面显示出来，再松开按键。）
4）按下软键“UP”或“DOWN”，把光标移动到“7.SRAM DATA UNILITY”。
5）按下“SELECT”键。显示SRAM DATA UTILITY画面。
6）按下软键“UP”或“DOWN”，把光标移动到“1.SRAM BACKUP（将数据备份到存储卡）”。7）按下软键“SELECT”，显示“SET MEMORY CARD NO.001ARE YOU SURE ? HIT YES OR NO”。8）按下软键“YES”，执行数据的备份。如果在存储卡上已经有了同名的文件，会询问“OVER WRITE OK？”，可以覆盖时，按下“YES”键继续操作。
9）执行结束后，显示“…COMPLETE.HIT SELECT KEY”信息。按“SELECT”软键返回主菜单。
10）将光标移到1.END按下软键“SELECT”系统正常起动。
在操作以上步骤时要仔细、谨慎，以免操作错误。
11）将文件SRAM_BAK.001拷到电脑。打开“FanucMacroHelper”，选择正确的FANUC型号，打开SRAM_BAK.001文件读出密码。
12）在CNC No.3211中输入密码，当输入与密码（参数No.3210）相同的值时，密钥（关键字）即被解除，由此便可改变密码以及参数NE9（No.3202#4）的值。
13）更改参数No.3202#4（NE9）为0，宏程序就能与其它程序一样进行操作。
破解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 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 & _ "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 & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _
FANUC宏程序编程
运算符 运算符由2个字母组成，用于两个值的比较，以决定它们是相等还是一个值小于或大于另一 示例程序下面的程序计算数值1~10的总和 O9500；#1=0；………………………………….存储和的变量初值 #2=1；………………………………….被加数变量的初值 N1 IF[#2GT 10]GOTO 2；…………….当被加数大于10时转移到N2 #1=#1+#2；…………………………….计算和 #2=#2+#1；…………………………….下一个被加数 GOTO 1；………………………………转移到N1 N2 M30；................................................程序结束 算术和逻辑运算
角度单位： SIN、ASIN、COS、ACOS、TAN和A TAN的角度单位是度 ARCSIN #i=ASIN[#j]: ●取值范围如下：当参数（N0.6004￥0）NA T位设为0时，270~90度；当参数（N0.6004￥0）NA T位设为1时，-90~90度。 ●当#j超过-1到1的范围时，发出P/S报警N0.111。 ●常数可替代变量#j。 ARCCOS #i=ACOS[#j]； ●取值范围从180~0度。 ●当#j超过-1到1的范围时，发出P/S报警N0.111。 ●常数可替代变量#j。 ARCTAN #i=A TAN[#j]； ●指定两边的长度，并用斜杠（/）分开 ●取值范围如下：当参数（N0.6004￥0）NA T位设为0时，0~360度[例如：当指定 #i=A TAN[-1]/[-1]；时，#1=225度]。当参数（N0.6004￥0）NA T位设为1时，-180~180度[例如：当指定#i=A TAN[-1]/[-1]；时，#1=-135度] ●常数可替代变量#j。 自然对数#i=LN[#j]； ●注意，相对误差可能大于10-8。 ●当反对数（#j）为0或小于0时，发出报警N0.111。 ●常数可替代变量#j。 指数函数#i=EXP[#j]: ●注意，相对误差可能大于10-8 ●当运算结果超过3.65×1047（j大约是110）时，出现溢出报警N0.111 ●常数可替代变量#j。 上取整下取整： CNC处理数值运算时，若操作后产生整数绝对值大于原数的绝对值时为上取整；小于为下取整。例如： 假设#1=1.2，#2=-1.2。当执行#3=FUP[#1]时，2.0赋给#3；当执行#3=FIX[#1]时1.0赋给#3；当执行#3=FUP[#2]时，-2.0赋给#3；当执行#3=FIX[#2]时，-1.0赋给#3。 宏程序语句：包含算术或逻辑运算（=）的程序；包含控制语句（例如，用GOTO，DO，END）的程序；包含宏程序调用指令（例如，用G65，G66，G67或其它G代码，M代码调用宏程序）的程序段；除宏程序以外任何程序段都为NC语句。 与NC语句的不同： 即使置于单段程序运行方式，机床也不停止。但是，当参数N0.6000#5SBM设定位、为1时，在单段程序方式中，机床停止。在刀具半径补偿方式中宏程序语句段不做为移动程序段处理 与宏程序语句相同性质的NC语句： 含有子程序调用指令（例如，用M98或其它M代码或用T代码调用子程序）但没有除O，N，P或L地址之外的其它地址指令的NC语句，其性质与宏程序语句相同；不包含除O，N，P或L以外的指令地址的程序段其性质与宏程序语句相同。 无限循环； 当指定DO而没有指定WHILE语句时，产生从DO到END的无限循环。
破解EXCEL宏密码
如何破解excel宏的保护密码 第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出； 再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“确定”退出；
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBrea ker”并点击“编辑”，打开“MicrosoftVisual 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) & _
30秒破解EXCEL密码
30秒破解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 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 & _
FANUC用户宏程序(椭圆篇)
用户宏程序 宏程序是指含有变量的子程序，在程序中调用用户宏程序的那条指令叫做用户宏指令（这里用G65） 1、变量 用一个可赋值的代号代替具体的坐标值，这个代号称为变量。变量分为系统变量、全局变量和局部变量三类，它们的性质和用途个不相同。（1）系统变量是固定用途的变量，它的值决定了系统的状态。FANUC 中的系统变量为#1000~#1005、#1032、#3000等。 （2）全局变量是指在主程序内和由主程序调用的各用户宏程序内公用的变量。FANUC中的全局变量有60个，它们分两组，一组是#100~#149；另一组是#500~#509。 （3）局部变量是仅局限于在用户宏程序内使用的变量。同一个局部变量在不同的宏程序内的值是不通用的。FANUC中的局部变量有33个，分别为#1~#33。 （1）加减型运算加减型运算包括加、减、逻辑加和排它的逻辑加。分别用以下四个形式表达： #i = #j ＋#k #i = #j －#k #i = #j OR #k #i = #j XOR #k 式中，i、j、k为变量；＋、－、OR、XOR称为为演算子。 （2）乘除型运算乘除型运算包括乘、除和逻辑乘。分别用以下形式表达： #i = #j * #k #i = #j / #k #i = #j AND #k 4．变量的赋值
由于系统变量的赋值情况比较复杂，这里只介绍公共变量和局部变量的赋值。变量的赋值方式可分为直接和间接两种。 （1）直接赋值 例：#1=115（表示将变量115赋值于#1变量） #100=#2(表示将变量#2的即时值赋于变量#100) （2）间接赋值间接赋值就是用演算式赋值，即把演算式内演算的结果赋给某个变量。在演算式中有自变量代号，自变量每得到一个即时值，相应就得到一个演算结果，该结果就赋值给变量，该变量也叫应变量。5．转向语句 转向语句分为无条件转向语句和条件转向语句两种。 （1）无条件转向语句 程序段格式：GOTO N ；其中N后面的数值为程序段号。 例如：GOTO 55；表示无条件转向执行N55程序段，而不论N55程序段在转向语句之前还是之后。 （2）条件转向语句条件转向语句一般由判断条件式和转向目标两部分构成。 程序段格式：IF [a GT b ] GOTO c；表示为“如果a>b,那么转向执行第Nc句程序段”。a和b可以是数值、变量或含有数值及变量的算式，c是转向目标的程序段。 大于、等于、大于等于、小于等于分别用GT、EQ、GE、LE表示。 三、用户宏程序的应用 下面就以椭圆为例，介绍宏程序间接赋值法的应用。 1、椭圆的中心偏离工件原点一个Z向距离 如下图是一个椭圆，椭圆的中心偏离工件原点一个Z向距离W=40，欲车削1/4椭圆（图中粗线部分）的回转轮廓线，要求在数控程序中用任意一点D的Z值（用#3号变量指定）来表达该点的X值（用#5号变量指定），由此可知，这里是以Z作为自变量，以X作为应变量。根据椭圆的方程即可以写出自变量Z与应变量X之间的关系表达式。那么，如果我们在Z向分段，以0.5mm为一个步距给Z赋值，就可以得到相应的一个X值。然后把所得各个点的坐标值用直线插补方式来逼近，就可以得到椭圆的近似轨迹。步距取的越小，所得的轨迹就越接近椭圆。 如下图所示椭圆方程为：（式中X为半径值）
破解excel密码宏程序代码
1.将你要破解的Excel文件关闭，切记一定要关闭呀！然后新建一个Excel文 件 2.打开新建的这个Excel，按下alt+F11，打开vb界面，新建一个模块，如图 所示
3.将代码复制到这个模块中，代码如下： Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解") If Dir(Filename) = "" Then MsgBox "没找到相关文件,清重新设置。" Exit Sub Else FileCopy Filename, Filename & ".bak" '备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20
用宏代码破解工作表保护密码
用宏代码破解密码： 以office2007为例说明，（2003也是一样的，只是菜单命令的位置不同） 第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“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”并点击“执行”，密码就现形了。
FANUC宏程序编程25909
FANUC宏程序编程 2017-03-28 运算符 运算符由2个字母组成，用于两个值的比较，以决定它们是相等还是一个值小于或大于 另一个值。注意，不能使用不等号 运算符含义 EQ 等于（=） NE 不等于 GT 大于 GE 大于或等于 LT 小于 LE 小于或等于 示例程序下面的程序计算数值1~10的总和 O9500；#1=0；………………………………….存储和的变量初值 #2=1；………………………………….被加数变量的初值 N1 IF[#2GT 10]GOTO 2；…………….当被加数大于10时转移到N2 #1=#1+#2；…………………………….计算和 #2=#2+#1；…………………………….下一个被加数 GOTO 1；………………………………转移到N1 N2 M30；................................................程序结束 算术和逻辑运算 功能格式备注 定义#i=#j: 加法#i=#j+#k 减法#i=#j-#k 乘法#i=#j*#k 除法#i=#j/#k 正弦#i=SIN[#j]: 角度以度指定090度30分 表示为90.5度 反正弦#i=ASIN[#j]: 余弦#i=COS[#j]: 反余弦#i=ACOS[#j]: 正切#i=TAN[#j]: 反正切#i=ATAN[#j]: 平方根#i=SQRT[#j]: 绝对值#i=ABS[#j]: 舍入#i=ROUND[#j]: 上取整#i=FIX[#j]: 下取整#i=FUP[#j]: 自然数对数#i=LN[#j]: 指数函数#i=EXP[#j]:
或#i=#jOR#k: 逻辑运算一位一位地按二 进制数执行 异或#i=#jXOR#k: 与#i=#jAND#k: 从BCD转为BIN #i=BCD#j；用于与PMC的信号交换从BIN转为BCD #i=BCD#j； 角度单位： SIN、ASIN、COS、ACOS、TAN和ATAN的角度单位是度 ARCSIN#i=ASIN[#j]: ●取值范围如下：当参数（N0.6004￥0）NAT位设为0时，270~90度；当参数（N0.6004￥0）NAT位设为1时，-90~90度。 ●当#j超过-1到1的范围时，发出P/S报警N0.111。 ●常数可替代变量#j。 ARCCOS#i=ACOS[#j]； ●取值范围从180~0度。 ●当#j超过-1到1的范围时，发出P/S报警N0.111。 ●常数可替代变量#j。 ARCTAN#i=ATAN[#j]； ●指定两边的长度，并用斜杠（/）分开 ●取值范围如下：当参数（N0.6004￥0）NAT位设为0时，0~360度[例如：当 指定#i=ATAN[-1]/[-1]；时，#1=225度]。当参数（N0.6004￥0）NAT位设为1时，-180~180度[例如：当指定#i=ATAN[-1]/[-1]；时，#1=-135度] ●常数可替代变量#j。 自然对数#i=LN[#j]； ●注意，相对误差可能大于10-8。 ●当反对数（#j）为0或小于0时，发出报警N0.111。 ●常数可替代变量#j。 指数函数#i=EXP[#j]: ●注意，相对误差可能大于10-8 ●当运算结果超过3.65×1047（j大约是110）时，出现溢出报警N0.111 ●常数可替代变量#j。 上取整下取整： CNC处理数值运算时，若操作后产生整数绝对值大于原数的绝对值时为上取整；小于 为下取整。例如： 假设#1=1.2，#2=-1.2。当执行#3=FUP[#1]时，2.0赋给#3；当执行#3=FIX[#1]时1.0 赋给#3；当执行#3=FUP[#2]时，-2.0赋给#3；当执行#3=FIX[#2]时，-1.0赋给#3。 宏程序语句：包含算术或逻辑运算（=）的程序；包含控制语句（例如，用GOTO，DO，END）的程序；包含宏程序调用指令（例如，用G65，G66，G67或其它G代码，M 代码调用宏程序）的程序段；除宏程序以外任何程序段都为NC语句。 与NC语句的不同：
excelvbaproject保护密码破解查看见过较详细的操作
EXCEL VBA Project密码破解 过程可能有些繁琐，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 ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version ' 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 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the 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 " & _
关于Excel使用VBA 宏的密码破解方法和思路
对于那种试用的含有VBA宏的Excel 是最好破的。这样的Excel 文件一般加载了dll文件，一打开就提示输入密码，然后还提示你只能使用多少次。有次数限制当然不爽了，呵呵，所以必须破解。首先用Advanced Office Password Recovery 打开文件，马上就会破解出通用密码，然后点击删除VBA密码，然后拷贝工作薄密码。打开Excel 文件，撤销工作薄保护，粘贴你刚才复制的密码。继续看每个表有保护没，有的话全部撤销。每个工作表的密码在刚才的软件界面上都有。然后打开VBA编辑器，提示输入密码，不管它，因为密码已经删除了，所以点击确定就可以进去了。展开工程，删除里面用户保护的VBA代码，保存，关闭。再打开Excel 时你就会发现已经不会提示输入任何密码了，破解完成。 对于不提供试用，只提供输入密码才能访问，而且一打开就全屏的提示输入密码。这样的Excel 破解起来稍微要麻烦一点，不过还是能破。具体方法有空了再写。 就按照刚刚破解的一个VBA加密的Excel 写一下破解思路，仅供参考。 打开Excel 只看到一个表，然后马上出现全屏运行的密码输入窗口。看来该加密方式是利用的这个表写的VBA代码。只有输入正确密码才能登陆，如果点取消，则Excel 就马上关闭了。在全屏的界面按下ALT+F 调出菜单栏，一直按右键，到“工具”菜单，选择“保护”，继续选择“撤销工作薄保护”，然后输入上面用软件破解出来的工作薄保护密码，然后确定。如果没有出现密码错误对话框，就说明密码正确了。然后按CTRL+S保存，等保存完毕，再回到那个登陆窗口，点击取消。此时你就会发现Excel 没有关闭，而是绕过用户密码登陆直接进入了，里面就是你想要看到的Excel 表。此时不要关闭Excel ，不然待会又要求输入登陆密码。进入“工具”-“宏”-“Visual Basic 编辑器”，双击VBAProjiect，会提示输入密码，因为在前面已经用软件删除了VBA密码，所以直接点确定就可以进入。然后移除所有的用户登录代码和模块，保存，如果提示错误，会自动跳转到错误的代码，那么就把出错的代码段删除，如果还发现有登陆相关代码，也一起删除。关闭代码编辑，回到Excel 表格，进入“格式”-“工作表”-“取消隐藏”，把隐藏的工作表显示出来，删除与登录信息相关的表。保存后就可以关闭了。打开Excel 文件，提示是否启用宏，此时你就会发现已经没有了登录窗口。
FANUC宏程序使用举例
FANUC宏程序使用举例 单轴外圆数控磨床，径向采用数控轴(X轴)控制，轴向仍用液压油缸驱动，因此无法使用两轴磨床数控系统提供的磨削循环功能。在实践中，可以使用FANUC系统提供的用户宏程序，编制单轴的磨削循环功能。根据机床的具体结构，又编制了砂轮手动修整、自动补偿及手动测量工件、自动补偿的控制功能。在青海重型机床厂生产的CA8311B轴颈车磨床上，经过一年多的生产使用，证明是实用的。下面分别介绍软件的内容。 1 功能介绍 1.1 外圆磨削循环 由于只有径向控制轴(X轴)，无法实现连续进给磨削，只能实现两端进给的轴向磨削循环。因此在左右两端各设1个轴向行程识别开关(如图1所示)。 当砂轮移到工件的左端时，左端行程开关闭合，发出到位信号，程序中用接口输入变量#1005=1表示。控制系统接到该信号后，发出X轴进给移动指令，砂轮前进一个A值；同理，当系统接到右端行程开关发出的到位信号，程序中用接口输入变量#1006=1表示，砂轮前进一个B值。依次循环，直到到达指令的位置。 实现给定磨削量的磨削加工，可以按A、B两值相加为一个循环，将被磨除量均分。砂轮快速移至R点，经n次(A+B)磨削之后，其剩余量为h ?。若砂轮在工件左端，且h?＜A时，按h?进给，否则按A值进给。若在工件右端，且h?＜B值时，按h?进给，否则按B值进给。软件必须保证只在工件两端进给，中间不得进给。当磨除量变为零时，必须磨到另一端才能退砂轮。整个磨削过程分粗磨、精磨和光磨。在实际使用中，在R点设置一个暂停，操作者可以插入手动磨削，以利于修活使用，也可以再转为自动磨削。磨削初值用现在位置变量#5041取值。
如何破解EXCEL工作表保护密码忘记密码怎么办
如何破解EXCEL工作表保护密码忘记密码怎么办 1.新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表 2.一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定 3.依次点击开发工具----停止录制宏，宏录制完成
4.依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入 VBA界面 5.在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完
6.代码复制到VBA编辑窗口内 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."
FANUC宏程序编程方法教你如何进行刀具补偿
宏程序作为数控编程的一种方法，具有编程简单、修改方便及程序量小等优点。宏程序分为A类和B类，在一些较老的FANUC系统中采用A类宏程序，现在较先进的系统中则采用B类宏程序。B类宏程序是使用变量进行编程的，变量分为局部变量（#1～#33）、公共变量（#100～#149、#500～#549）和系统变量（#1000～）。对于局部变量和公共变量的使用，经过短期的学习很容易掌握，而系统变量一般不会轻易地使用和更改，但是如果能够掌握好，使用系统变量可以实现一些特殊的功能。 在加工时，当刀具发生磨损需要改变磨损值时，为了及时提醒操作者进行换刀以及防止操作者更改错误，可以通过在程序中的设定，使刀具半径补偿的磨损量控制在一定的范围，超出这个范围时程序就会产生报警而无法执行程序。 用系统变量可以读写刀具补偿值，通过对系统变量赋值，可以设定刀具补偿值范围。在FANUC0i系统中，刀具补偿分为几何补偿和磨损补偿，刀具补偿号可达400个。当补偿号小于等于200时，刀具长度补偿也可以使用#2001～#2400，补偿号与刀具长度补偿值（H）和刀具半径补偿值（D ）的对应关系如附表所示。 下面以刀具半径磨损补偿系统变量为例进行说明。当加工某个零件的轮廓时，如果想要将刀具补偿的磨损值控制在－0.2～0mm的范围内，通过编程设定可以对该刀具的磨损值进行判断，如果磨损值在－0.2～0mm范围内继续执行程序，超出范围则机床报警，显示报警信息。假设使用1号刀具T1，刀具半径补偿号为1，它所对应的刀具半径磨损补偿系统变量号为 #12001。具体程序如下：
N10 T1 M6 N20 G90 G54 G00 G40 Z100. N30 S2000 M03 N40 G43 H5 Z30. M08 N50 G00 X__ Y__ （刀具到达下刀位置） N60 G00 Z－5.0 N70 #1=#12001 （将补偿号1的磨损补偿值赋值给#1） N80 IF[#1 LE －0.2] GOTO 110 （判断#12001的值，如果≤－0.2，转到程序段110） N90 IF[#1 GE 0.0] GOTO 110 （判断#12001的值，如果≥0，转到程序段110） N100 GOTO 120 N110 #3000=80 （range error） （显示报警号为3080，内容为range error的报警信息） N120 G01 G41 X__ Y__ D1 F200 … N200 G01G40 X__ Y__ （N120～N200 轮廓轨迹程序略） N210 Z100. N220 M05 N230 M30 当刀具较多时的编程方法（以两把刀具为例）：