使用VBA禁用Excel中的单元格
使用VBA禁用Excel中的单元格
提问于 2018-09-18 00:21:09
我正在尝试执行一些计算，并在单击Calculate按钮(Active X按钮)后在单元格中更新相同的结果。
打开Excel工作表时，我希望禁用和灰显的单元格很少。为了实现相同的功能，我在Workbook_Open() Sub下编写了以下代码行。在sub下编写的所有条件都工作得很好，除了我编写的禁用单元的语句(编写锁定函数来禁用单元)。
经过一些冲浪，我开始了解到，如果单元格需要禁用/锁定，则需要保护工作表。因此，我在代码中添加了额外的一行来保护工作表。然而，这阻止了在单元格中更新结果。
单击“计算”按钮后，excel会显示“工作表受保护”。那么，有没有办法使用VB脚本而不保护工作表来启用/禁用单元格呢？
Private Sub Workbook_Open()
Dim b1 As Variant
Set b1 = Sheets("Calculation Tool").CommandButton22
b1.Enabled = False
Range("B4:C4") = ""
Range("E4:O4") = ""
Range("E9:F9") = ""
'This is the code written to disable the cells N4 and O4
Sheets("Calculation Tool").Range("N4:O4").Locked = True
Sheets("Calculation Tool").Protect
End Sub回答 1
Stack Overflow用户
发布于 2018-09-18 15:08:23
在一个范围内尝试此代码：
Range("A1:B2").Locked =真
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/52372033
复制相关文章
相似问题