أبو چيداء قام بنشر يوليو 16, 2014 مشاركة قام بنشر يوليو 16, 2014 بعد اذن الجميع المرفق من الاستاذ ابراهيم ابوليله اريد ان تكون الحماية مرة واحدة فقط بمعنى اول ما افتح الشيت واقوم بالتعديل على العمود المحمى يطلب منى الباسورد وعندما اكتب الباسورد ويتم فتح الحماية لا يطلب منى الباسورد مرة اخرى الا اذا قفلت الشييت وفتحته مرة اخرى ارجوا ان اكون وضحت المطلوب شكرا حماية العمود الأول.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر يوليو 16, 2014 أفضل إجابة مشاركة قام بنشر يوليو 16, 2014 السلام عليكم جرب التعديل التالي : 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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر يوليو 16, 2014 الكاتب مشاركة قام بنشر يوليو 16, 2014 استاذنا ومعلمنا عبدالله هذا شرف كبير لى عندما ارى ردك شكرا لك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر نوفمبر 4, 2014 الكاتب مشاركة قام بنشر نوفمبر 4, 2014 لو اردت ان اجعل الحماية على عدة اعمدة غير متتالية فما الكود مثلا العمود A,F,S,Z فماذا الحل رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر نوفمبر 4, 2014 مشاركة قام بنشر نوفمبر 4, 2014 و انا اؤيد ا \ ابو جيداء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.