新建excel文件,alt+F11进入VBA编辑器,插入模块,输入以下代码:
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls &*.xla),*.xls*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False ' 引用下面的自定义函数
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
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 Function
End If
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1 '取得一个0D0A十祥扮六进制字串
Get #1, CMGs - 2, St '取得一个20十六制字串
Get #1, DPBo + 16, s20 '替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next '加入不配对符号
If (DPBo - CMGs) Mod 2 <>0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成州团功......", 32, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function
2. 运行上面的代码,选择你的文件,移除密码成功后打开文件,按alt+F11查看源码:
开玩笑吧?
源代码这里可贴不开
1、ERP的概念
企业资源计划(EnterpriseResourcePlanning,简称ERP)系统是一种主要面向制造行业进行物质资源、资金资源和信李碰息资源集成一体化管理的企业信息管理系统。通过运用ERP,企业能够利用计算机对企业的资金、货物、人员和信息等资源进行自动化管理,具有制造,办公 *** 作,供应链管理,人力资源管理,项目管理,财务与管理,客户服务,销售与市场营销等商业功能。企业资源计划对于在企业高度普及计算机辅助管理,实现企业管理信息化和自动化,提高工作效率和增强快速反应能力,都具有十分重要的意义。
2、ERP的时代背景
在信息时代,企业所处的商业环境己经发生了根本性变化。顾客需求瞬息万变、技术创新不断加速、产品生命周期不断缩短、市场竞争日趋激烈,这些构成了影响现代企业生存与发展的三大力量:顾客、竞争和变化(3C)。工业时代依靠规模化竞争的企业,“层级制”的管理模式和以MRPII应用为主的管理手段已经不再适用于今天企业的发展。为了适应“顾客、竞争和变化”的外部环境,企业必须进行管理思想上的革命(Revolution)、管理模式与流程上的重组()和管理技术手段上的更新(Reform)(3R),从而在全球范围内,引发了一场以企业再造(BPR)为主要内容的管理模式革命和以企业资源计划(ERP)系统应用为主体的管理手段革命。
3、ERP的由来
工业时代的竞争是产品生产成本的竞争,规模化大生产是降低生产成本的有效方式。大生产给制造业带来了许多困难,主要问题就是要解决库存积压与短缺的矛盾。为解决这个关键问题,l957年,美国生产与库存控制协会成立,开始进行生产与库存控制方面的研究与理论推广。随着60年代计算机的商哪巧谈业化应用,第一套物料需求计划MRP(Materialplanning)软件面世,在企业物料管理工作中应用。
在企业管理中,生产管理不仅涉及物流,还涉及资金流。这要求把财务子系统与生产子系统结合到一起,建立整体化的管理系统,实现资金流与物流的统一管理。80年代,人们把制造、财务、销售宽做、采购和工程技术等各个子系统集成为一体化的系统,称为制造资源计划(ResourcePlanning)系统,英文缩写仍是MRP。为了区别MRP,而称作MRPⅡ。
90年代中后期,企业所处的时代背景与竞争环境发生了根本性变化,企业资源计划系统(ERP)应运而生。ERP在MRPⅡ基础上进一步发展了企业信息管理系统,扩展了管理范围,把企业与客户、供应商和经销商等因素整合在一起,形成一个完整的企业供应链系统,并对供应链上的所有环节进行有效管理,包括订单、采购、库存、计划、生产制造、质量控制、运输、分销、服务与维护,以及企业财务、人事、实验室和项目管理等诸多方面。ERP系统主要应用于供应链管理。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)