不懂VBA也编程

luweiwei9 · 发表于 2008-11-25 16:21

可能自己的基础比较差吧。所以感觉做起来不是很好

dtlyf28 · 发表于 2008-11-25 23:11

山菊花老师的代码极其简洁高效，在下佩服得五体投地.仰君如仰高山之雄伟,望君如望黄河之滔滔．

jl128 · 发表于 2008-11-28 11:00

abc123qqq · 发表于 2008-11-29 20:40

学习了，谢谢，辛苦

linxiaokai · 发表于 2008-11-29 22:50

支持学习。

山菊花 · 发表于 2008-11-30 15:26

不少人尝试过给工作组设定工作表保护，但是，没能成功，而且，总不甘心。
好在，用VBA处理起来不算麻烦。
右键点击任一工作表标签，将下面的代码粘贴到光标处：

Sub 保护()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect
Next
MsgBox "OK"
End Sub

复制代码

将光标定位到该代码的任意位置，按F5运行该代码。

如果要给工作表保护设置密码，可在 Protect 后面写入密码，用空格分开，密码前后加上半角双引号，假如密码为123：
Sh.Protect "123"

如果要批量撤销工作表保护，可将命令Protect改为Unprotect，如果有密码，同样在后面写入密码，如：

Sub 撤销保护()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Unprotect "123"
Next
MsgBox "OK"
End Sub

复制代码

我们会注意到，Excel基本操作中，用同一个菜单项或命令按钮执行“保护”和“撤销保护”两个操作。我们也可以把上面两段代码合并为一段代码：

Sub 保护全部工作表()
Dim pc As Boolean, cMM$, Sh As Worksheet
pc = Me.ProtectContents
On Error Resume Next
cMM = Application.InputBox("请输入" & IIf(pc, "撤销", "") & "工作表保护密码：", "密码", Type:=2)
If cMM <> "123" Then Exit Sub '输入的密码是123
Application.ScreenUpdating = False
For Each Sh In Worksheets
If pc Then
Sh.Unprotect ("xx") '实际工作表保护密码是xx
Else
Sh.Protect ("xx")
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

参考附件：点击下载

bobij · 发表于 2008-11-30 17:23

我不晓得这样没头没脑的弄几个例子出来有什么意思！

小村夫 · 发表于 2008-11-30 17:33

谢谢老大啊。

山菊花 · 发表于 2008-11-30 21:28

原帖由 bobij 于 2008-11-30 17:23 发表
我不晓得这样没头没脑的弄几个例子出来有什么意思！

问得有点意思。
如果在十天前，你会觉得更没意思，那时只有三两个例子。如果一个月后或者半年后，有了三几十个、五十个甚至更多例子时，也许你会觉得有点意思，只要我能坚持做下去或者有您、有其他朋友的共同努力。
使用Excel的人中，一部分人的工作十分需要VBA的功能，比如分页打印，便他的工作需要中，除此以外，不再需要VBA，重要一点，他也没有学习VBA的兴趣。
他们需要一种拿来就用的，像新建、打开、保存、打印一样简单的功能。
他们的需要就是我的责任，我想为这类朋友做点工作，于是，有了这个帖子。
我的设想是，把帖子做成一个集市，你可以在这里买点茶盘、衣架、镜子之类的小用具回去，也可以买点糖果饼干等小吃回去，或者买点孩子的小玩具回去。
不求功能完善，只求简单实用，是这帖子的一个特点，各例子前后没有任何关系，就像集市的小摊，卖老鼠药身边可以卖唱碟，通俗一点说正是没头没脑。
为了能满足更多人的需求，欢迎各位共同出谋献策。
但愿有一天，这帖子会从没意思变成有意思。

readyzhu · 发表于 2008-11-30 21:54

好东西
好东西，谢谢。

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

不懂VBA也编程

谢谢山菊老师

评分

7、保护所有工作表

评分