[已解决]求教这个宏效果的制作方法和步骤

excelpub · 发表于 2011-9-18 03:35

请看附件，cfyhqy做的，VBA高手有请！

当某列满足某条件时锁定前面所有单元格.rar (8.69 KB, 下载次数: 45)

kakaco · 发表于 2011-9-18 08:06

我也是菜鸟。。没学过V
If Cells(i, 1) > 0 Then
Worksheets("sheet1").Unprotect Password:=""
Range(Cells(i, 1), Cells(i, 1)).Locked = True
Workshe
我看这个。。如果A列有单元格>0 则这个单元格就被锁定而且加密密码为空

zjdh · 发表于 2011-9-18 10:49

本帖最后由 zjdh 于 2011-9-18 10:58 编辑

看一下宏不是都明白了吗?
1. 将A列的锁定去除
2. 复制宏到sheet1的chang事件中.
其实你那宏可以大大的简化一下:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&
Application.EnableEvents = False
For I = 1 To Target.Row
If Cells(I, 1) > 0 Then
Unprotect Password:=""
Range(Cells(1, 1), Cells(I, 1)).Locked = True
Protect Password:=""
End If
Next
Application.EnableEvents = True
End Sub

复制代码

jiangjane627 · 发表于 2011-9-18 19:46

慢慢来卡店

excelpub · 发表于 2011-9-20 00:05

回复 zjdh 的帖子

{:15:}你的简化代码试了下，效果是：只要输入任意一个单元格，其它任意位置的单元格便都被锁住不能再输入，这需要改进。需要的效果是：输完一个单元格，它之前的已输入的单元格便被冻结不能再输入、修改，而其后的单元格可正常输入不受影响。

zjdh · 发表于 2011-9-20 07:53

晕！！

，你不是要求：
"当某列满足某条件时锁定前面所有单元格 "
你原来的宏就是这功能啊，我只是帮你简化完善一下。

excelpub · 发表于 2011-9-20 23:55

很感谢你热心提供简化代码！但它确实有缺陷，因为它只要任意输入一个单元格后，其它所有单元格即被锁定，哪需要满足什么条件？！我提供的那个只锁前，不锁后。我对简化版有好奇，要是你能改进，我再提问，评你最佳。谢啦……

excelpub · 发表于 2011-9-20 23:59

回复 zjdh 的帖子

很感谢你热心提供简化代码！但它确实有缺陷，因为它只要任意输入一个单元格后，其它所有单元格即被锁定，哪需要满足什么条件？！我提供的那个只锁前，不锁后。我对简化版有好奇，要是你能改进，我再提问，评你最佳。谢啦……

zjdh · 发表于 2011-9-21 07:57

要达到你的要求并不难，宏已修改，无论哪一列都有效，输入一个锁定一个。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&
Application.EnableEvents = False
Unprotect Password:=""
Cells.Locked = False
C = Target.Column
For I = 1 To Target.Row
If Cells(I, C) > 0 Then
Cells(I, C).Locked = True
End If
Next
Protect Password:=""
Application.EnableEvents = True
End Sub

复制代码

huweifvba · 发表于 2011-9-21 08:40

学习了

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