Excel 任何编辑上的受保护工作表警告

希望在Excel 2010中得到一些帮助

我有三张看得见的床单。打开工作簿时，vba密码保护三张工作表中的每一张

现在，每当我更改任何工作表中任何未锁定的单元格时，都会弹出4个受保护的工作表警告。就是说单元格被锁定，你必须取消保护才能编辑？这一切都很好，只是我没有编辑锁定的单元格。我正在编辑其他工作表中未锁定的单元格

有人有过这种经历吗？我已经打了很多场比赛，其中两场比赛可以归因于每一场比赛。也就是说，当我只保护第一张时，我没有弹出窗口，当我只保护第二张时，我得到2，当我只保护第三张时，我得到2

去掉公式并没有什么不同

以下是锁定的代码：

For Each wSheet In Worksheets

    wSheet.Unprotect Password:="JMP_DST_Lock"

    If wSheet.Visible = True Then
        wSheet.Protect Password:="JMP_DST_Lock", UserInterFaceOnly:=True
        wSheet.EnableOutlining = True
    End If

Next wSheet

ThisWorkbook.Protect Password:="JMP_DST_Lock"

非常感谢你的帮助

编辑： 结果表明，组合框是导致错误的原因。如果链接的单元格被锁定，则任何时候图纸计算（自动计算时的任何更改）都会导致警告。现在，我有代码可以取消对每个组合框GotFocus上的工作表的保护，但除此之外，这些工作表正在出现

有中间立场吗？有没有一种方法可以在不弹出这些警告的情况下锁定链接的单元格？有什么方法可以确保组合框除了在选择时之外都会命中链接的单元格

---

谢谢大家!

你的逻辑似乎错了。您将取消对工作表的保护，然后保护可见工作表，然后保护整个工作簿（在最后一行代码中）

尝试类似的方法（未经测试）：

如果工作簿与处于保护状态的工作表一起保存，请将其更改为类似以下内容：

For Each wSheet In Worksheets
  If wSheet.Visible = False Then
    wSheet.UnProtect Password:="JMP_DST_Lock"
  End If
Next wSheet

---

你的逻辑似乎错了。您将取消对工作表的保护，然后保护可见工作表，然后保护整个工作簿（在最后一行代码中）

尝试类似的方法（未经测试）：

如果工作簿与处于保护状态的工作表一起保存，请将其更改为类似以下内容：

For Each wSheet In Worksheets
  If wSheet.Visible = False Then
    wSheet.UnProtect Password:="JMP_DST_Lock"
  End If
Next wSheet

---

肯，很抱歉这么大声。键盘上传来挫折感。你是对的，不该这么做。感谢您删除。我正在将代码添加到顶部以显示锁定。不确定您的编辑是否提供了有关第一个问题的更多信息，或者您是否在问另一个问题。如果是后者，你应该开始一个新的（单独的）帖子来问它。肯，很抱歉这么叫。键盘上传来挫折感。你是对的，不该这么做。感谢您删除。我正在将代码添加到顶部以显示锁定。不确定您的编辑是否提供了有关第一个问题的更多信息，或者您是否在问另一个问题。如果是后者，你应该开始一个新的（单独的）帖子来问它。不知道为什么这会解决这个问题，但它确实解决了！非常感谢你，肯。不知道为什么这样可以解决这个问题，但它确实解决了！非常感谢你，肯。