منع الماوس او الكيبورد من الذهاب الى عامود محدد او صف

[محمد التميمي]

السلام عليكم اخواني الكرام

في الملف المرفق لدي جدول اكسل لسجل الصادر.

المطلوب اخواني الكرام :

كيف لي ان امنع المواس او الكيبورد من الانتقال الى راس الجدول المجمد والعمود الاول (رقم الصادر) اي بمعنى التحرك والانتقال فقط في الخلايا باللون  الاصفر لا حاجة لي بالانتقال لغير الخلايا الصفراء

مع فائق الشكر والتقدير

السجــــــــــل.rar

[وايلي حبيب]

السلام عليكم
مرفق لك الملف

السجــــــــــل.xlsx

[محمد التميمي]

الف شكر اخي العزيز (وايلي حبيب) ولكن ارجوا من جنابكم الكريم شرح بسيط لما فعلته والسبب انه عندي سجلات حكومية حتى اطبق عليهم نفس الغرض

الف شكر

[وايلي حبيب]

حياك اخوي محمد التميمي

الطريقة ان شاء الله تكون سهوله

 

1- من تنسق الخلايا - تروح لـ حماية بعدين تختار - تم تامينها     للخلاليا الي ماراح تحتاجها

2- طبق نفس الحركة للخلايا الي انت محتاجها ولكن عكس الحركة الاولة تشيل علامة الاختيار من خانة - تم تامينها تخليها بدون تامين

3- من مراجعة تختار - حماية ورقة البيانات - من مربعات الاختيارات شيل الاختيار الاول وخلي العلامة الصح فقط على /  تحديد الخلايا غير المؤمنه

اتمنى يكون واضح الشرح

[محمد التميمي]

شكرا اخي الكريم وصلت الفكرة بارك الله بجهودك 

[وايلي حبيب]

سلم عليكم
حبيت اضيف لمسات على الملف اخوي /محمد التميمي

 

 

تفضل

 

سجل سنوي.xlsm

[abdelfattahbadawy]

ممكن أخى شرح الكود الذى أضفت لو تكرمت  

 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 1
If Target.Column <> 5 Then Exit Sub
ActiveSheet.Unprotect Password:="123"
If Target.Offset(1, 0).Value <> "" And Target.Offset(-1, 0).Value <> "" Then Exit Sub
If Target.Column <> 5 Then Exit Sub
  Application.EnableEvents = False
   If Target.Value <> "" Then
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
  Target.Offset(1, -5).Select
  ActiveSheet.Protect Password:="123"
   End If
 
 On Error GoTo 0
Application.EnableEvents = True
1 End Sub