Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("a10:ab29"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
أخى الفــــاضل / يــــــاسر الحــــــافظ
كود فى أحد المنتديات يحمى منطقة ( مشغولة أو خالية ) ويمكن تغيير المدى