Inaktives VBA

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ra As Range, Ws As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each Ws In Worksheets
Select Case Ws.Name
Case "Trade", "Promo", "CW"
Ws.Unprotect "GRO"   '1.)  "" für ohne Passwort oder ändern in dein eigenes
If Ws.Range("J3").Value > 0 Then  '2.)
For Each Ra In Worksheets(Ws.Name).Range("H13:H155")
If Ra.Value > 0 Then
Else
Ra.EntireRow.Hidden = True
End If
Next
End If  '2.)
Ws.Protect "GRO"  '1.) "" für ohne Passwort oder ändern in dein eigenes
End Select
Next
If Me.Saved = False Then Me.Save
Application.DisplayAlerts = True
End Sub