Vba 锁定空单元格并解锁空闲单元格

我是Excel新手，我正在尝试编写锁定空单元格并用值解锁单元格的代码，任何帮助都将不胜感激。这就是我所拥有的，它给了我

运行时错误“1004”：方法“对象范围”“全局”失败

---

你的代码对我来说很好。你确定你有一个叫“灰色”的范围吗？

---

您必须为您的rngTemp提供一个范围，例如（“A1:X”）我将范围更改为范围（“A1:B2”）。单元格，它消除了错误，但当我转到excel时，没有任何内容被锁定。你认为我还有别的办法写这个吗？很抱歉，这是我第一次使用手机，我的手机很难锁定。为了锁定手机，您还必须使用密码保护您的工作表，只有这样，您才能从您的范围在空手机中写入内容是的，我有灰色的，是的。我有完全相同的东西，但它给我的范围误差。我试图发布一个截图，但它不允许我在评论框中尝试编辑你的问题，我想你可以在那里附上一个截图。你认为我可以用其他方式写这个吗？很抱歉，这是我第一次使用它，我很难使用它。它不允许我附加到编辑，所以我将它附加到问题。控件的错误消息，您应该会看到它。非常感谢。尝试以不同的方式设置范围。例如：对于范围（“A1:B2”）.Cells中的每个rngTemp或作为工作表设置的Dim wS，对于wS.Range（wS.PageSetup.PrintArea）中的每个rngTemp，设置wS=ThisWorkbook.ActiveSheet

Sub test()
    Dim rngTemp As Range

    For Each rngTemp In Range("grey").Cells
        With rngTemp
            If .Value > 0 Or Len(.Value) > 0 Then
                .Locked = False
            End If
        End With
    Next
End Sub