عادل صادق

الأخ الكريم forcast: لا شكر علي واجب فانا ابن من أبناء هذا المنتدي ويسعدني أن اساعد أي عضو أو زميل الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هداناالله اسألك الدعاء لي بالهداية وشكراً

أخي الكريم جرب هذا المرفق بالتوفيق Stock Rate.rar

السلام عليكم برجاء الضغط علي ال Preferences لتعدير إعدادات الطابعة التي تظهر عند إختيار أمر طباعة من قائمة File ثم الي Advanced ثم البحث عن خاصية Mirror Image وجعلها Off وليس On بالتوفيق إن شاء الله عادل صادق

Asadek25@yahoo.com Thank You

اخي ارجو مراجعة الرابط http://office.microsoft.com/ar-sa/results....B7%D9%8A&App=XL ارجو ان تجد ما تريد

هذا هو شرح الكود Private Sub Worksheet_Change(ByVal Target As Range) A = Range("A1").Value ' (A) هذا الكود لإسناد قيمة الخلية الي متغير اسمه Select Case A 'Select Caseوهذا لإنشاء الاجراء Case 0 'وهذا لافتراض ان قيمة الخلية قد تكون 0 'فاذا تحقق الشرط يتم تنفيذ الاوامر التالية With Range("A1") .ClearComments 'وهذا لمسح اي تعليق قد يكون موجود مسبقاً .AddComment 'وهذا لاضافة شكل التعليق ولكن فارغ .Comment.Visible = True 'وهذا لجعل التعليق ظاهر .Comment.Text Text:="أكتب الدرجة بالأرقام" 'وهذا لملئ التعليق بهذا النص End With Case 91 With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="أنت ممتاز" End With Case 61 With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="أنت جيد" End With Case 51 With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="أنت ضعيف" End With Case Else With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:=" الدرجة ليس لها تصنيف" End With End Select End Sub

أنت غالي والطلب رخيص ها هو التعديل شكراً ConditionalComment.zip

كلامك سليم أخ تامر صحيح انني ليس لدي تلك المشكلة ولكن كان لدي مشكلة اخري في الاكسيل وقد افادتني طريقتك في ازالتها جزاك الله عنا خير الجزاء وأسف إذا كنت تسرعت واقترحت حل اّخر

أخي الكريم السلام عليكم هناك حل بسيط او مبدئ وهو ان تقوم بتشغيل معالج الاوفيس وكانك سوف تقوم بتركيبة من جديد ثم تختار خاصية المعالجة او الاصلاح

هذا هو المطلوب بعون الله شكرأَ ConditionalComment.zip

اخي الكريم لقد قمت بعمل المطلوب في الملف عن طريق الكود اضغط علي (Alt+F11) لترى الكود بالنسبة للشرح اعتقد ان الكود بسيط جدأ فارجو ان تجتهد في فهمة و أي شي غامض سوف اقوم بشرحة لو أردت. شكرأ

اخي السلام عليكم جرب المرفق وإن شاء الله يكون هو المطلوب ConditionalComment.zip

شكراً جزيلاً اخي الكريم G42U في الحقيقة لا اعرف كيف لم انتبهة لهذه النقطة شكراً والي الامام دائما اخوك عادل

الاخ حسام بارك الله فيك وزادك علماً لي سؤال حول الموديولز التي استخدمتها في هذا البرنامج السؤال هو كيف يتم تفعيل الحدث Auto_Open و Auto_Close تلقائياً بمجرد فتح الملف شكراً

زملائي الاعزاء اريد أن أعرف ما هو الخطأ في هذا الكود والذي يجعل الرسالة تظهر مرتين بالرغم من تحديد المستخدم لأحد الخيارين نعم او لا Private Sub Worksheet_Change(ByVal Target As Range) Dim inters As Range, x As Range Dim intButSelected As Integer, intButType As Integer Dim strMsgPrompt As String, strMsgTitle As String Set inters = Intersect(Target, Range("H3:H378")) strMsgPrompt = "Have you changed the engine oil?" strMsgTitle = "Engine Oil" intButType = vbYesNo + vbQuestion + vbDefaultButton2 If inters Is Nothing Then Exit Sub For Each x In inters If x.Value <> 0 Then MsgBox strMsgPrompt, intButType, strMsgTitle If MsgBox(strMsgPrompt, intButType, strMsgTitle) = vbYes Then Range("H3:H378").Font.ColorIndex = 0 x.Font.ColorIndex = 3 Sheets("Sheet1").Range("L5").Value = x.Value Else End End If End If Next End Sub

اقسم بالله ثلاث انني سوف استخدم هذا البرنامج فى الخير و لن اضر به احد

اخي هادي اشكرك علي اهتمامك ولكن هذا البرنامج موجود لدي اريد منك ان ترسل لي الكراك الخاص به او رقم التسجيل كما ارجوك منك ان ترسل لي برنامج فك حماية الـ VBA او اكواد الفيجوال الخاصة بالاكسيل مع جزيل الشكر

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

اللهم أمين

لا شكر علي واجب اخي الفاضل نعم خاصية الطباعة لا تتأثر بالحماية فطالما انك سمحت للمستخدم بعرض الملف او الورقة فيمكنه ايضا طباعة ما يستطيع رؤيته إلا في حالة طباعة خلايا معينة فأنك لابد ان تقوم بتحديد خيار (تحديد الخلايا المؤمنة - Select locked cells ) عند عمل الحماية وذلك ليتسنى للمستخدم الذي لا يملك صلاحية فك الحماية ان يقوم بتحديد خلايا معينة لطباعتها.

السلام عليكم اخي الكريم ارجو إرسال البرنامجين فانا لدي بعض البرامج التي صممتها علي الاكسيل واقوم بعرضها للبيع واريد ان اتأكد من جودة حمايتها وهذا هو ايميلي Asadek25@yahoo.com

نعم يمكنك حماية ورقة العمل ضد التعديل او ضد التعديل واشياء اخرى تجدها تحت قائمة ادوات > حماية >حماية ورقة العمل ثم تحدد مستويات الحماية المطلوبة ثم تقوم بإدخال كلمة المرور ولكن قبل كل هذا لابد ان تقوم بتنشيط خاصية الجماية للخلايا المراد حمايتها او تحدد الورقة بالكامل ثم تضغط رايت كليك ثم حماية وتقوم بوضع علامة علي حماية او حماية واخفاء من اجل اخفاء المعادلات ايضا عن اعين الاخرين فضلا عن حمايتها من التعديل ملاحظة: لابد بد من عمل هذه الخطوات مع كل اوراق العمل داخل الملف

أعتقد ان زيادة الحماية تكون بإستخدام الحروف الخاصة والحروف العربية لان هذا يزيد من صعوبة محاولات فك الحماية

سلمت يداك اخي التقني موضوع مهم وما قصرت شكراً (y)

جميل أبو عبداللـه الـله يكرمك وأنا أسف إن اخطأت