ارجو الافادة فى عملى هذا

[تامر ثروت]

اريد فتح ملف ورد على شكل عنصر برمز على رز تحكم فى الاكسيل او ايجاد حماية للصفحة الشرح بالمرفق 

ورقة عمل .rar

تم تعديل نوفمبر 23, 2014 بواسطه تامر ثروت

[ibn_egypt]

اريد فتح ملف ورد على شكل عنصر برمز على رز تحكم فى الاكسيل او ايجاد حماية للصفحة الشرح بالمرفق 

اخى الفاضل

 

سؤالك منقسم الى جزئين .. الأول فتح وورد عن طريق زر أمر بالإكسل .. اليك الكود التالى افتح 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

[ياسر خليل أبو البراء]

تسلم يا ابن مصر

نشاط رائع بارك الله فيك

بصراحة بيعجبني شغلك جدا .. مستوى متميز وراقي

[ibn_egypt]

 

تسلم يا ابن مصر

نشاط رائع بارك الله فيك

بصراحة بيعجبني شغلك جدا .. مستوى متميز وراقي

 

 

أخى وأستاذي الفاضل أ.ياسر

 

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

 

خالص تحياتي

تم تعديل نوفمبر 23, 2014 بواسطه ibn_egypt

[تامر ثروت]

شكرا على ردك استاذ  ibn _Egypt بس المقصود من السوال هوا 
انا ارفقت ملف ورد على مستند الاكسل على شكل عنصر فى ورقة 1 
اريد فتح العنصر فى زر فى ورقة 2 مثال فى المرفق

ورقة عمل .rar

[ibn_egypt]

 

شكرا على ردك استاذ  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

خالص تحياتي

[تامر ثروت]

بارك الله فيك 

 اخى الكريم  ibn _Egypt 

تم عمل المطلوب على اكمل وجه