不懂VBA也编程

eric0712

原帖由 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

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

xieguo

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

山菊花

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

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

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Dim Sh As Worksheet
   
3. For Each Sh In Worksheets
   
4. Sh.Protect
   
5. Next
   
6. End Sub
   

复制代码

yanjianbin

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

thierryco

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

xpm130

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

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

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

龙1风

学习了

rswordsmen

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

byhwcm

非常棒! 支持.