EXCEL怎样自动锁定满足条件的行

excel 自动锁定满足条件的单元格~

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Columns.Count > 1 Then Exit Sub If Target.Column = 6 Then ActiveSheet.Unprotect For i = Target.Row To Target.Row + Target.Rows.Count - 1 If Cells(i, 6) = "" Then Cells(i, 3).Resize(1, 3).Locked = True Cells(i, 7).Resize(1, 2).Locked = True ElseIf Cells(i, 6) = "修改" Then Cells(i, 3).Resize(1, 3).Locked = False Cells(i, 7).Resize(1, 2).Locked = False End If Next ActiveSheet.Protect End IfEnd Sub

H1输入

=IF(ISNUKMBER(FIND("阿三",G1)),"锁定","")
下拉公式

代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 8 Then Exit Sub
If Target = "锁定" Then
ActiveSheet.Unprotect
Cells(Target.Row, 1).Resize(1, 7).Locked = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Cells(Target.Row, 1).Resize(1, 7).Locked = False
ActiveSheet.Protect
End If
End Sub

　　把你 不 想要锁定的单元格，即F2到M2，选中。
右键-设置单元格-保护，把锁定的钩钩去掉。

然后：工具-保护-保护工作表
如果不准选中或复制，里面钩钩看着选择，再确定就行。要记得密码哦，呵呵。

把它放在sheet的vba代码中，启用宏
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ro As Integer
Dim col As Integer
ro = Range(Target.Address).Row
col = Range(Target.Address).Column
If col < 6 Or col > 13 Then
Exit Sub
End If
If Range("e" & ro) = Range("d" & ro) Then
ActiveSheet.Unprotect
Range("f" & ro & ":m" & ro).Locked = True
ActiveSheet.Protect
End If
End Sub

这个可以用数据有效性设置一下看。

---

西昌市18320974005： EXCEL怎样自动锁定满足条件的行 - ？
郝忽舒汀： 把它放在sheet的vba代码中,启用宏 Private Sub Worksheet_Change(ByVal Target As Range) Dim ro As Integer Dim col As Integer ro = Range(Target.Address).Row col = Range(Target.Address).Column If col < 6 Or col > 13 Then Exit Sub End If If...

西昌市18320974005： excel 按条件锁定行 - ？
郝忽舒汀： H1输入=IF(ISNUKMBER(FIND(＂阿三＂,G1)),＂锁定＂,＂＂) 下拉公式代码: Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column <> 8 Then Exit SubIf Target = ＂锁定＂ ThenActiveSheet.UnprotectCells(Target....

西昌市18320974005： 如何让excel表格的单元格一输入就锁定 - ？
郝忽舒汀： 锁定单个或多个单元格方法①首先,利用Excel快捷键 Ctrl + A 全选所以的单元格,然后,右键选择“设置单元格格式”;②在弹出的“单元格格式”中选择“保护”,取消“锁定”前面的钩去掉; ③选中你所想要锁定的单个或多个...

西昌市18320974005： excel 如何实现满足条件时锁定指定区域? - ？
郝忽舒汀： 如下:1、选定所有单元格——“设置单元格格式”——“保护”——“锁定”去掉“√”;2、选定C、D两列——“设置单元格格式”——“保护”——“锁定”打上“√”;3、“工具”——“保护”——“保护工作表”——输入密码(或不输入)——确定.

西昌市18320974005： excel怎么实现当某一行滚动到最顶端时自动锁定 - ？
郝忽舒汀： 哥们,你说的这个自动锁定,是不是让表格定格?目前这个还是无法实现的.只能用if手动查到满足条件的行.

西昌市18320974005： 怎样完成只锁定excel表中选定的行 - ？
郝忽舒汀： 视图中的冻结空格,可以冻结首行、首列,也可以自己定义 理解错了,你要的是锁定.锁定是审阅里面

西昌市18320974005： 如何锁定excel的第一行 - ？
郝忽舒汀： 此功能为冻结窗格 详细操作步骤及演示:1、点击视图选项卡,窗口-冻结首行2、点击视图选项卡,窗口-冻结首列

西昌市18320974005： EXCEL怎么设置触发后,符合条件的行自动隐藏? - ？
郝忽舒汀： 按ALT+F11.在左边找到这张表,双击,在右边的空白处复制下面的代码. Private Sub Worksheet_Change(ByVal Target As Range)With TargetIf .Column = 3 And .Count = 1 ThenIf .Value = ＂完成＂ Then.Rows.EntireRow.Hidden = TrueEnd IfEnd IfEnd With End Sub 然后关闭,回到C列,输入＂完成＂就隐藏了

西昌市18320974005： excel中怎么锁定某一行的位置 - ？
郝忽舒汀： 选中你想锁定的行或列,然后选择“窗口”-“锁定”就OK啦

西昌市18320974005： excel 2010 如何锁定特定的一行? - ？
郝忽舒汀： 在右边的滚动条最上面有一条线,你把鼠标放到上面,鼠标的光标就变成一个夹子一样的东西,按住鼠标上下拖动就可以随意切分窗口.如果你想左右切分窗口,在下面滚动条的右端也有一个线,拖住它你就可以左右切分窗口.我把那个东西叫做拉手. 想要取消切分的窗口,把鼠标放到分窗的窗框上面,双击一下,分窗就没有了.