Excel VBA – 在一个工作表中调用多个子

下面的代码工作正常，如果我把进程分成3个独立的潜艇，但我有问题结合到一个进程。

理想情况下，我希望代码运行并暂时解锁“工作表”，执行“工作表_计算”子工作，然后再次locking“工作表”。

有人可以帮忙吗？

---

Private Sub UnprotectAll() Dim sh As Worksheet Dim yourPassword As String yourPassword = "Test" For Each sh In ActiveWorkbook.Worksheets sh.Unprotect Password:=yourPassword Next sh End Sub Private Sub Worksheet_Calculate() Dim LastRow As Long, c As Range Application.EnableEvents = False LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row On Error Resume Next Dim LastRow As Long, c As Range Application.EnableEvents = False LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row On Error Resume Next For Each Dependents In Range("G6") For Each HideDependents In Range("G18:G19") If Dependents.Value = 0 Then HideDependents.EntireRow.Hidden = True ElseIf Dependents.Value >= 1 Then HideDependents.EntireRow.Hidden = False End If Next Next For Each Vehicle In Range("G7") For Each HideVehicle In Range("G45:G48") If Vehicle.Value = 0 Then HideVehicle.EntireRow.Hidden = True ElseIf Vehicle.Value >= 1 Then HideVehicle.EntireRow.Hidden = False End If Next Next For Each Joint In Range("G9") For Each HideJoint In Range("I14:J65") If Joint.Value = 0 Then HideJoint.EntireColumn.Hidden = True ElseIf Joint.Value = 1 Then HideJoint.EntireColumn.Hidden = False End If Next Next On Error GoTo 0 Application.EnableEvents = True End Sub Private Sub ProtectAll() Dim sh As Worksheet Dim yourPassword As String yourPassword = "Test" For Each sh In ActiveWorkbook.Worksheets sh.Protect Password:=yourPassword Next sh End Sub 

Answer 1

还有一些其他的效率可以获得，但这是一种结合的方式，将每个循环包裹在整个事物中。

 Private Sub Combine() Dim sh As Worksheet Dim yourPassword As String yourPassword = "Test" For Each sh In ActiveWorkbook.Worksheets sh.Unprotect Password:=yourPassword Dim LastRow As Long, c As Range Application.EnableEvents = False LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row On Error Resume Next For Each Dependents In Range("G6") For Each HideDependents In Range("G18:G19") If Dependents.Value = 0 Then HideDependents.EntireRow.Hidden = True ElseIf Dependents.Value >= 1 Then HideDependents.EntireRow.Hidden = False End If Next Next For Each Vehicle In Range("G7") For Each HideVehicle In Range("G45:G48") If Vehicle.Value = 0 Then HideVehicle.EntireRow.Hidden = True ElseIf Vehicle.Value >= 1 Then HideVehicle.EntireRow.Hidden = False End If Next Next For Each Joint In Range("G9") For Each HideJoint In Range("I14:J65") If Joint.Value = 0 Then HideJoint.EntireColumn.Hidden = True ElseIf Joint.Value = 1 Then HideJoint.EntireColumn.Hidden = False End If Next Next On Error GoTo 0 Application.EnableEvents = True sh.Protect Password:=yourPassword Next sh End Sub