السلام عليكم
بعد اذن الاخ الفاضل حمادة باشا
هذا كود الاخ حمادة باشا بتعديل بسيط
الصق الكود في حدث Thisworkbook
Private Sub Workbook_Open()
layout_changed = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("B5:B32")) Is Nothing Then
If layout_changed = False Then
SendKeys "%+"
layout_changed = True
End If
Else
If layout_changed = True Then
SendKeys "%+"
layout_changed = False
End If
End If
End Sub
جرب ارجو ان يزبط معك
مانفست كلابشة_1.rar