حماية خلية بعد الكتابة فيها

[صالحs]

السلام عليكم ورحمة الله وبركاته ..

سؤال : كيف يمكن حماية خلية أو عدة خلايا ( تلقائياً ) بعد الكتابة فيها.. بحيث يمكن الكتابة فيها لمرة واحدة ، وكذلك لا يمكن تغييرها الا بعد فك الحمايه (( وذلك لحفظ السجلات من التغيير ))

وشكـــــراً

[محمد حجازي]

السلام عليكم ...

قم أولاً بتحديد الورقة كاملة و انقر على الخيار Cells الموجود في القائمة Format ، وتحت التبويب Protection قم بإزالة التحديد في الخيار Locked ، ومن ثم قم بحماية الورقة وحدد كلمة السر على أنها 123.

الآن اضغط على Alt+F11 وادخل إلى نفس الورقة وألصق الكود التالي فيها:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Locked = False Then
    Me.Unprotect Password:="123"
    Target.Locked = True
    Me.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
End Sub

وكرر هذه العملية بالنسبة لجميع الأوراق في المصنف.

بالتوفيق

[صالحs]

السلام عليكم ورحمة الله وبركاته،،

الأخ الكريم ( محمد حجازي ) بارك الله فيك .. وشكرا على ما زودتنا به من معلومات

وجزاك الله خيراً

أخوك / صالح