分类： VBA

VBA定位单元格位置-补充

• VBA • 暂无评论 • •3,761 次查阅

在上篇VBA定位单元格位置文章中，使用VBA代码来突显单元格位置。 但这只是为了方便定位，并不想再次打开工作表时看到最后一次的定位记录。 所以再次加了另外个代码来控制： Private Sub Workbook_BeforeClose(Cancel As Boolean)    Cells.Interior.ColorIndex = xlColorIndexNone    End Sub

VBA定位单元格位置

• VBA • 8 条评论 • •8,369 次查阅

我们在修改Excel表格时，当表格的构成有很多列和行组成时，定位起来有些麻烦。 为什么？ 太多的行列在鼠标定位的时候容易看花眼，造成上下行列定位误差，有没有能方便定位的呢？ 有！代码来了：   Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim icolor As Integer   

VBA记录工作表插入时间

• VBA • 4 条评论 • •5,609 次查阅

平时大家在处理各种账目表时，时不时要插入一张张工作表，今天思路一开，如果能记录每张工作表的插入时间，那就相当于给每张表建立一个出生档案。 代码如下：   Private Sub Workbook_NewSheet(ByVal Sh As Object)    Dim R As Long    R = Range("A65536"

VBA限制工作簿保存

• VBA • 11 条评论 • •8,347 次查阅

前面几天写了禁止工作簿打印、复制粘贴操作，今天晚上就偶兴写个禁止保存吧。 大家生活中给大家看数据，就怕有些人手痒，会动你的键盘什么的，导致表格数据被篡改，今天分享下只能看工作簿，修改了也不能保存的方法。 上代码：   Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)    MsgBo

限制Excel表中进行复制粘贴操作

• VBA • 38 条评论 • •20,668 次查阅

昨天写了篇关于VBA限制打印的文章，本意是为了保护数据不被他人打印，今天上善若水同学却给我提出了另外一个问题—-让excel中的数据保密，不能被复制和粘贴呢？ 我想了下有2个方案，一个是利用保护工作表实现，另一个当然就是我所说的利用VBA代码了。 第一种保护工作表方案实现起来比较简单（适合懒人）。 具体步骤：工具-保护–保护工作表–在“允许此工作表的所有用户进行”的下拉框中选择全部为不选中，保护工作表。搞定！此时不管你点哪里都不能进行数

VBA限制工作簿打印

• VBA • 9 条评论 • •7,037 次查阅

两天端午放假，居然休息成感冒了，难受啊！鼻涕一把一把的！今天还是分享下VBA吧。 在实际生活中，我们要向别人展示一些数据，但只希望对方看Excel表格就够了，可有的人为了方便自己会选择打印整张表格带走！ 为了数据安全起见，教大家一个限制EXCEL工作簿打印的代码：   Private Sub Workbook_BeforePrint(Cancel As Boolean)    MsgBox "此乃保密数据，

加载更多