­ã´£³¡ªL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
     If .Address <> "$C$3" Then Exit Sub
     V = xlSheetVeryHidden
     If UCase(.Value) = "OPEN" Then V = xlSheetVisible
     Application.ScreenUpdating = False
     For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
         If xS.Visible <> V Then xS.Visible = V
     Next
End With
End Sub

­ã´£³¡ªL

¦^´_ 3# mdr0465

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
     If .Address <> "$C$1" Then Exit Sub
     V = 2
     If UCase(.Value) = "OPEN" Then V = -1
     Application.ScreenUpdating = False
     For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
         If xS.Visible <> V Then xS.Visible = V  ' °ÝÃD¥X²{¦b³o¤@¥y
     Next
End With
End Sub

­ã´£³¡ªL

¦^´_ 6# mdr0465


®æ¦¡³]¦¨ 0000000 ¤£¥i¥H¶Ü?