هامور

ننتظر الاخوان

السلام عليكم ابحث عن نسخة ميكروسوفت اوفيس 2007 بورتابل

شكرا كثيرا

شكرا لك اخي الكريم

الاوفس 2007 والامان مخفوض ولكن الرساله مستمره

السلام عليكم ورحمة الله وبركاته هذه الرساله مزعجه هل استطيع التخلص منها مع عدم الاضرار بعمل الماكرو

ننتظر الجواب

السلام عليكم ورحمة الله وبركاته هل من الممكن دمج هذه الاكود المرفقه في ملف واحد لتعمل مع بعضها البعض مجلد جديد __.rar

الكود سيصبح هكذا Private Sub Workbook_Open() Dim MyFlName As String MyFlName = "TEST-1.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Sub وهنا يتم تعديل اسم الملف MyFlName = "TEST-1.xls" الله يرزقك المال المبارك والذريه الصالحه والعلم النافع

وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو

السلام عليكم ورحمة الله وبركاته بحثت عن ملف منع نسخ وتغيير الاسم ووجدت هذا الموضوع في هذا المنتدى الكبير على الرابط http://www.officena.net/ib/index.php?showtopic=36483 ولكن للاسف لم استطع ان اعرف البحث عن مسار الملفات في جهازي وتعديلها في الكود وكذالك الاسم هل من يشرح لنا جزاكم الله خير نفس الملف في الرابط مرفق منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar

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

شكرا لك يا عسل

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

جزاك الله خير وان شاء الله المواضيع القادمه نهتم بالعنوان اكثر وجاري الاطلاع على المرفق وان شاء الله يفي بالغرض

السلام عليكم ورحمة الله وبركاته هل من الممكن اخفاء الاوراق ثم حمايتها برقم سري حيث لا يمكن اخراجها الا بادخال هذا الرقم السري ويكون الرقم السري خاص فقط في اخفاء الاوراق واظهارها

يا سلام عليك عمل فنان تحياتي لشخص الكريم

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

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

جزاك الله خير على ما تقدمه من مجهود جبار في هذا المنتدى الكبير

هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه B1 بدل الصندوق Sub GetMyIP() Const strComputer As String = "." Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i Dim strIPAddress As String Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig In IPConfigSet IPAddress = IPConfig.IPAddress If Not IsNull(IPAddress) Then strIPAddress = strIPAddress & Join(IPAddress, ", ") End If Next GetIPAddress = strIPAddress MsgBox "Your IP Address is" & " " & GetIPAddress End Sub

ملف ممتاز لكن هل استطيع جعل الايبي يخرج في خليه داخل الصفحه بدل الصندوق

احد الاخوه رفع ملف الايبي ويعمل مع فتح الجهاز ولكن المشكله يخرج في شكل صندوق اريد الايبي في خليه

اشكر الجميع على الردود والتفاعل واسف على الخطاء في رفع الملف راح اكتب موضوع جديد عن المشكله

السلام عليكم ورحمة الله وبركاته في المرفق ماكرو يقراء الايبي للجهاز ولكن المشكله يجب ان تنسخ المعادله ثم تقوم بلصقها في خليه اخرى لتتم القراءه هل نستطيع تعديله بحيث تتم القراءه مباشره عند فتح الملف ولكم جزيل الشكر حل مشكلة امان الماكرو.rar