الشيباني1 قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 اخواني الاعزاء تحية طيبه في المرفق كود رائع لحماية مديات مختلفه هل بالامكان عمل كود مع زر لالغاء الحمايه عند الحاجه ثم اعادتها بزر آخر مع الامتنان كود لحماية أكثر من نطاق بدون حماية الورقة.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 (معدل) السلام عليكم الاخ الفاضل tofimoon4 جرب المرفق على السريع البسورد الافتراضي 123 وأي ملاحظات انا موجود تحياتي كود لحماية أكثر من نطاق بدون حماية الورقة_ALI.rar تم تعديل مايو 5, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 بارك الله فيك اخي ابو نصار و الممتع فيه هو انه يتركك تكتب او تغير ثم يتراجع عن هذا و على سبيل الفكاهة " ظهر ان هذا الكود يترك الإكسل ما عندو كلمة رجال يعني يوعدك بالكتابة ثم بخلف وعده يعني عمل صبيان" تقبل مروري رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 5, 2012 الكاتب مشاركة قام بنشر مايو 5, 2012 استاذنا العزيز مع جزيل شكري وتقديري اتساءل عن امكانية وضع شرح مبسط لكيفية عمل الزر ليعمل في ملفي الرئيسي مع الامتنان رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 5, 2012 مشاركة قام بنشر مايو 5, 2012 السلام عليكم الاخ الحبيب أبو حنين اشكرك على مرورك العطر وكلماتك الطيبه الاخ الفاضل tofimoon4 اذا كان الاوفيس الذي تستخدمه 2007 اذهب الى خيارات الاكسل ثم تحفيز ( إظهار علامة تبويب المطور في الشريط ) ستظهر لك قائمة جديدة المسماه ( المطور ) ستجد من ضمن القائمة الزر المسمى ( إدراج ) انقر عليه ستظهر لك مجموعتين ( ازرار عاديه و أزرار Activex ) اختار أول زر من مجموعة Activex بعد انشاء الزر انقر عليه مرتين ستظهر لك قائمة فيجول الاكسل استخدم زري ( Ctrl + A ) ثم حذف بعدها انسخ الكود التالي والصقه في الحدث Dim AE As Boolean Private Sub CommandButton1_Click() On Error Resume Next Dim A As String If AE = True Then Me.CommandButton1.Caption = "النطاق غير محمي" Else Me.CommandButton1.Caption = "النطاق محمي" If Me.CommandButton1.Caption = "النطاق محمي" Then A = InputBox("ادخل الرمز لإلغاء الحماية", "منتدى أوفسينا") If IsNull(A) Or A = "" Then Exit Sub If A = 123 Then MsgBox "تم إلغاء الحماية", vbInformation, "إدخال صحيح" AE = True Me.CommandButton1.Caption = "النطاق غير محمي" Else MsgBox "الرمز غير صحيح", vbInformation, "تنبية !!!" Exit Sub End If ElseIf Me.CommandButton1.Caption = "النطاق غير محمي" Then AE = False MsgBox "تم تأمين النطاق", vbInformation, "الحمد لله" Me.CommandButton1.Caption = "النطاق محمي" End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If AE Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub ارجو ان اكون وفقت في توصيل المعلومه في الجهاز الذي عليه حاليا ليس به برنامج الشرح ان شاء الله غدا سوف ارفق شرح في امان الله وحفظه رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 5, 2012 الكاتب مشاركة قام بنشر مايو 5, 2012 استاذنا العزيز مع تقديري لما بذلتم من جهد لايصال المعلومه ما استخدمه اكسل 2003 هل تتغير الطريقه مع الامتنان رابط هذا التعليق شارك 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.