عدد مرات فتح ملف اكسل

[ابو شرف]

بسم الله الرحمن الرحيم

الأخوان الأعزاء في المنتدى

سلام الله عليكم ورحمة وبركاته

اخواني الأعزاء ارجو الأٍستفسار حول امكانية امتلاك صلاحية فتح ملف اكسل لعدة مرات فقط اي ممكن ان اعطي الى شخص يفتح الملف خمس مرات والى شخص اخر في مكان اخر عشرة مرات والى شخص مائة مرة ( مع شرح وافي لهذه الميزة ) ارجو مساعدتي مع التقدير والأحترام . وفقكم الله لما فيه الخير وألأصلاح .

اخوكم

المحاسب

ابو شرف

26/8/2007

[أكرم الغامدي]

أخي أبو شرف لعل هذا الكود يفيدك فيما تريد

Option Explicit

Private Sub Form_Load()
    retvalue = GetSetting("A", "0", "Runcount")
    GD$ = Val(retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD$
    If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        Unload Me
    End If
End Sub

[h63]

اخى العزيز السلام عليكم ورحمة الله

برجاء اخىالعزيز اذا كنت تعلم اين نضع الكود مع الشرح بالتفصيل الممل

هشام

[band]

أخي أبو شرف لعل هذا الكود يفيدك فيما تريد

Option Explicit

Private Sub Form_Load()
    retvalue = GetSetting("A", "0", "Runcount")
    GD$ = Val(retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD$
    If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        Unload Me
    End If
End Sub

اين تستخدم .. نرجو الشرح للأهمية

[أكرم الغامدي]

تستخدم في الكود الخاص بفتح كتاب الاكسيل

Private Sub Workbook_Open()

End Sub

وإن شاء الله في حال أصلح المنتدى تحميل الملفات سأضع مثال على ذلك إذا لم تتوصلوا للحل.

تم تعديل سبتمبر 1, 2007 بواسطه أكرم الغامدي

[band]

تستخدم في الكود الخاص بفتح كتاب الاكسيل

Private Sub Workbook_Open()

End Sub

وإن شاء الله في حال أصلح المنتدى تحميل الملفات سأضع مثال على ذلك إذا لم تتوصلوا للحل.

لم اتمكن من استخدامه

اعمل لنا مثال على الاكسل وارفعه لنا ولو في موقع اخر

وشكرا لك

[أكرم الغامدي]

أعتذر عن التأخير.

___________________.rar

[m_abdelsamad]

أخوى أكرم يبدو لي أن هذا الملف لا يعمل وقد حاولت معة كثيراً فيسمح لي بفتحة أكثر من 5 مرات فبرجاء مراجعة الكود ورفع الملف الصحيح وجزاك الله خيراً

[h63]

السلام عليكم اخى العزيز

مشكور وحياك الله الملف يعمل جيد جدا

هشام

[h63]

السلام عليكم

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

[شحادة بشير]

السلام عليكم

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

وعليكم السلام ورحمة الله وبركاته

آخذ عقلك أبو أكرم

هذا الأخ أكرم الغامدي وليس أبو أكرم

لكن ما تخجل إليك الطريقة

افتح أي ملف إكسل واذهب إلى:

أدوات---ماكرو----الأمان

اجعل الأمان مرتفع جداً ومن التبويب ناشرون موثوقون ألغ علامة الصح من أمام

"الثقة بالوصول إلى مشروع فيجوال بيسك"

الآن احفظ التغييرات

اذهب إلى ملف الأخ أكرم الغامدي سيفتح معك ويعطيك رسالة تعطيل الماكرو

اضغط عليها وادخل لمشروع الفيجول عن طريق:

أدوات---ماكرو---محرر فيجوال بيسك

في الورقة المسماة thisworkbook ستجد هذه العبارة

If GD > 3 Then

غير رقم 3 واجعله مثلاً 1000

احفظ التغييرات كاملة

الآن عد للماكرو وأعده كما كان في المستوى المنخفض بالإضافة إلى الثقة بمشروع فيجوال بيسك

وهكذا سيفتح الملف ولن غلق إلا بعد أن تفتحه أكثر من 1000

تحياتي لك

[m_abdelsamad]

أخي أبو أكرم مشكور التوضيح لكن ما تقولة يلغى فائدة الكود بمعنى لو انني أدخلت هذا الكود لحماية برنامج معين يمكن للمستخدم إختراقة من خلال تعطيل الماكرو وهذا ما لا نريده.

مشكور أخى وأرجو معالجة الكود بطريقة لا تمكن المستخدم من الدخول على الملف حتى لو تم تعطيل الماكرو .

شكراً وجزاك الله خيراً.

[شحادة بشير]

أخي أبو أكرم مشكور التوضيح لكن ما تقولة يلغى فائدة الكود بمعنى لو انني أدخلت هذا الكود لحماية برنامج معين يمكن للمستخدم إختراقة من خلال تعطيل الماكرو وهذا ما لا نريده.

مشكور أخى وأرجو معالجة الكود بطريقة لا تمكن المستخدم من الدخول على الملف حتى لو تم تعطيل الماكرو .

شكراً وجزاك الله خيراً.

أخي الحبيب لا يوجد شيء اسمه حماية مطلقة

باختصار: حماية الأوفيس من أضعف الحمايات ويمكن الوصول إليها بسهولة

لقد تم فك حماية ملفات أصعب من هذا بالكثير الكثير

بالرغم من ذلك ففكرة الأخ أكرم رائعة ومفيدة وليس كل شخص يجيد الفك

حياك الله

[m_abdelsamad]

شكراً وجزاك الله خيراً

[أكرم الغامدي]

أخي أبو أكرم أنت فعلا تأخذ العقل حبيبي بارك الله فيك.

أشكرك على المساندة والمساعدة لإخوانك بهذا المنتدي الذي نحن فيه لهذا السبب.

وأشكر كل من قام بالمرور والتعليق في الموضوع.

وأحب أن أضيف معلومة صغيرة:

أنه يوجد برنامج يتحكم بأي ملف إكسل تريده ليجعله كملف تنفيذي دون الحاجة لتمكين وحدات الماكرو.

وهذه ملفات محسّنة بالمرفقات.

الملف (3Times Only) نفس الملف القديم ولكن به تغيير بسيط.

الملف (New Chance) يعطي فرصة جديدة أي يصفر العملية من جديد.

3_Times_Only.rar

New_Chance.rar

تم تعديل ديسمبر 28, 2007 بواسطه أكرم الغامدي

[شحادة بشير]

وأحب أن أضيف معلومة صغيرة:

أنه يوجد برنامج يتحكم بأي ملف إكسل تريده ليجعله كملف تنفيذي دون الحاجة لتمكين وحدات الماكرو.

السلام عليكم وربارك الله بك أخي الحبيب

هل تقصد برنامج لتحويل الإكسل لملف تنفيذي (هذا أعرفه)

إن كنت تقصد غيره فنرجو التوضيح

بو ركت أخي الحبيب

[gelani]

رائع جداً جداً

وفقكم الله جميعاً وهنا أود أسأل الأخ أكرم الغامدي وفقه الله عن الملف التنفيذي الذي يغني عن استخدام الماكرو مع الشرح إذا كان ذلك ممكن .

حيث أنني أضطر الى تخفيض مستوى الأمان وفي حالة تشغيل البرنامج على جهاز به الأمان مرتفع يتوقف عمل البرنامج إلى أن يتم تخفيض مستوى الأمان وتشغيل البرنامج من جديد .

تحياتي وتقديري .

[nahas soft]

شكرا

[أكرم الغامدي]

أعتذر عن التأخير في الرد، وذلك بسبب عدم إعلامي من قبل المنتدى بالمشاركات الجديدة على البريد، ولولا أنني أرجع كل فترة للمواضيع القديمة المشترك بها لما علمت عن وجود هذه الردود.

وأحب أن أضيف معلومة صغيرة:

أنه يوجد برنامج يتحكم بأي ملف إكسل تريده ليجعله كملف تنفيذي دون الحاجة لتمكين وحدات الماكرو.

السلام عليكم وربارك الله بك أخي الحبيب

هل تقصد برنامج لتحويل الإكسل لملف تنفيذي (هذا أعرفه)

إن كنت تقصد غيره فنرجو التوضيح

بو ركت أخي الحبيب

نعم أخي الحبيب هذا ما أقصده.

رائع جداً جداً

وفقكم الله جميعاً وهنا أود أسأل الأخ أكرم الغامدي وفقه الله عن الملف التنفيذي الذي يغني عن استخدام الماكرو مع الشرح إذا كان ذلك ممكن .

حيث أنني أضطر الى تخفيض مستوى الأمان وفي حالة تشغيل البرنامج على جهاز به الأمان مرتفع يتوقف عمل البرنامج إلى أن يتم تخفيض مستوى الأمان وتشغيل البرنامج من جديد .

تحياتي وتقديري .

أخي جيلاني هذا رابط البرنامج ومعه شرح وافي من استاذنا هادي سالم جزاه الله عنا خير الجزاء.

وجزى الله خيراً كل من دعى وشكر وشارك في هذا الموضوع.

[خالد رخا]

رائع وجزاك الله خيراً

ولى سؤال من فضلك هل يوجد برنامج لفك الحماية عن ملفات الكسيل ( معرفة كلمة المرور )

أرجوا الافادة

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

الأساتذة - اكرم الغامدي و ابو اكرم

مشكورين جدا - وما قصرتم

الله يوفقكم دائما الى ما يحب ويرضى

[أبو جديد]

ألف شكر لكم يا شباب