本文目录一览:
excel2013关于VBA密码破解的教程
在 Excel 中可能有些重要数据需要修改,但遗憾的是忘记了密码。这个时候就需要进行对文件密码的破解。下面是我带来的关于excel2013关于VBA密码破解的教程,欢迎阅读!
excel2013关于VBA密码破解的教程
教程1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
excel2013关于VBA密码破解的教程图1
教程2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
excel2013关于VBA密码破解的教程图2
教程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
'替换加密部份机码
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, "提示"
Close #1
End Sub
excel2013关于VBA密码破解的教程图3
教程3:然后点击运行按钮,如图所示,绿色的小三角就是
excel2013关于VBA密码破解的教程图4
教程4:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
excel2013关于VBA密码破解的教程图5
教程5:稍等几分钟你就会看到破解成功的提示了
excel2013关于VBA密码破解的教程图6
excel2003利用vba制作倒计时器的教程
在 Excel 中录入好数据以后可能经常需要用到计时器这个功能,这个功能制作起来可能有点困难,如果有需要的朋友可以学习一下。下面是由我分享的excel2003利用vba制作倒计时器的教程,供大家阅读、学习。
excel2003利用vba制作倒计时器的教程:
制作计时器步骤1:在EXCEL窗口中按上图的样式做一个界面,设置你喜欢的字体大小与颜色边框。由于是用VBA代码制作计时部份,所以表格中不用输入任何公式。
制作计时器步骤2:按ALT+F11组合键调出VBA窗口,按“插入-模块”,出现一个空白的模块窗口,把下面代码粘贴进去。
Dim n '公用变量,记住下一个任务执行的时间
Dim a '开始时间
Dim b '结束时间
Sub 计时()
n = Now + TimeValue("00:00:01") '设定时间间隔为一秒
If Now() b Then MsgBox "倒计时结束": Call 停止: Exit Sub
[c4] = Format(b - Now(), "h:mm:ss") '设置单元格格式
Application.OnTime n, "计时" '到指定时间后再执行本过程
End Sub
Sub 开始()
[c2] = Format([c2], "h:mm:ss") '设置单元格格式
a = [c2] '设定时间
b = Now() + a '计算结束时间
[c3] = Format(b, "yyyy-m-d h:mm:ss") '设置单元格格式
Call 计时
End Sub
Sub 停止()
On Error Resume Next
Application.OnTime n, "计时", , False '停止任务的执行
End Sub
这组代码由四部份组成:
第一部份(最上面三行)是声名公共变量,使这几个变量在下面各过程中都可调用。
第二部份是“Sub 计时”,也是主代码,它负责不停的计时并显示剩余时间。
第三部份“Sub 开始”,相当于初始化部份,设置单元格格式及显示“计时结束时间”,在这个部份会调用“Sub 计时”过程来进行倒计时。
第四部份“Sub 停止”,终止倒计时过程。
代码中的关键部份是“sub 计时”,它使用onTime函数实现自动计时功能。
常用语法:
Application.OnTime 时间,要运行的过程名
在上例中,“Application.OnTime n, "计时"”的含义是到下一个时间“n”,就执行一次名为“计时”(即 “sub 计时”自身)的代码。
时间“n”由语句“ n = Now + TimeValue("00:00:01")”计算得出,表示由当前时间(即“NOW”)加上一个1秒的时间值。
在“Sub 停止”过程中,也使用了OnTime函数,但它多了一个参数False ,它的作用是到时间“n”后,停止过程“Sub 计时”的执行(即计时结束)。
其他语句部份比较容易理解,可参考各语句后面的注释。
制作计时器步骤3:添加按钮
为了方便执行,需要在EXCEL窗口添加两个按钮,一个“开始”,另一个是“结束”。
在EXCEL窗口中按“视图-工具栏-窗体”,调出“窗体”工具栏,用鼠标选中上面的“按钮”控件在C列的右边“画”出两个大小适中的按钮,再用鼠标右键分别点击按钮,选“编辑文字”,第一按钮输入“开始”,第二个按钮输入“停止”。
接下来还要给按钮指定要运行的宏(就是在VBA窗口中的代码)
在“开始”按钮上点右键,选“指定宏”,在弹出的窗口中选“开始”后确定。同样 方法 给“停止”按钮指定“停止”宏。
这样就完成了整个制作过程,可以使用了。
求Excel VBA教程百度云
《Excel VBA教程》百度网盘免费下载
链接:
提取码: k2cu
Excel VBA教程
Excel怎么用VBA?
操作步骤/方法
1.打开电脑上的Excel新进一个空白工作蒲。
2.右键点击下方菜单栏中的sheet1,选择查看代码。
3.在这里就可以打开VBA的编辑界面,即可编辑使用。
4.根据以上步骤就可以用VBA了。
vba编程教程是什么?
vba编程入门教程:
1、打开vba编辑器
打开vba编辑器有下边三种方法供大家使用:
方法1:点击excel菜单中的【开发工具】,然后在代码选项卡中点击【Visual Basic】 即可,如下图所示:
方法2:右击excel左下角【Sheet1】,在弹出的菜单中点击【查看代码】即可,如下图所示:
2、编写第一个vba程序
步骤:通过上边的方法打开vba编辑器。
在第一个下拉菜单中选中【worksheet】,在第二个下拉菜单中选中【BeforeDoubleClick】(BeforeDoubleClick的意思是在本工作表鼠标双击之前发生)。
然后编辑器中会自动生成两行代码,我们在两行代码之间写入自己的代码即可。比如我们输入:“Sheet1.Cells(2, 3) = Sheet1.Cells(2, 1) + Sheet1.Cells(2, 2)”。意思是当我们鼠标双击时触发,第二行第三列的单元将显示第二行第一列和第二行第二列的和。
VBA的英文全称是Visual Basic for Applications,是一门标准的宏语言。VBA语言不能单独运行,只能被office软件(如:Word、Excel等)所调用。
VBA是一种面向对象的解释性语言,通常使用来实现Excel中没有提供的功能、编写自定义函数、实现自动化功能等。