今天比较郁闷，回家处理剩下的工作，打开Excel，一看悲剧了~！ 单击单元格右键想复制单元格一看，坑爹啊~灰色的？ 我以为中毒了，还把Excel重装了好几遍，发现依旧，才发现前几天我写过一篇关于禁止粘贴复制的文章，顿时恍然大悟~原来是这家伙搞的鬼~ 只能依样画葫芦了，上代码：   Private Sub Workbook_Open()        With Application  &

最近的VBA总是喜欢写些乱七八糟的东西，这不今天又想到个。 思路是这样的：特定单元格输入特定值清除特定区域内的数据！觉得有点自杀式的！不过只要不输那个真确值，数据都清空不了! 代码如下：   Private Sub Worksheet_Change(ByVal Target As Range)    If Target.AddressLocal = Range("B3&quot

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

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

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

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

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