0
我需要锁定列标题中包含特定值的所有列。我试过以下没有成功。我意识到我必须在锁定列后锁定工作表。选择列时出现错误。Excel VBA锁列包含单元格中的特定值
我很感谢您的帮助。
Sub MultipleFindLike()
For Each cell In Worksheets("LockTest").Range("A1", Range("A1").End(xlToRight))
If cell Like "COM_*" Then
Debug.Print "Cell value = " & cell
Debug.Print "Cell Column = " & cell.Column
Range(cell, Range(cell).End(xlDown)).Select
End If
Next
Worksheets("LockTest").Protect Password:="mypass"
Debug.Print "Done ..."
End Sub
你不会对你所做的选择做任何事情。使用select也不明智。最好使用单元格显式地址并使用它来锁定它们。例如Range(“A:A”)。Locked = true – Luuklag