锁定/解锁单元VBA

Question

我一直在寻找一种代码来锁定工作表中的所有单元格，但是一个却发现了以下代码：

Worksheets("SW").Range("D2").Locked = False
Worksheets("SW").Protect UserInterfaceOnly:=True

在我保存它并再次关闭/打开文件之前，它确实运行良好，然后运行了我所有的宏。

我猜是因为在该工作表中我有不同的宏，而且我还有在更改单元格时运行的宏：

Private Sub Worksheet_Change(ByVal Target As Range)

您有任何想法如何使其工作吗？

再说一遍，这个工作簿将被共享，所以我不知道这会影响宏。

对不起，也许我太模棱两可了。

是的，我想防止其他人更改单元格的值。

我希望只更改一个单元格，以便所有其他单元格都随着宏而更改。

再次感谢你的帮助

PS：是的，艾哈迈德·穆塔瓦（Ahmad Al-Mutawa），即使在保存，关闭和打开项目之后，我也希望无法更改工作表。

如果您需要更多信息，请告诉我，我将尝试更加具体。

Answer 1

您的文件中是否有任何宏在执行您尝试实现的此锁定解锁代码以外的其他操作？

如果是这样，我建议您在vba中有一个代码。 否则，您可以简单地锁定工作表以防止用户在没有代码的情况下或在任何时间进行任何更改。

您认为这比[code] [1]更好吗？

[ http://office.microsoft.com/zh-cn/excel-help/lock-or-unlock-specific-areas-of-a-protected-worksheet-HA010096837.aspx ] [1]

出于好奇：您有任何可能不知道在何处以及如何触发此代码段的问题？

编辑后的代码：-您的注释不清晰，除非我认为您想使用宏。 假设您要保护/锁定或解锁/解锁Sheet1，请尝试以下操作。 ：-

在此工作簿的工作簿打开事件中添加以下代码：-

Private Sub Workbook_Open()
  Dim shtSheet As Worksheet
  Dim strPassword As String

    strPassword = "stack"
    Set shtSheet = Worksheets("Sheet1")
    shtSheet.Protect Password:=strPassword, UserInterfaceOnly:=True
End Sub

接下来，在您的模块中添加以下内容。 在运行完宏后调用它。

 Sub ProtectSheet()
  Dim shtSheet As Worksheet
  Dim strPassword As String

     strPassword = "stack"
     Set shtSheet = Worksheets("Sheet1")
     shtSheet.Protect strPassword
 End Sub