انا كتبت برنامج في ال vba و لكن يوجد مشكلتين
الاولى : هو في اضافة button للmneu bar يقوم بتنفيذ البرنامج عند الضغظ عليه
الثانية : في نقل البرنامج حيث اني احتاج ان انقل البرنامج ليعمل في اجهزة اخرى و لكن لا اعرف الطريقة و اريده ان يعمل بشكل مباشر عند تشغيل الword
يرجي مراجعة قواعد طرح الاسئلة المثبتة ، بخصوص البحث ، و تعدد الاسئلة ووضوح العنوان
بالنسبة للسؤال الأول : تم تناوله فى مشاركة سابقة
و بالنسبة للثاني
هل تريد أن يعمل البرنامح فى أي ملف وورد
أم تقصد عند فتح الملف الذي به البرنامج فقط
جزاك الله خيرا بالنسبة للسؤال الاول ارجوا ان تفيدني بعنوان المشاركة جزاك الله خيرا اما بالنسبة للسؤال الثاني فكيف يمكن ان اجعل البرنامج يعمل في الملف الذي اريده فقط و جزاك الله خيرا و اعتذر على ما وقعت فيه من خطا حول قواعد المنتدى
أخي الكريم ، لا داعي للاعتذار ، فقط علي أن أنبه للقواعد ليستفيد الجميع من الموضوع لاحقا
:)
لتشغيل ماكرو عند الفتح:
راجع هذا الموضوع
إضافة رقم متسلسل الي ملف الوورد عند فتحه فى كل مرة
http://www.arabteam2000.com/vb/showthread....&threadid=25101
لنفرض أنك تريد تشغيل ماكرو اسمه mm عند الفتح ، فتستدعيه فى حدث عند الفتح هكذا
Private Sub Document_Open() mm End Sub
و لتخصيص زر لتنفيذ ماكرو
تسجيل الماكرو و تخصيصه الي زر و الي قائمة
http://www.arabteam2000.com/vb/showthread....&threadid=15288
الحمد لله توصلت لحل مبدئي وهو كالتالي
sub autoopen()
subname
end sub
ويكون ال subname هو اسم subالمراد تنفيذه
ولكن يوجد مشكلة في التنفيذ على ال winword 2000,xpحيث انه يعطي رسالة تقول the macros in this project are disabled فما الحل برئيكم
Tools
Macro
security
security level
و اجعله
medium
or
low
و فى الاولي يسأل عن التفعيل
و فى الثانية يكون التفعيل بدون سؤال
ثم اعد فتح الملف بعد اغلاقه
جزاك الله خيرا الطريقة ناجحة و شكرا لك على المساعدة
جزاك الله خيرا اخي محمد وجميع الاخوة المشاركين في المنتدى و لكن هل من الممكن ان يكون من خصائص الملف ان الsecurity له midum او law بحيث يمكن نقل الملف دون الحاجة الى اعادةsecurity له مرة اخرى
جزاكم الله خيرا .
نعم ممكن ، و ما المانع
مادمت تعرف ما فيه
فالخوف يكون من الملفات المجهولة ، حيث أن هناك بعض الفيروسات المدمرة تكون مصنوعة بال vba علي شكل ماكروهات تنفذ فور فتح الملف
لهذا توجد هذه الخاصية
مع تحياتي
جزاك الله خيرا اخي محمد و لكن المقصود في السؤال قد يكون غير واضح و المقصود هو هل توجد طريقة عندما انقل الملف من جهاز الى اخر لا تستدعي مني ان اعيد عملية الاختيار لتحديد الsecurity بخيار law او medium و جزاك الله خيرا
يمكن التغيير عند فتح الملف بالكود التالي
[CODE]Private Sub Workbook_Open()
Application.SendKeys "{f10}"
Application.SendKeys "tms"
Application.SendKeys "{tab}"
Application.SendKeys "l"
Application.SendKeys "{ENTER}"
End Subو إضافة الي ذلك ، يمكن السؤال عند غلق الملف ، هل ترغب فى التغيير ام لا
و من ثم تحديد هل تريد حماية متوسطة m أم قصوي H و من ثن تنفيذ التغيير قبل غلق الملف و ذلك بالكود التالي
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
X = MsgBox("DO YOU WANT TO MODIFY SECURITY LEVEL ??", vbYesNo, "check for security level")
If X = vbNo Then Exit Sub
zz:
z = UCase(InputBox("Press M for Medium adn H for High"))
If z = "M" Then
Application.SendKeys "{f10}"
Application.SendKeys "tms"
Application.SendKeys "{tab}"
Application.SendKeys "m"
Application.SendKeys "{ENTER}"
Exit Sub
ElseIf z = "H" Then
Application.SendKeys "{f10}"
Application.SendKeys "tms"
Application.SendKeys "{tab}"
Application.SendKeys "h"
Application.SendKeys "{ENTER}"
Exit Sub
Else
GoTo zz
End If
End Subمع تحياتي
جزاك الله خيرا لكن الطريقة لم تنجح معي في الورد مع اني قمت بتغيير workbook الى doemnt حيث اصبح
Private Sub document_Open()
لا أدري لماذا أعددت المثال علي الاكسيل
ربما لأني أحب الاكسيل :D
الفارق أن الاحرف ستكون مختلفة
و هذه الاحرف تمثل اختصارات تشغيل القوائم ، فافتح برنامج الوورد ، و اكتب الاختصارات الجديدة ، ثم عدل الكود
و لو فيه مشكلة أخبرني
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…