不懂VBA也编程

eric0712 · 发表于 2008-12-5 16:04

原帖由 eric0712 于 2008-12-5 15:32 发表

能否保护的同时取消“选择锁定单元格”？

可以在“Me.Protect ("123") '保护工作表”前面加入一行：
Me.EnableSelection = 1

也可先手工设置一次工作表保护，取消该选项，这样代码更简洁。
——山菊花

还是不行，文件关闭后再打开还是能选定锁定单元格。你看看代码有啥问题（我是菜鸟，如果有低级错误别笑话）

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, -1) = Date
Dim Rng As Range
Me.Unprotect ("flying") '撤销工作表保护

For Each Rng In Target
      Rng.Locked = True '锁定单元格
Next
Me.EnableSelection = 1
Me.Protect ("flying") '保护工作表
End Sub

我的目的是在第三列写入任务后，自动在第二列填入日期，并且任务和日期以后都不能再修改。

请测试：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range

Application.EnableEvents = False '程序修改第二列单元格时，不触发本事件

For Each Rng In Target
      If Rng.Column = 3 Then
         Rng.Offset(0, -1) = Date
         Me.Unprotect ("flying") '撤销工作表保护
         Rng.Locked = True '锁定单元格
         Rng.Offset(0, -1).Locked = True '锁定第二列单元格
         Me.EnableSelection = 1
         Me.Protect ("flying") '保护工作表
      End If
Next

Application.EnableEvents = True '恢复事件
End Sub

——山菊花

xpm130 · 发表于 2008-12-6 19:26

感谢山版老师的辛勤劳作与耐心指教!
我想再深入一点,凡是使用过"保护所有工作表"的文件,在关闭时都默认是保护的,以后打开若要修改,就不得不启用此加载宏,或者手动从工具菜单撤消保护.
要达到上述目标,不知能否在加载宏里修改代码或者另外再加代码.劳驾老师再次出手.衷心感谢!

xieguo · 发表于 2008-12-6 21:49

好东西，支持版主所付出的巨大努力，相信版主的奉献精神一定会赢得越来越多的赞赏!

山菊花 · 发表于 2008-12-6 21:52

原帖由 xpm130 于 2008-12-6 19:26 发表 (117楼)
我想再深入一点,凡是使用过"保护所有工作表"的文件,在关闭时都默认是保护的,以后打开若要修改,就不得不启用此加载宏,或者手动从工具菜单撤消保护.
要达到上述目标,不知能否在加 ...

听得不是很清楚。
如果希望关闭文件时保护所有工作表，可利用ThisWorkbook模块中的Workbook_BeforeClose事件。
在VBE工程管理器中，双击“ThisWorkbook”，将代码粘贴到光标处：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect
Next
End Sub

复制代码

yanjianbin · 发表于 2008-12-6 23:11

学习中。。。。。。。。。。。。。。。。。

thierryco · 发表于 2008-12-7 01:26

支持山菊花，经常给大家些图文并茂，讲解清晰的帖子，获益非浅啊

xpm130 · 发表于 2008-12-7 08:42

请问老师,关闭时保护所有工作表的代码能否写到原先的加载宏里面去呢?

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

[ 本帖最后由 xpm130 于 2008-12-7 10:17 编辑 ]

龙1风 · 发表于 2008-12-7 09:46

学习了

rswordsmen · 发表于 2008-12-7 10:32

刚刚看完 ,本来买了本书不知道怎么看,这里这么多例子真爽,希望山斑继续

byhwcm · 发表于 2008-12-7 10:40

非常棒! 支持.

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

不懂VBA也编程

回复 115楼 xpm130 的帖子

关闭文件时保护所有工作表

回复 119楼山菊花的帖子

不懂VBA也编程

回复 115楼 xpm130 的帖子

关闭文件时保护所有工作表

回复 119楼 山菊花 的帖子

回复 119楼山菊花的帖子