写一段 excel vba 代码

写一段 excel vba 代码

假设你希望控制特定列是否被锁定，可以在Excel中利用VBA实现。首先，你需要按ALT+F11打开VBA编辑器，然后选择插入一个新模块。接下来，复制并粘贴以下代码到新模块中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("K" & Target.Row).Value = "是" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":J" & Target.Row)
.Locked = True
.FormulaHidden = True
.Interior.ColorIndex = 6
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf Range("K" & Target.Row).Value = "否" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":J" & Target.Row)
.Locked = False
.FormulaHidden = False
.Interior.ColorIndex = Null
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

这段代码的工作原理是，当用户在Excel工作表上选择不同的行时，根据K列中对应单元格的内容，自动调整A到J列的锁定状态以及背景色。如果K列中的值为“是”，则锁定A到J列，并将背景色设置为红色（色值6）。如果K列中的值为“否”，则取消锁定A到J列，并清除背景色。

如果需要进一步调整或有其他需求，请随时联系我。2024-12-13