Excel VBA - 在一个工作表中调用多个子设备

Question

下面的代码工作正常，如果我将进程拆分成3个独立的子文件夹，但我有问题将其组合到一个进程中。

理想情况下，我希望代码运行并临时解锁'Sheet'，执行'Worksheet_Calculate'子，然后再次锁定'Sheet'。

有人请协助。

---

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