nadereladly قام بنشر يونيو 9, 2008 قام بنشر يونيو 9, 2008 تحياتي لموقع أوفيسينا ولكل المشتركين فيه وشكري وتقديري لكل الأستاذة و المبرمجين الذين يردون علي جميع الأسئلة والذين يبذلون قصاري جهدهم في تعليم الناس لعل ذلك يكون في ميزان حسناتهم أولا: أريد أن أعرف كيفية إخفاء الكود الذي كتبته في الفيجوال بيزك حتي لا يستطيع أحد مستخدمي البرنامج تعديله ومعرفة كيفية إظهاره مرة أخري للتعديل عليه في حين ظهور مميزات جديدة للتعديل علي البرنامج ثانياً : هل هناك طريقة أو كود لكتابة اسمي علي البرنامج الذي صممته ولايستطيع أحد حذفه وذلك لخفظ مجهودي الشخصي أو حفظ حقوق الملكية لهذا البرنامج
نزار سليمان عيد قام بنشر يونيو 9, 2008 قام بنشر يونيو 9, 2008 اخي الكريم السلام عليكم بالنسبة للطلب الاول ارفقت لك ملف عن طريقة حماية اكواد VBA بالنسبة لطلبك الثاني له عدة اشكال ارفقت لك مثال هل يناسبك انظر للمرفقين واي استفسار اعلمني من فضلك انظر للمرفقات VBA____________.rar Name.rar
nadereladly قام بنشر يونيو 9, 2008 الكاتب قام بنشر يونيو 9, 2008 اخي الكريم السلام عليكم بالنسبة للطلب الاول ارفقت لك ملف عن طريقة حماية اكواد VBA بالنسبة لطلبك الثاني له عدة اشكال ارفقت لك مثال هل يناسبك انظر للمرفقين واي استفسار اعلمني من فضلك انظر للمرفقات شكراً لك أخي نزار عيد علي تعبك وجزيل الشكر علي سرعة ردك ولكن بالنسبة للطلب الثاني أريد أن يكون اسمي داخل البرنامج أو داخل ورقة العمل ولا يظهر في الطباعة أو يكون الإسم داخل ورقة العمل علي شكل شريط متحرك بحيث لايسبب أي إزعاج لمستخدم البرنامج بالشرح لو سمحت +ولكن أريد أن أتعلم منك كيف فعلت ذلك في الملفname
نزار سليمان عيد قام بنشر يونيو 9, 2008 قام بنشر يونيو 9, 2008 اخي الكريم السلام عليكم انظر للمرفق وموعدنا غدا ان شاء الله مع الشكر Name1.rar
nadereladly قام بنشر يونيو 10, 2008 الكاتب قام بنشر يونيو 10, 2008 اخي الكريم السلام عليكم انظر للمرفق وموعدنا غدا ان شاء الله مع الشكر أخي نزار السلام عليكم أشكرك علي المجهود الرائع ولكن هناك ملاحظة عندما فتحت الملفname1 وفتحت ملف آخر إكسل لم يظهر وإنما الذي يظهر الملف name1 ففتحت ملف آخر ثاني إكسل فلم يظهر وإنما الملف name1 يسيطر علي ملفات الإكسل المفتوحة معه ويبقي هو الظاهر وعندما قفلته ظهرت كل الملفات المفتوحه الأخري أريد حل هذه المشكلة ثانيا: أخذت نسخة من كود الملف name1 وفتحت ملف إكسل جديد ووضعت الكود داخل موديول جديد في الفيجوال بيزيك وتعديل عبارة الترحيب ثم ملف ثم اغلاق للرجوع لملف الإكسل ولكنه لم يعمل مثلما أنت فاعل أرجو توضيح هذه النقطة وكيفية تفعيل كود في ملف آخر إكسل وذلك لأني لست خبير في الفيجوال بيزك أرجو الشرح بالخطوات
نزار سليمان عيد قام بنشر يونيو 10, 2008 قام بنشر يونيو 10, 2008 اخي الكريم السلام عليكم انظر للكود ادناه Private Sub Workbook_Open() appTime = Now() + TimeValue("00:00:01") Application.OnTime appTime, "Blink" Dim Title As String Dim i As Integer Dim Start As Double Title = "nadereladly ÃåáÇ Èßã Ýí ÈÑäÇãÌ" & Space(4) With Sheets("Sheet1") Do For i = 1 To Len(Title) .Range("A1").Value = Left(Title, i) Start = Timer Do While Timer < Start + 0.3 DoEvents Loop Next i Loop End With End Sub انظر لرسالة الترحيب بالسطر 7 وموقع الرسالة تم تحديده بالسطر العاشر وهو A1 ولهذا عند فتح ملفات اخرى تعتقد ان الملفات لا تفتح لان الرسالة تظهر ولكن لو فتحت الملف وكتبت اي شئ ستختفي الرسالة بالنسبة للطلب الثاني انا وضعت الكود فى المجلد الرئيسي وليس في موديول وذلك ليتم ظهور الرسالة عند فتح الملف ولكن اذا وضعته في موديول ستطلب منك تشغيل الرسالة بزر ماكرو او من خلال نفس الصفحة عمل تشغيل للماكرو اي استفسار اعلمني من فضلك
nadereladly قام بنشر يونيو 10, 2008 الكاتب قام بنشر يونيو 10, 2008 اخي الكريم / نزار السلام عليكم أشكرك كثيراً علي هذا الشرح الجميل والوافي وعلي المعلومات التي علمتها لي وإن شاء الله تكون في ميزان حسناتك وشكراً لك علي تذكيرك لنا بكلمتان خفيفتان علي اللسان أمس أما بالنسبة للملف name1 الحمد الله المشكلة زالت ولكن عندما أكتب بداخل هذا الملف تقف الكلمات المتحركة و لاتتحرك إلا إذا قفلت الملف وأنا أريدها تتحرك أمام المستخدم + هل ينفع أن أدمج كود الملف الأولname مع كود الملفname1 في ملف إكسل واحد بحيث تعمل الخاصيتين معاً وأنا آسف لكثرة أسئلتي لك وإنما أريد أن أتعلم و أستفيد من خبرتكم العظيمة ولك جزيل الشكر
نزار سليمان عيد قام بنشر يونيو 10, 2008 قام بنشر يونيو 10, 2008 اخي الكريم السلام عليكم اخي لاداعي للاسف فنحن هنا جميعا لنفيد ونستفيد وكما ذكرت اخي اطلب المولى عز وجل ان تكون في موازين حسناتي اخي الحبيب انظر للمرفق لقد تم دمج رسالة الترحيب والرسالة المتحركة انظر للمرفق مع الشكر Name_1.rar
nadereladly قام بنشر يونيو 10, 2008 الكاتب قام بنشر يونيو 10, 2008 شكراً جزيلاً اخي الكريم 'نزار سليمان عيد' و علي تواضعك ولكن عندما أكتب بداخل هذا الملف تقف الكلمات المتحركة و لاتتحرك إلا إذا قفلت الملف وأنا أريدها تتحرك أمام المستخدم إذا كان في الإمكان ذلك مع وافر التحية والتقدير
نزار سليمان عيد قام بنشر يونيو 10, 2008 قام بنشر يونيو 10, 2008 السلام عليكم اخي الكريم سؤال هل تستطيع ان تكتب بقلم واحد وبنفس الوقت بصفحتين مختلفتين؟ اكيد لا وهذا هنا في لحظة فتح الملف يبدأ بتنفيذ امر تحريك الرسالة وعند ادخال معلومة في خلية اخرى سيتوقف الماكرو ليبدا بتسجيل الخلية الجديدة ان شاء الله تكون المعلومة وصلت مع الشكر
gelani قام بنشر يونيو 10, 2008 قام بنشر يونيو 10, 2008 مع التحية والتقدير للأخ نزار سليمان وفقك الله وزادك علماً السؤال كيف استطعت منع المستخدم من التعديل في الكود الخاص بالنص المتحرك حيث حاولت محاكاته بالتعديل عليه أو نسخه ولم أتمكن مما يوحي بأنه يوجد طريقة ما للحماية من الكتابة والتعديل حتى لو استطاع المستخدم الدخول للكود . شاكرين جهودكم .
نزار سليمان عيد قام بنشر يونيو 10, 2008 قام بنشر يونيو 10, 2008 حياك الله اخي gelani لايوجد هناك اية حماية ولكن تم تثبيت قيمة الخلية A1 عن طريق كود VBA ولو رجعت لمشاركتي رقم 6 ستجد ان رسالة الترحيب بالسطر 7 وموقع الرسالة تم تحديده بالسطر العاشر وهو A1 وحياك الله مرة اخرى واي استفسار انا حاضر
nadereladly قام بنشر يونيو 10, 2008 الكاتب قام بنشر يونيو 10, 2008 شكري وتقديري لكل الأستاذة و المبرمجين الذين يردون علي جميع الأسئلة و خاصة الأستاذ / نزار عيد و تحياتي لموقع أوفيسينا ولكل المشتركين فيه
gelani قام بنشر يونيو 10, 2008 قام بنشر يونيو 10, 2008 الأخ نزار أشكركم على الرد وأفيدكم بأنني عند فتح الملف والضغط على ALT+F11 والذهاب إلى THISWORKBOOK والإطلاع على الكود ومحاولة تغيير الرسالة فلم اتمكن من ذلك وحاولت نسخ الكود الى ورقة أخرى ولم أتمكن أيضا حيث لا يسمح على الرغم من أنه غير محمي . ولعل أحد الأخوة يجرب ذلك ويوافينا علماً بأنني تأكدت من عدم وجود عيب في جهازي حيث أنني أستطيع تحرير الأكواد في الأوراق الأخرى . تحياتي وزتقديري لجهودكم رعاكم الله .
نزار سليمان عيد قام بنشر يونيو 11, 2008 قام بنشر يونيو 11, 2008 اخي gelani السلام عليكم فهمت قصدك بالطبع لن يتم التعديل على الكود او نسخه لانه في Run فيجب عليك اولا ايقاف الماكرو من break انظر للصورة break.bmp ثم تقوم بنسخ او تعديل الكود واي استفسار اعلمني من فضلك
الردود الموصى بها