تامر ثروت قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 (معدل) اريد فتح ملف ورد على شكل عنصر برمز على رز تحكم فى الاكسيل او ايجاد حماية للصفحة الشرح بالمرفق ورقة عمل .rar تم تعديل نوفمبر 23, 2014 بواسطه تامر ثروت رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 (معدل) اريد فتح ملف ورد على شكل عنصر برمز على رز تحكم فى الاكسيل او ايجاد حماية للصفحة الشرح بالمرفق اخى الفاضل سؤالك منقسم الى جزئين .. الأول فتح وورد عن طريق زر أمر بالإكسل .. اليك الكود التالى افتح Module جديد والصق الكود التالى به مع مراعاة تغيير اسم ومسار الملف الذي تريد فتحه Sub openword() Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open (ThisWorkbook.Path & "\Ahmed.docx") objWord.Activate End Sub أما بخصوص النقطة الثانية اذا كنت تريد باسورد لفتح ملف الإكسل فقط دون الحماية فاختر ملف File ثم حفظ باسم Save As ومن الأسفل ستجد كلمة أدوات Tools اختر منها خيارات عامة General Options ثم اكتب الباسورد التى تريدها لفتح الملف او للتعديل عليه ثم اعد كتابتها وشكرا مرفق ملف يوضح الإجابة على سؤاليك خالص تحياتي openword.rar تم تعديل نوفمبر 23, 2014 بواسطه ibn_egypt رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 تسلم يا ابن مصر نشاط رائع بارك الله فيك بصراحة بيعجبني شغلك جدا .. مستوى متميز وراقي 1 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 (معدل) تسلم يا ابن مصر نشاط رائع بارك الله فيك بصراحة بيعجبني شغلك جدا .. مستوى متميز وراقي أخى وأستاذي الفاضل أ.ياسر كلماتك الرقيقة وسام على صدري، فما نحن الا نقطة في بحر علمكم خالص تحياتي تم تعديل نوفمبر 23, 2014 بواسطه ibn_egypt رابط هذا التعليق شارك More sharing options...
تامر ثروت قام بنشر نوفمبر 24, 2014 الكاتب مشاركة قام بنشر نوفمبر 24, 2014 شكرا على ردك استاذ ibn _Egypt بس المقصود من السوال هوا انا ارفقت ملف ورد على مستند الاكسل على شكل عنصر فى ورقة 1 اريد فتح العنصر فى زر فى ورقة 2 مثال فى المرفق ورقة عمل .rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 24, 2014 مشاركة قام بنشر نوفمبر 24, 2014 شكرا على ردك استاذ ibn _Egypt بس المقصود من السوال هوا انا ارفقت ملف ورد على مستند الاكسل على شكل عنصر فى ورقة 1 اريد فتح العنصر فى زر فى ورقة 2 مثال فى المرفق أخى الفاضل وصلت المعلومة .. جرب انسخ هذا الكود والصقه في أي موديول Sub openobject() Dim oEmbFile As Object Application.DisplayAlerts = False Set oEmbFile = ThisWorkbook.Sheets(1).OLEObjects("Object 14") oEmbFile.Verb Verb:=xlPrimary Set oEmbFile = Nothing Application.DisplayAlerts = True End Sub خالص تحياتي رابط هذا التعليق شارك More sharing options...
تامر ثروت قام بنشر نوفمبر 24, 2014 الكاتب مشاركة قام بنشر نوفمبر 24, 2014 بارك الله فيك اخى الكريم ibn _Egypt تم عمل المطلوب على اكمل وجه رابط هذا التعليق شارك 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.