اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

بسم الله ما شاء الله على هذا المنتدى 

انا بصراحة استفدت منه كتير وكل معلومة احصل عليها ادعى لصاحبها

 

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

المشكلة عندى بعد صدور الملف ليهم بصيغة xls 

بعض المستخدمين يسجلو الملف على اصدار احدث من 2003 وبكدا يكون كل الاكواد اتلغت

هل فيه طريقة لعدم حفظ الملف على اصدار حديث عن 2003 

ولسيادتكم جزيل الشكر

ابراهيم

قام بنشر

السلام عليكم

 

بعض المستخدمين يسجلو الملف على اصدار احدث من 2003

 

 

اذا تقصد حفظ باسم

استخدم هذا الكود في موديل ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = True
End Sub

تحياتي

  • Like 1
قام بنشر (معدل)

السلام عليكم

 

بعض المستخدمين يسجلو الملف على اصدار احدث من 2003

 

 

اذا تقصد حفظ باسم

استخدم هذا الكود في موديل ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = True
End Sub

تحياتي

بارك الله فيك اخى عبد الله

تمام هو المطلوب تمام وبارك الله فيك

لى طلب آخر لو سمحت

1) هل فيه طريقة لإجبار من يفتح الملف على تقليل الحماية فى الاصدارات الـ 2003 و 2007 و 2010

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

2) ممكن اعمل ايه فى الملف لضمان استلامى لنفس الملف الذى ارسلته مثلا علامة الوتر مارك حتى يصعب على احد عمل مثل هذا الملف او اى شئ آخر مثل summary منفذ الملف

وجزاكم الله خيرا

تم تعديل بواسطه hema_hn
قام بنشر

بالنسبة لطلبك الاول ..

شاهد الرابط التالي .. ان شاء الله سيفي بطلبك

 

http://www.officena.net/ib/index.php?showtopic=46640&hl=%2B%D8%B1%D8%B3%D8%A7%D9%84%D8%A9+%2B%D9%84%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88#entry280124

 

وبالنسبة لطلبك الثاني بخصوص الخصوصية

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

  • Like 1
قام بنشر

بالنسبة لطلبك الاول ..

شاهد الرابط التالي .. ان شاء الله سيفي بطلبك

 

http://www.officena.net/ib/index.php?showtopic=46640&hl=%2B%D8%B1%D8%B3%D8%A7%D9%84%D8%A9+%2B%D9%84%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88#entry280124

 

وبالنسبة لطلبك الثاني بخصوص الخصوصية

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

بارك الله فيك اخى 

وشكرا لاهتمامكم  

قام بنشر (معدل)

بالنسبة لطلبك الاول ..

شاهد الرابط التالي .. ان شاء الله سيفي بطلبك

 

http://www.officena.net/ib/index.php?showtopic=46640&hl=%2B%D8%B1%D8%B3%D8%A7%D9%84%D8%A9+%2B%D9%84%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88#entry280124

 

وبالنسبة لطلبك الثاني بخصوص الخصوصية

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

الاخ الفاضل حمادة

بعد وضع كود اخونا / عبد الله باقشير وهو 

   If SaveAsUI Then Cancel = True

ووضع تمكين الماكرو حق حضرتك فى موضوع 

http://www.officena.net/ib/index.php?showtopic=46640&hl=%2B%D8%B1%D8%B3%D8%A7%D9%84%D8%A9+%2B%D9%84%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88#entry280124

كانت خطأ فى تنفيذ الماكرو

لو امكن نفس مشاركة سيادتك مع كود عدم امكانية "حفظ باسم" حق اخونا / عبد الله باقشير

ولسيادتكم جزيل الشكر

تم تعديل بواسطه hema_hn
قام بنشر

السلام عليكم

الاخ الكريم / hema_hn

بارك الله فيك

وعذرا للتأخير في الرد فلم اشاهد الموضوع مرة ثانية الا اليوم

تقبل اعتذاري

 

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

حيث قمت بتغيير وظيفة SAVE AS  لتكون SAVE مباشرة والغاء وظيفة حفظ باسم

حيث عند الضغط  SAVE  او  SAVE AS  يقوم الملف بالحفظ مباشرة

ارجو ان يفي بطلبك وفي انتظار ردك

تقبل خالص تحياتي

 

 

رسالة تطلب من المستخدم تمكين الماكرو مع عدم الحفظ باسم .rar

  • Like 1
قام بنشر

ماشاء الله والله اكبر عليك اخى حمادة 

بجد روعة 

وربنا يباركلك

 

هو فيه سؤال بس برحتك يعنى انا مش عايز اتقل عليك 

بعد ما عملت نفس الخطوات وفعلا الملف اشتغل كويس جدا وعلى اكمل وجه

عملت حماية workbook حصل تعارض مع الملف ولقيت بجز فلغيته اكيد الاكواد هنا بتتعارض مع حماية كاملة للوركبوك

فلو تعارض معاه فأكيد ربنا يكرم كدا واللاقى اكواد لحماية عدم نسخ ورقة او نقلها او عدم اضافة ورقة

ولك منى كل حب واحترام

قام بنشر (معدل)

ماهي طريقة الحماية  ... وما هي الاكواد الاخري التي تتعارض

فالبفعل كود رساله الماكرو ... به بعض الحواجز

 

شاهد اخي الملف التالي ع السريع هل تقصد اخي الكريم هكذا

 

 

حماية الورقة من حذف الأوراق أو زيادة أوراق.rar

تم تعديل بواسطه حمادة عمر
قام بنشر

ماهي طريقة الحماية  ... وما هي الاكواد الاخري التي تتعارض

فالبفعل كود رساله الماكرو ... به بعض الحواجز

 

شاهد اخي الملف التالي ع السريع هل تقصد اخي الكريم هكذا

 

 

attachicon.gifحماية الورقة من حذف الأوراق أو زيادة أوراق.rar

اخى بارك الله فيك

 

بعد تشغيل الملف الى فى مشاركتك رقم 13 الملف اشتغل تماما بمعنى

ان مفيش حد من المستخدمين حيعرف يفتح الملف الا لما يقلل حماية المايكرو low وكمان مش حيعرف يعمل save as

المشكلة الى قابلتنى لما عملت للملف ده حماية للـ workbook 

حصل debug وانا عايز اعمل حماية للـ workbook عشان مسمحش لحد ينسخ ورقه او يضيف ورقة او يغير اسم 

لك منى كل حب وتقدير اخى حمادة

:)

قام بنشر

هل قمت باضافة الاكواد في الملف الاخير الي ملفك ؟؟

قام بنشر

هل قمت باضافة الاكواد في الملف الاخير الي ملفك ؟؟

اخى حمادة 

مرفق ملف سيادتكم بعد اضافة الكود الأخير 

فيه رسالة بتطلعلى

compile error:
Ambiguous name detected: workbook_open
وشكرا لأهتمامك
ابراهيم
  • 3 weeks later...
قام بنشر

السلام عليكم

الاخ الكريم / hema_hn

بارك الله فيك

وعذرا للتأخير في الرد فلم اشاهد الموضوع مرة ثانية الا اليوم

تقبل اعتذاري

 

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

حيث قمت بتغيير وظيفة SAVE AS  لتكون SAVE مباشرة والغاء وظيفة حفظ باسم

حيث عند الضغط  SAVE  او  SAVE AS  يقوم الملف بالحفظ مباشرة

ارجو ان يفي بطلبك وفي انتظار ردك

تقبل خالص تحياتي

 

 

attachicon.gifرسالة تطلب من المستخدم تمكين الماكرو مع عدم الحفظ باسم .rar

اخى حمادة 

هل يمكن اضافة هذا الكود الى ملف تمكين الماكرو وعدم حفظ باسم

انا حاولت بس كان فيه تعارض انا قد حصلت عليه من منتدانا العريق

وشكرا لك

اسم الملف.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information