طلب مساعدة في حماية معادلة خلايا شيت

[jall77]

هذا اول عملي أنجزته بعد اطلاع على مشاركات اساتذة الفضلاء في هذا المنتدى .

البرنامج الذي انجزته يعمل بشكل عادي لكن عند اضافة كود حماية معادلة الخلايا اصبح هناك مشكل لم استطيع حله

الكود الذي وضعته في البداية هو Activesheet.unprotect وفي النهاية وضعتActivesheet.protect

البرنامج في المرفقات

Bureau.rar

[jall77]

لقد وجدت كود للأستاذ : يحيى حسين

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

	    Dim Rng As Range

	    Static Cell As Range

	    Static TheFormula As String

	    Set Rng = Range("A1:A20")

	    If Not Application.Intersect(Target, Rng) Is Nothing Then

			    If Not Cell Is Nothing Then

					    Cell.Formula = TheFormula

			    End If

			    Set Cell = ActiveCell

			    With Cell

					    TheFormula = .Formula

					    .Value = .Value

			    End With

	    Else

			    With Cell

					    .Formula = TheFormula

			    End With

	    End If

End Sub