HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.302
- Office versie
- Office 365
Zet dit er maar in.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C15:E309", "C358:E652")) Is Nothing And Target.Count = 1 Then
Unprotect
Application.EnableEvents = False
Range(Target.Address).Offset(1).EntireRow.Hidden = Target = ""
Application.EnableEvents = True
Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End If
End Sub