حماية عمود بعد ادخال بيانات؟

[عبدالعزيز محمد]

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

بارك الله في كل من يحاول إفادة أعضاء المنتدى.

كيف يمكننا حماية بيانات عمود مثلا-العمودF- بعد إدخالها والخروج من الشيت 

عموما المطلوب كالتالي"عند إدخال- والخروج من الشيت- بيانات أحيانا تكون نصية أو رقمية أو تاريخ أو عملة في عمود معين أود عدم تغييرها إلا بكلمة مرور كما أود معرفة كيفية تعيين العمود المراد عدم تغيير بياناته لأنه قد استخدم عمود آخر .

[عبدالعزيز محمد]

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

على الخط انتظر

[عبدالعزيز محمد]

أين أنتم اخزاني ؟؟؟؟؟؟؟؟؟؟؟؟

[سليم حاصبيا]

جرب هذا الكود كلمة السر Salim

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column <> 6 Then
            unprot
        Else
            prot
        End If
End Sub
Sub prot()
With ActiveSheet
    .Unprotect Password:="Salim"
    .Range("f1:f" & .Cells(Rows.Count, "f").End(3).Row).SpecialCells(2, 1).Locked = True
    .Protect Password:="Salim"
 End With
 End Sub
Sub unprot()
 ActiveSheet.Unprotect Password:="Salim"
End Sub

 

تم تعديل يونيو 3, 2016 بواسطه سليم حاصبيا

[عبدالعزيز محمد]

 

المطلوب كالتالي: يكون إدخال البيانات في  الخلايا في العمود F مثلا أول مرة مسموح به ولكن بعد الخروج من الشيت وفتحه من جديد لا يسمح بتغيير البيانات السابقة التي ثم إدخالها سابقا إلا بكلمة مرور وذلك حماية للبيانات من العبث بها لأي متطفل .

نأمل أن يكون المطلوب واضحاً.

Aziz1.rar

[عبدالعزيز محمد]

على الخط ننتظر الحل

[سليم حاصبيا]

ربما كان المطلوب

ما دامت الخلية Z1 تساوي كلمة My_Password لا يمكن الكتابة الا في الخلايا الفارغة من العامود F

للسماح بتعيير الخلايا غير الفارغة فيالعامود F يجب حذف محتويات الخلية Z1 بواسطة كلمة السر للصفحة     Salim

(محتويات الخلية Z1 غير مرئية)

 

Aziz salim.rar