حماية عمود معين من التعديل او الاضافة عليه

[أبو چيداء]

بعد اذن الجميع المرفق من الاستاذ ابراهيم ابوليله

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

ارجوا ان اكون وضحت المطلوب

شكرا

حماية العمود الأول.rar

[عبدالله باقشير]

السلام عليكم

 

جرب التعديل التالي :

Private Sub Worksheet_Change(ByVal Target As Range)
Const pwd As String = "123"
Static N As Boolean
If N Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    If Application.InputBox("برجاء إدخال كلمة المرور لدخول لتعديل البيانات", "تصريح دخول الورقة", "ابراهيم محمد 01067016251") <> pwd Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء"
    Else
        MsgBox "تم التعديل بنجاح"
        N = True
    End If
End If
End Sub

تحياتي

[أبو چيداء]

استاذنا ومعلمنا عبدالله

هذا شرف كبير لى عندما ارى ردك

شكرا لك

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

[أبو چيداء]

لو اردت ان اجعل الحماية على عدة اعمدة غير متتالية فما الكود مثلا العمود A,F,S,Z فماذا الحل

[صلاح الصغير]

و انا اؤيد ا \ ابو جيداء