工作表 – 印象派

VBA破解工作表密码

2011-09-142011-09-14 • VBA • 7 条评论 • Aar0n •7,305 次查阅

在日常工作中，难免忘记工作表的密码，眼巴巴的看着数据却不能改动。前阶段分享过一个破解工作表密码的VBA，代码相当长。今天分享个简短的代码。原理是利用Excel的BUG破除密码。新建模块并输入如下代码： Sub 清空密码() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True &nbs

VBA隐藏相关工作表

2011-07-082011-07-08 • VBA • 4 条评论 • Aar0n •6,791 次查阅

在实际进行开发时，很多工作表中的数据都是后台的，主要用来存储程度代码所需的数据。为了保证整个过程的有效性，这些数据需要隐藏起来防止他人更改。隐藏代码; Sub 隐藏工作表() ‘ ‘ 隐藏工作表 Macro ‘ 宏由 Kael.Z&

VBA记录工作表插入时间

2011-06-132011-06-13 • VBA • 4 条评论 • Aar0n •5,664 次查阅

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

VBA实现自动增加工作表

2011-04-212011-06-11 • VBA • 6 条评论 • Aar0n •8,034 次查阅

宏代码实现增加所需工作表数量！代码如下： Sub 自动增加工作表() Dim i&, userinto i = 0 userinto = InputBox("输入插入工作表数量：") If IsNumeric(userinto) = True

VBA实现当前工作表翻页

2011-04-052011-04-07 • VBA • 暂无评论 • Aar0n •3,921 次查阅

在Excel中工作表的切换都需要鼠标点击来切换，能不能还有更简便的呢，当然有~ 输入如下代码： Application.SendKeys "{PGUP}", True Application.SendKeys "{PGDN}", True 或者 &nbsp

VBA实现工作表间层次链接

2011-03-152011-04-06 • VBA • 暂无评论 • Aar0n •3,717 次查阅

文：Kael.Z 不知道大家看到过这种工作表表格没有？看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3回到表1后，又不可见。很神奇吧!哈哈！想知道看下去！打开VBA编辑器。输入如下代码即可： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address&nbs

登录