حسام نور قام بنشر أغسطس 16, 2003 مشاركة قام بنشر أغسطس 16, 2003 السلام عليكم ورحمة الله وبركاته . شاكراً جهد أستاذي محمد طاهر . أتمنى أن يضع لنا ملف يحتوي على المثال المتعلق بتحديد عدد مرات فتح نفس الملف وبعد ذلك يغلق الملف نفسه بنفسه . خالص شكري رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 16, 2003 مشاركة قام بنشر أغسطس 16, 2003 السلام عليكم أخي حسام ، أرجو عدم توجيه المشاركة الي شخص بعينه كما هو في قواعد الاسئلة الموجودة أعلي القسم و ذلك ، حتي لا نغلق باب إجابة أفضل قد تأتي من شخص آخر سأعد المثال و أضعه بإذن الله تعالي :) 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر أغسطس 16, 2003 الكاتب مشاركة قام بنشر أغسطس 16, 2003 - في البدايه أعتذر عن الخروج عن التعليمات ونعدكم بالإلتزام التام . - ثانياً أشكرك على المثال الأكثر من رائع أستاذي محمد طاهر . - ولي طلب آخر وهو أنه في حال الرغبه في إخفاء الرساله التي تظهر لتخبرنا بعدد مرات فتح الملف فكيف يكون المثال .؟ خالص شكري رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 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 !!" رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر أغسطس 17, 2003 مشاركة قام بنشر أغسطس 17, 2003 السلام عليكم فكرة ممتازة أخي محمد ولكن .. أعتقد أنها ستسبب مشكلة في الطباعة حيث حدود الصفحة سوف يمتد لآخر سطر في الصفحة حتى ولو أخفى ذلك السطر .. علما أنه يمكن تفادي ذلك بعمل تحديد لمنطقة الطباعة . وإذا سمحت لي أخي محمد أقترح التالي : أن يتم التحديث في صفحة منفصلة ثم تخفى هذه الصفحة ويمكن كذلك استخدام الحماية حتى لا يتم فتحها والتلاعب فيها . تحياتي . رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر أغسطس 22, 2003 الكاتب مشاركة قام بنشر أغسطس 22, 2003 كرماً أستاذي محمد طاهر هل تخبرنا بطريقه أظهار الورقه sالمحميه بكلمة سر لإني لم أستطع أظهارها شاكراً لكم جهودكم مرة أخرى . رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 22, 2003 مشاركة قام بنشر أغسطس 22, 2003 Format Sheet Unhide و للتعديل فيها Tools Protection Unprotect Sheet و لا تنسي اعادة الحماية ثم الاخفاء بعد التعديل مع تحياتي رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر أغسطس 22, 2003 الكاتب مشاركة قام بنشر أغسطس 22, 2003 - علم وتم عمل اللازم .. شاكراً تعاونك أستاذي الفاضل رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر أكتوبر 31, 2003 الكاتب مشاركة قام بنشر أكتوبر 31, 2003 دكتورنا الغالي محمد طاهر لدي ملف قمت بأدراج ورقة عمل به بأسم ( S ) أيضاً لكي أستخدم الكود على ماهو عليه . وبعد ذلك نسخت الكود ووضعته بمكانه ولكن لم يعمل كما أنني أردت تغيير عدد مرات فتح الملف ولكن لم يغلق على العدد المطلوب فهل تسمح بمزيد من التوجيه بهذا الخصوص مشكوراً رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 31, 2003 مشاركة قام بنشر أكتوبر 31, 2003 السلام عليكم أخي حسام ، ياريت بلاش حكاية دكتور دري لو سمحت :$ بالنسبة للموضوع بالنسبة للجزء اللاول من الموضوع ، من المفترض أن يعمل الكود اذا تم نقله الي نفس المكان و تأكد من تطبيق نفس الشروط من حماية بكلمة سر و اخفاء بالنسبة للثاني لتغيير عدد مرات الفتح : If aa = 9 Then MsgBox "Used for 9 times , no more use is allowed !!" رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر نوفمبر 1, 2003 الكاتب مشاركة قام بنشر نوفمبر 1, 2003 - والله تستحق الدكتوراه .. وبعدين كويس أننا نتفائل وندعولك بالدكتوراه - بالنسبه للكود بعد تغيير عدد المرات فيه هل يشترط تغيير العدد أيضاً في الخليه ( b65535 ) ؟ أم أنه يكتفى بتغيير الكود فقط ؟ رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 1, 2003 مشاركة قام بنشر نوفمبر 1, 2003 الكود يمثل الحد الاقصي و الخلية يتم تسجيل عدد المرات المستهلكة منه فيها رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر نوفمبر 1, 2003 الكاتب مشاركة قام بنشر نوفمبر 1, 2003 - شكراً لك أستاذنا الغالي .. تمت العمليه بنجاح المشكله أني كنت أضع الكود في الشي ( S ) وقمت بالعديل لمكان الكود والحمد لله كله تمام .. ربنا ما يحرمنا من أفضالك وعلمك النافع رابط هذا التعليق شارك More sharing options...
adel123 قام بنشر يناير 18, 2004 مشاركة قام بنشر يناير 18, 2004 ارجوا توضيح ما يتعلق بالشيت s والرقم الموجود به انا تعاملت مع الملف وانه يعمل بشكل جيد وتم تنفيذ كل ما تفضلتوا به ولكن لي سؤال ما الرقم الموجود بالشيت s وهل يمكن تغيير المكان b65535 الى اي مكان اخر اقوم بتحديده انامع تعديله بالكود طبعا ثانيا هل يمكن يمكن الرجوع للملف بعد انتهاء عدد مرات الفتح ان اردت وشكرا لكم على هذا المجهود الرائع جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 18, 2004 مشاركة قام بنشر يناير 18, 2004 السلام عليكم يتم فى هذه الخلية تسجيل عدد مرات الفتح و نعم يمكن تغيير الخلية مع تغيير الكود مع تحياتي رابط هذا التعليق شارك More sharing options...
adel123 قام بنشر يناير 19, 2004 مشاركة قام بنشر يناير 19, 2004 شكرا استاذي العزيز قمت بتجربة تغير المكان وتمت بنجاح وربنا ما يحرمنا منك ومن علمك جزاكم الله خيراً مع تحياتي لاستاذي رابط هذا التعليق شارك More sharing options...
adel123 قام بنشر يناير 19, 2004 مشاركة قام بنشر يناير 19, 2004 استاذي الفاضل بعد العمل على الملف لاحظة بعد انتهاء عدد مرات الفتح يمكن فتح الملف والعمل به بالضغط على shift اثناء الفتح يعني يمكن لاي شخص الرجوع الى العمل مره اخرى في اي وقت ان شاء وكذالك يمكن الدخول على الكود ومعرفتة كلمة السر نرجوا توضيح ذلك وشكرا رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 20, 2004 مشاركة قام بنشر يناير 20, 2004 بالنسبة للكود يمكن حمايته بكلمة سر و بالنسبة للشيفت فالشيت سيكون محمي ، بكلمة سر و ايضا عليه ان يستنتج أنك تخزن الرقم فى الخلية المحدةة و الشيت المحدد رابط هذا التعليق شارك More sharing options...
adel123 قام بنشر يناير 20, 2004 مشاركة قام بنشر يناير 20, 2004 شكرا استاذي قمت فعلا بعمل كلمة سر للكود كالتالي نقوم اولا بفتح الكود ثم نتبع التالي tools ثم vbaproject properties ثم protection ثم اختيار كلمة سر اما بالنسبه لحماية الشيت هل سيادتكم تقصد حمايته من بداية العمل ( protect sheet ) واذا كان سيادتكم تقصد ذلك فلا معنى للعمل حيث انني اريد بعض الاشخاص يقوموا بالعمل بالشيت لمعرفة امكانياته قبل انتهاء المده المحدده فانا اريد الملف يعمل بكامل امكانياته حتى تنتهي المده المحدده وبعد ذلك اريد العمل يقفل ولا يستطيع اي احد العمل به اتمنى من الله ان نصل الى المطلوب ونأسف على كثرة الاستفسار ( الملف الذي اعمل على حمايته عباره عن شيت اساسي ويرتبط بـ 30 شيت في نفس الملف بالاضافه الى الشيت الوهمي s الذي حددنا به عدد مرات الفتح ) شكرا وتقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 20, 2004 مشاركة قام بنشر يناير 20, 2004 اما بالنسبه لحماية الشيت هل سيادتكم تقصد حمايته من بداية العمل ( protect sheet ) واذا كان سيادتكم تقصد ذلك فلا معنى للعمل حيث انني اريد بعض الاشخاص يقوموا بالعمل بالشيت لمعرفة امكانياته قبل انتهاء المده المحدده فانا اريد الملف يعمل بكامل امكانياته حتى تنتهي المده المحدده الحماية علي الشيت الذي نسجل فيه الرقم و ليس الملف ككل رابط هذا التعليق شارك More sharing options...
noran_mae قام بنشر يناير 9, 2018 مشاركة قام بنشر يناير 9, 2018 السلام عليكم ورحمة الله وبركاته الإخوه الأفاضل المشرفين على هذا الموقع الرائع شكرا لكم على مساعداتكم الرائعه وربنا يجعله فى ميزان حسناتكم عندى شيت الكنترول للمرحلة إلإبتدائية خانة النسبة كلما ظهرت نسبة مثلا 84.98 يقوم الكمبيوتر بتقريبها الى 85 وقمت بعمل فورمات وجربت جميع الطرق ولكن لم اتوصل لحل فهل هناك حل لمثل هذه المشكله ولكم جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
Darmear قام بنشر يوليو 22, 2018 مشاركة قام بنشر يوليو 22, 2018 (معدل) لو سمحتم في شي بخصوص هذا الامر واتمني الرد في اقرب وقت من سيادتكم مع العلم ان هذه هي اول مشاركه لي بالمنتدي اذا تم ضغط الملف واستعمال المفكوك لفتره ثم حذفه ثم فك المضغوط واستعماله وهكذا فبهذه الطريقه لن تجدي الحمايه نفعا بعدد المرات والافضل ربط العدد بالريجستري الخاص بالويندوز فهل من حل لديكم وشكرا لكم تم تعديل يوليو 22, 2018 بواسطه Darmear رابط هذا التعليق شارك 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.