如何使用EXCEL的VBA函数进行编程？

在Excel中，点击“开发工具-Visual Basic”即可进行Vba编程。

进行Excel的Vba编程前，应当先对Excel的常用对象、属性有一定了解：比如Worksheets对象代表制定工作簿中所有工作表的集合；Worksheet（1）就是工作簿的第一个工作表；Worksheet（1）.range（“A1”）返回单元格A1等等......

初学者可以采用录制宏的办法，先模拟需要实现的过程，再对录的宏进行通用性修改，得到最终的Vba代码。

希望帮到你～

如何用vba设置excel工作表的试用时间？

大家好，我是Excel大表姐666，关注我持续分享更多excel技巧。一起成长，一起华丽转身。

下面我用一段VBA代码演示如何设置excel工作表工作表的使用时间。

首先，新建一个Excel工作表，依次点击文件—EXCEL选项—打开设置宏对话框，而后依次点击信任中心，信任中心设置，进入下一个对话框，点击宏设置，而后启用所有宏，而后确定。

增加一个工作表，并输入公式=NOW（）。并设置单元格格式。该工作表仅用来存储打开工作簿时的时间。

然后在时间工作窗口中，执行如下操作，将工作表隐藏起来。

然后按ALT+F11，调出VBA程序设计窗口。选中上侧的Sheet1(Sheet1),同时右键执行查看代码。贴入以下代码。我将文件的使用终止时间设到了2019年12月31日，使用者可以自己调整此处。

Sub main()

Dim Mydate As Date

Dim Now As Date

Mydate = #12/31/2019# '设置文件到期时间为2019年12月31日

Now = Worksheets(2).Cells(1, 1).Value

If Mydate > Now Then

MsgBox "本文件将在" & Mydate & "到期！为不影响使用，请您按时续费。"

Else

MsgBox "本文件已到期，即将关闭！"

Application.Quit

ThisWorkbook.Close savechanges:=False

End If

End Sub

选中下面的ThisWorkbook并右键同时执行查看代码。贴入以下代码。

Private Sub workbook_open()

Call Sheet1.main

End Sub

加密工程文件，点击工具—VBA工程属性—保护，对VBA进行加密，这样别人打开VBA，要先输入密码

将工作表保存为启用宏的工作表

使用期内，使用到期如下图提示。

大家好，我是Excel大表姐666，关注我持续分享更多excel技巧。一起成长，一起华丽转身。

在excel表格里，怎么制作需要密码才能打开下一个表格的VBA命令按钮？

谢谢悟空推送回答。【源代码附后】

VBA其实没有想象的复杂。希望有更多人关注交流！

一、根据问题要求设计的操作流程：

第一步，点击【进入分页】按钮→弹出提示输入密码框→输入密码后确定；

第二步，判断密码是否正确：错误时，弹出提示窗口；

第三步，密码正确时，显示隐藏的工作表【分页】；

二、设计流程：

第一步，设置命令按钮：在【主页】的【h8】单元格中输入【进入分页】；

第二步，设置宏等级，请点击标题《Excel设置启用宏方法（宏等级设置）！ 》，查看设置，这里不重复；

第三步，打开Sheet1（代码）窗口，考录代码；（源码文本附后）

第四步，将工作簿另存为启用宏的类型（*.xlsm）。

---

查看更多优选文章，请分别点击以下标题：

1、《Word如何将合同编号自动同步到页码中，使每页都有唯一的标识号？》；

2、《Excel高级下拉：箭头不隐藏，增显行数 改字体大小颜色，禁止粘贴 》；

3、《Excel设置自动合计行数不确定（即动态）日记帐的收支方发生额方法 》；

4、《Excel设置在输入名称时自动生成特定格式的唯一编号方便查询 》；

5、《Excel一键自动完成多种可选方案，转换运算结果的方法（免代码）》。

谢谢您的阅读！我是#Excel财务VBA#，懂会计的程序员，Excel&VBA精通。上面回答如果对您有帮助，或有不清楚的问题，或需要更多自动化财务表单模板下载，或了解更多实战技巧分享。请记得点"关注"我的头条号“Excel财务VBA”哦！也可私信

---

附：源代码文本

Private Sub Worksheet_Activate() '——工作表激活事件

Sheets("分页").Visible = 0 '——返回主页后自动隐藏分页

End Sub

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '——工作表单击单元格事件

If Target.Address = "$H$8" Then '——指定单击h8时执行令

Target.Offset(0, 1).Select '——单击h8后取消其为活动单元格

mima = InputBox(" 请输入进入分页密码", "密码输入") '——弹出密码输入框

If mima = "" Then Exit Sub '——如果选择取消，则终止程序运行

If mima = "123" Then '——如果密码正确，则显示分页

Sheets("分页").Visible = -1 '——显示分页工作表

Sheets("分页").Select '——设置分页为活动工作表

Else '——如果密码错误，则提示出错

MsgBox "密码错误！", , "友情提示" '——提示密码出错

End If

End If

End Sub