الشيباني1 قام بنشر يناير 13, 2013 قام بنشر يناير 13, 2013 اخواني الاعزاء تحية طيبه الحاجة ماسة الى عمل زر لتفعيل الكود في المرفق وآخر لالغاء التفعيل مع الامتنان حماية الخلايا التي فيها معادلات.zip
طارق محمود قام بنشر يناير 13, 2013 قام بنشر يناير 13, 2013 السلام عليكم تفضل المرفق حماية الخلايا التي فيها معادلات2.rar
الشيباني1 قام بنشر يناير 13, 2013 الكاتب قام بنشر يناير 13, 2013 استاذنا الكبير اشكرك وادامك الرحمن لنا منقذا
الشيباني1 قام بنشر يناير 14, 2013 الكاتب قام بنشر يناير 14, 2013 استاذنا العزيز مع جزيل شكري وامتناني لما تقدمون من اسعاف للمحتاج اتساءل عن امكانية طلب باسوورد عند الرغبه بتعطيل عمل الكود حيث ان تعطيله ممكن حالياعن طريق( ادوات - حماية - الغاء حماية ورقة ) مع التقدير
الشيباني1 قام بنشر يناير 15, 2013 الكاتب قام بنشر يناير 15, 2013 استاذنا الكريم تحية طيبه لا زلت منتظرا لأني لن يخيب بأذن الله ظني
طارق محمود قام بنشر يناير 15, 2013 قام بنشر يناير 15, 2013 السلام عليكم أخي العزيز المرفق به التغيرات التالية الباسوورد للحماية 55 وتستطيع تغييرها من داخل الكود كود الزرين أصبح Sub RoundedRectangle2_Click() ActiveSheet.Unprotect Password:="55" [AA1] = 0 End Sub Sub RoundedRectangle1_Click() [AA1] = 7 End Sub وكود حدث التغير بالصفحة أصبح Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula And [AA1] = 7 Then ActiveSheet.Protect Password:="55" Else ActiveSheet.Unprotect Password:="55" End If End Sub وكما تلاحظ ، الباسوورد موجود بثلاث أماكن بالأكواد عليك تغييرها جميعا تفضل المرفق حماية الخلايا التي فيها معادلات3.rar
الشيباني1 قام بنشر يناير 17, 2013 الكاتب قام بنشر يناير 17, 2013 استاذنا الكبير اشكرك جدا وادامك الرحمن لنا منقذا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.