Question

我是VBA的新手，在构建我目前的Excel＆＃39;合同时基本上自学了。我的目标是有一个合同选项列表，根据其代表性复选框显示或隐藏。总共有12个选项，我在4个工作表中显示/删除范围。

在组织方面，我使用了基于每个动作的模块。我还命名了所有范围

在我保护工作表之前，当我选中一个复选框时，所有4个工作表中的所有4个范围都会立即显示。当我取消选择时，他们立即清除其内容并隐藏。好极了！

然而，一旦我保护我的工作表，事情要么慢下来要么爬行，否则我会收到错误。在下面的ProtectWorksheet模块中，注释掉的行可以工作，但是通过阅读其他堆栈溢出文章，它可以更好地使用我拥有的代码。不受保护，效果很好。受保护我得到＆＃34;错误1004＆＃39;：无法设置Range类的隐藏属性＆＃34;。如果我在受保护的情况下使用我注释掉的代码，它可以工作，但速度非常慢。

从技术上讲，我可以让一切工作......但从用户界面的立场来看，它很糟糕。

以下是我一直在测试的第一个合同选项。拜托，谢谢你的帮助！

Excel对象下的

- sheet2（数据输入）

Private Sub chkDomesticHotWater_Click()

ProtectOFF

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

  If chkDomesticHotWater = True Then
    AddDomesticHotWater
  Else
    'Remove the lines, clear the data, and move the mouse to the top
    RemoveDomesticHotWater
    ClearDomesticHotWater
    Range("A1").Select
  End If

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

ProtectON

End Sub

模块下的

：复选框

 Sub AddDomesticHotWater()
    [DataInput_DomesticHotWater].EntireRow.Hidden = False
    [Contract_DomesticHotWater].EntireRow.Hidden = False
    [Invoice_DomesticHotWater].EntireRow.Hidden = False
    [ExpectedCost_DomesticHotWater].EntireRow.Hidden = False
 End Sub
 Sub RemoveDomesticHotWater()
    [DataInput_DomesticHotWater].EntireRow.Hidden = True
    [Contract_DomesticHotWater].EntireRow.Hidden = True
    [Invoice_DomesticHotWater].EntireRow.Hidden = True
    [ExpectedCost_DomesticHotWater].EntireRow.Hidden = True
 End Sub

在模块ClearData下

Sub ClearDomesticHotWater()
  Range("DataInput_DomesticHotWater").Select
  For Each cell In Selection
    If cell.Interior.Color = RGB(226, 239, 218) Then
      cell.ClearContents
    End If
  Next
  Range("DomesticHotWaterStart").Select
End Sub

模块ProtectWorksheet下的

Sub ProtectON()
Dim ws As Worksheet
Dim pwd As String

pwd = "123" ' Put your password here
For Each ws In Worksheets
  ws.Protect Password:=pwd, UserInterfaceOnly:=True
Next ws

'Worksheets("Data Input").Protect Password:="123"
'Worksheets("Contract").Protect Password:="123"
'Worksheets("Invoice").Protect Password:="123"
'Worksheets("Expected Cost").Protect Password:="123"
End Sub

Sub ProtectOFF()
Dim ws As Worksheet
Dim pwd As String

pwd = "123" ' Put your password here
For Each ws In Worksheets
  ws.Unprotect Password:=pwd
Next ws
'Worksheets("Data Input").Unprotect Password:="123"
'Worksheets("Contract").Unprotect Password:="123"
'Worksheets("Invoice").Unprotect Password:="123"
'Worksheets("Expected Cost").Unprotect Password:="123"
End Sub

修改我可以通过更新下面的保护开/关代码来加快速度，但是当我点击我的复选框时，它仍然会延迟3-5秒：

Sub ProtectON()
    Dim ws As Worksheet
    Set WSArray = Sheets(Array("Data Input", "Contract", "Invoice", "Expected Cost"))
    For Each ws In WSArray
         ws.Protect Password:="123"
    Next
End Sub

Sub ProtectOFF()
    Dim ws As Worksheet
    Set WSArray = Sheets(Array("Data Input", "Contract", "Invoice", "Expected Cost"))
    For Each ws In WSArray
     ws.Unprotect Password:="123"
    Next
End Sub

编辑 - 解决方案？ 所以我不认为这是最好的做法，我也没有真正解决过这个问题。我的延迟，但我找到了一个解决方法。通过启用保护但允许行格式化来单击我的复选框时，我消除了延迟。从技术上讲，我的表单不再100％免受用户修补，但我认为风险值得在点击后消除这样烦人的等待时间。

Sub ProtectON()

Dim ws As Worksheet
Set WSArray = Sheets(Array("Data Input", "Contract", "Invoice", "Expected Cost"))
For Each ws In WSArray
     ws.Protect Password:="123", AllowFormattingRows:=True
Next

End Sub

Answer 1

它应该不会那么慢，虽然我真的不知道你的PC有多快，数据有多大。但是，您可以做得更好：

Sub ClearDomesticHotWater()

    For Each cell In [DataInput_DomesticHotWater]
    If cell.Interior.Color = RGB(226, 239, 218) Then
        cell.ClearContents
    End If
    Next

End Sub

并删除所有选择，他们正在减慢你的速度。像这样绕过他们： How to avoid using Select in Excel VBA macros

Excel VBA：保护我的工作表显着减慢了我的vba代码

1 个答案: