حسام نور قام بنشر أغسطس 16, 2003 قام بنشر أغسطس 16, 2003 السلام عليكم ورحمة الله وبركاته . شاكراً جهد أستاذي محمد طاهر . أتمنى أن يضع لنا ملف يحتوي على المثال المتعلق بتحديد عدد مرات فتح نفس الملف وبعد ذلك يغلق الملف نفسه بنفسه . خالص شكري
محمد طاهر عرفه قام بنشر أغسطس 16, 2003 قام بنشر أغسطس 16, 2003 السلام عليكم أخي حسام ، أرجو عدم توجيه المشاركة الي شخص بعينه كما هو في قواعد الاسئلة الموجودة أعلي القسم و ذلك ، حتي لا نغلق باب إجابة أفضل قد تأتي من شخص آخر سأعد المثال و أضعه بإذن الله تعالي :) 1
محمد طاهر عرفه قام بنشر أغسطس 16, 2003 قام بنشر أغسطس 16, 2003 Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save End Sub و تسجيل الرقم يتم فى الخلية b65535 و تم تغيير لونها الي الابيض للتمويه و يمكن اضافة التحكم فى مستوي حماية الماكرو ( تفعيل الكود فى الملف تلقائيا ) و يوجد مثال ف الارشيف علي ذلك Countopens.zip
حسام نور قام بنشر أغسطس 16, 2003 الكاتب قام بنشر أغسطس 16, 2003 - في البدايه أعتذر عن الخروج عن التعليمات ونعدكم بالإلتزام التام . - ثانياً أشكرك على المثال الأكثر من رائع أستاذي محمد طاهر . - ولي طلب آخر وهو أنه في حال الرغبه في إخفاء الرساله التي تظهر لتخبرنا بعدد مرات فتح الملف فكيف يكون المثال .؟ خالص شكري
محمد طاهر عرفه قام بنشر أغسطس 17, 2003 قام بنشر أغسطس 17, 2003 السلام عليكم يكون ذلك بازالة السطر التالي MsgBox "This File was used " & bb & " Times " أو وضع علامة ' فى بدايته 'MsgBox "This File was used " & bb & " Times " و نفس الشيء مع الرسالة التي تخبر ببلوغ عدد المرات 5 MsgBox "Used for 5 times , no more use is allowed !!"
أبو هادي قام بنشر أغسطس 17, 2003 قام بنشر أغسطس 17, 2003 السلام عليكم فكرة ممتازة أخي محمد ولكن .. أعتقد أنها ستسبب مشكلة في الطباعة حيث حدود الصفحة سوف يمتد لآخر سطر في الصفحة حتى ولو أخفى ذلك السطر .. علما أنه يمكن تفادي ذلك بعمل تحديد لمنطقة الطباعة . وإذا سمحت لي أخي محمد أقترح التالي : أن يتم التحديث في صفحة منفصلة ثم تخفى هذه الصفحة ويمكن كذلك استخدام الحماية حتى لا يتم فتحها والتلاعب فيها . تحياتي .
محمد طاهر عرفه قام بنشر أغسطس 18, 2003 قام بنشر أغسطس 18, 2003 السلام عليكم تم تعديل الملف بتفيذ ما تفضل به الأخ أبو هادي : التسجيل يتم فى نفس الخلية b65535 و لكن فى ورقة عمل تسمي S و هي مخفية و محمية بكلمة سر = m Private Sub Workbook_Open() Application.ScreenUpdating = False Sheets("s").Visible = True ActiveWorkbook.Sheets("s").Select ActiveSheet.Unprotect ("m") Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" ActiveSheet.Protect Password:="m", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWindow.SelectedSheets.Visible = False Application.ScreenUpdating = True Application.ActiveWorkbook.Save Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 ActiveSheet.Protect Password:="m", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWindow.SelectedSheets.Visible = False Application.ScreenUpdating = True Application.ActiveWorkbook.Save End Sub و لتفريغ الخلية بعد استفاذ الخمسة مرات لا نفعل الماكرو اذا سأل عند فتح الملف فى حالة مستوي الحماية المتوسط ، أو نضغط شيفت مع الفتح لايقاف الماكرو فى حالة التشغيل التلقائي للماكروهات ثم نظهر الورقة المسماة s ثم نفك حمايتها ، بكلمة السر M ثم نفرغ الخلية التي نسجل بها القيمة و بالنسبة للكود تم اضافة Application.ScreenUpdating = False حتي لا يري المستخدم عملية اظهار و فك حماية الشيت من أجل تسجيل القيمة بها و أعيد تفعيلها قبل الخروج أيضا أضيفت كلمة سر لللحماية عند تفعيلها ActiveSheet.Protect Password:="m" و استخدمنا نفس كلمة السر عند فك الحماية ActiveSheet.Unprotect ("m") مع تحياتي Countopens2.zip 1
حسام نور قام بنشر أغسطس 22, 2003 الكاتب قام بنشر أغسطس 22, 2003 كرماً أستاذي محمد طاهر هل تخبرنا بطريقه أظهار الورقه sالمحميه بكلمة سر لإني لم أستطع أظهارها شاكراً لكم جهودكم مرة أخرى .
محمد طاهر عرفه قام بنشر أغسطس 22, 2003 قام بنشر أغسطس 22, 2003 Format Sheet Unhide و للتعديل فيها Tools Protection Unprotect Sheet و لا تنسي اعادة الحماية ثم الاخفاء بعد التعديل مع تحياتي
حسام نور قام بنشر أغسطس 22, 2003 الكاتب قام بنشر أغسطس 22, 2003 - علم وتم عمل اللازم .. شاكراً تعاونك أستاذي الفاضل
حسام نور قام بنشر أكتوبر 31, 2003 الكاتب قام بنشر أكتوبر 31, 2003 دكتورنا الغالي محمد طاهر لدي ملف قمت بأدراج ورقة عمل به بأسم ( S ) أيضاً لكي أستخدم الكود على ماهو عليه . وبعد ذلك نسخت الكود ووضعته بمكانه ولكن لم يعمل كما أنني أردت تغيير عدد مرات فتح الملف ولكن لم يغلق على العدد المطلوب فهل تسمح بمزيد من التوجيه بهذا الخصوص مشكوراً
محمد طاهر عرفه قام بنشر أكتوبر 31, 2003 قام بنشر أكتوبر 31, 2003 السلام عليكم أخي حسام ، ياريت بلاش حكاية دكتور دري لو سمحت :$ بالنسبة للموضوع بالنسبة للجزء اللاول من الموضوع ، من المفترض أن يعمل الكود اذا تم نقله الي نفس المكان و تأكد من تطبيق نفس الشروط من حماية بكلمة سر و اخفاء بالنسبة للثاني لتغيير عدد مرات الفتح : If aa = 9 Then MsgBox "Used for 9 times , no more use is allowed !!"
حسام نور قام بنشر نوفمبر 1, 2003 الكاتب قام بنشر نوفمبر 1, 2003 - والله تستحق الدكتوراه .. وبعدين كويس أننا نتفائل وندعولك بالدكتوراه - بالنسبه للكود بعد تغيير عدد المرات فيه هل يشترط تغيير العدد أيضاً في الخليه ( b65535 ) ؟ أم أنه يكتفى بتغيير الكود فقط ؟
محمد طاهر عرفه قام بنشر نوفمبر 1, 2003 قام بنشر نوفمبر 1, 2003 الكود يمثل الحد الاقصي و الخلية يتم تسجيل عدد المرات المستهلكة منه فيها
حسام نور قام بنشر نوفمبر 1, 2003 الكاتب قام بنشر نوفمبر 1, 2003 - شكراً لك أستاذنا الغالي .. تمت العمليه بنجاح المشكله أني كنت أضع الكود في الشي ( S ) وقمت بالعديل لمكان الكود والحمد لله كله تمام .. ربنا ما يحرمنا من أفضالك وعلمك النافع
adel123 قام بنشر يناير 18, 2004 قام بنشر يناير 18, 2004 ارجوا توضيح ما يتعلق بالشيت s والرقم الموجود به انا تعاملت مع الملف وانه يعمل بشكل جيد وتم تنفيذ كل ما تفضلتوا به ولكن لي سؤال ما الرقم الموجود بالشيت s وهل يمكن تغيير المكان b65535 الى اي مكان اخر اقوم بتحديده انامع تعديله بالكود طبعا ثانيا هل يمكن يمكن الرجوع للملف بعد انتهاء عدد مرات الفتح ان اردت وشكرا لكم على هذا المجهود الرائع جزاكم الله خيرا
محمد طاهر عرفه قام بنشر يناير 18, 2004 قام بنشر يناير 18, 2004 السلام عليكم يتم فى هذه الخلية تسجيل عدد مرات الفتح و نعم يمكن تغيير الخلية مع تغيير الكود مع تحياتي
adel123 قام بنشر يناير 19, 2004 قام بنشر يناير 19, 2004 شكرا استاذي العزيز قمت بتجربة تغير المكان وتمت بنجاح وربنا ما يحرمنا منك ومن علمك جزاكم الله خيراً مع تحياتي لاستاذي
adel123 قام بنشر يناير 19, 2004 قام بنشر يناير 19, 2004 استاذي الفاضل بعد العمل على الملف لاحظة بعد انتهاء عدد مرات الفتح يمكن فتح الملف والعمل به بالضغط على shift اثناء الفتح يعني يمكن لاي شخص الرجوع الى العمل مره اخرى في اي وقت ان شاء وكذالك يمكن الدخول على الكود ومعرفتة كلمة السر نرجوا توضيح ذلك وشكرا
محمد طاهر عرفه قام بنشر يناير 20, 2004 قام بنشر يناير 20, 2004 بالنسبة للكود يمكن حمايته بكلمة سر و بالنسبة للشيفت فالشيت سيكون محمي ، بكلمة سر و ايضا عليه ان يستنتج أنك تخزن الرقم فى الخلية المحدةة و الشيت المحدد
adel123 قام بنشر يناير 20, 2004 قام بنشر يناير 20, 2004 شكرا استاذي قمت فعلا بعمل كلمة سر للكود كالتالي نقوم اولا بفتح الكود ثم نتبع التالي tools ثم vbaproject properties ثم protection ثم اختيار كلمة سر اما بالنسبه لحماية الشيت هل سيادتكم تقصد حمايته من بداية العمل ( protect sheet ) واذا كان سيادتكم تقصد ذلك فلا معنى للعمل حيث انني اريد بعض الاشخاص يقوموا بالعمل بالشيت لمعرفة امكانياته قبل انتهاء المده المحدده فانا اريد الملف يعمل بكامل امكانياته حتى تنتهي المده المحدده وبعد ذلك اريد العمل يقفل ولا يستطيع اي احد العمل به اتمنى من الله ان نصل الى المطلوب ونأسف على كثرة الاستفسار ( الملف الذي اعمل على حمايته عباره عن شيت اساسي ويرتبط بـ 30 شيت في نفس الملف بالاضافه الى الشيت الوهمي s الذي حددنا به عدد مرات الفتح ) شكرا وتقبلوا تحياتي
محمد طاهر عرفه قام بنشر يناير 20, 2004 قام بنشر يناير 20, 2004 اما بالنسبه لحماية الشيت هل سيادتكم تقصد حمايته من بداية العمل ( protect sheet ) واذا كان سيادتكم تقصد ذلك فلا معنى للعمل حيث انني اريد بعض الاشخاص يقوموا بالعمل بالشيت لمعرفة امكانياته قبل انتهاء المده المحدده فانا اريد الملف يعمل بكامل امكانياته حتى تنتهي المده المحدده الحماية علي الشيت الذي نسجل فيه الرقم و ليس الملف ككل
noran_mae قام بنشر يناير 9, 2018 قام بنشر يناير 9, 2018 السلام عليكم ورحمة الله وبركاته الإخوه الأفاضل المشرفين على هذا الموقع الرائع شكرا لكم على مساعداتكم الرائعه وربنا يجعله فى ميزان حسناتكم عندى شيت الكنترول للمرحلة إلإبتدائية خانة النسبة كلما ظهرت نسبة مثلا 84.98 يقوم الكمبيوتر بتقريبها الى 85 وقمت بعمل فورمات وجربت جميع الطرق ولكن لم اتوصل لحل فهل هناك حل لمثل هذه المشكله ولكم جزيل الشكر والتقدير
Darmear قام بنشر يوليو 22, 2018 قام بنشر يوليو 22, 2018 (معدل) لو سمحتم في شي بخصوص هذا الامر واتمني الرد في اقرب وقت من سيادتكم مع العلم ان هذه هي اول مشاركه لي بالمنتدي اذا تم ضغط الملف واستعمال المفكوك لفتره ثم حذفه ثم فك المضغوط واستعماله وهكذا فبهذه الطريقه لن تجدي الحمايه نفعا بعدد المرات والافضل ربط العدد بالريجستري الخاص بالويندوز فهل من حل لديكم وشكرا لكم تم تعديل يوليو 22, 2018 بواسطه Darmear
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.