不懂VBA也编程

山菊花 · 发表于 2008-12-7 11:24

原帖由 xpm130 于 2008-12-7 08:42 发表 (122楼)
请问老师,关闭时保护所有工作表的代码能否写到原先的加载宏里面去呢?

测试过了,"关闭时保护所有工作表的代码"写到原先的加载宏里面无效,必须另起炉灶写到当前文件的thisworkbook里才行

保护工作表应该有选择才行，没有必要把所有工作表进行保护。
下面附件只有一个功能，关闭工作簿时保护工作表。

关闭时保护工作表(密码：qd).zip (6.45 KB, 下载次数: 657)
要修改密码或加入其它功能，请修改类模块代码，见图。

xpm130 · 发表于 2008-12-7 19:06

感谢老师再三指教!
真想好好学他(vba)一下,奈何心为形役,只好抽空瞥他几眼.可叹~~~~~

wang181 · 发表于 2008-12-7 20:21

我久仰的诲人不倦的大师

zengyidin · 发表于 2008-12-7 22:56

严重支持。。。向山菊花。。学习。。

akm5800 · 发表于 2008-12-8 00:36

翻一页就会激动一次~~~~~
每页都有新的课程~对于我这样的初学者。。
我只能衷心的说声：“山版真的很感谢您!”

遂缘 · 发表于 2008-12-8 09:06

真的很感谢您

山菊花 · 发表于 2008-12-8 13:38

为工作簿创建目录，方法有多种，下面介绍使用VBA的方法。
⑴、点击单元格，激活相同名称的工作表。
右键点击“目录”工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：

复制代码

返回工作表，点击单元格，即可激活名称相同的工作表，与点击工作表标签效果相同。
实际使用中，还需加入一些代码，判断单元格是否为空，单元格是否在规定范围之内等，见附件。

目录.zip (10.29 KB, 下载次数: 2145)

⑵、隐藏多余的工作表。
要隐藏多余的工作表，须做两项工作。
首先，在工程管理器中，右键单击模块名“ThisWorkbook”，选择“查看代码”，如下图：
目录2.JPG

将下面的代码粘贴到光标处：

复制代码

如果你的工作表标签不是“目录”，而是“主界面”或其它，代码中应根据实际作修改。
第二步，在上面代码中“Sheets(Target.Value).Activate ”前面插入一行：
Sheets(Target.Value).Visible = 1 '取消隐藏，显示工作表
效果见附件：

目录2.zip (11.13 KB, 下载次数: 1446)

⑶、隐藏目录工作表。
在各工作表适当的地方，设置一个内容为“返回目录”的单元格，为了点击这个单元格，能够激活目录工作表，将下面的代码粘贴到模块“ThisWorkbook”下：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = 2 '隐藏非活动状态的工作表
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 And Target.Range("a1") = "返回目录" Then '如果点击的单元格内容为“返回目录”
Target.Offset(1).Activate
Sheets("目录").Visible = 1 '将目录工作表取消隐藏
Sheets("目录").Activate '激活目录工作表
End If
End Sub

复制代码

见附件：

目录3.zip (12.08 KB, 下载次数: 1592)

⑷在目录中插入图片
建立目录时，不少人喜欢使用图片链接各工作表，如下图。
未标题-1.jpg

实际操作时，右键点击图片，选择“超链接”，链接的目标不要选择工作表，而是图片下面对应文字所在的单元格，见附件。

目录.zip (54.14 KB, 下载次数: 2025)

yql4688 · 发表于 2008-12-8 16:00

我也用上了谢谢

好学999 · 发表于 2008-12-8 17:48

真有意思，我不会代码，也学不会代码，
但只求怎样才能得到我想要的效果
支持，十分感谢，请老师继续发表。

[ 本帖最后由好学999 于 2008-12-21 20:33 编辑 ]

longevity · 发表于 2008-12-8 18:09

不错,我是新手,值得学习一下!!!

		自动登录	找回密码
密码			免费注册

回复 127楼山菊花的帖子