اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

هامور

عضو جديد 01
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    49

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه هامور

    ممكن شرح هذا الكود الرائع

    في منتدى الاكسيل Excel

    قام بنشر

     

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

     

    الكود سيصبح هكذا 

    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"

    الله يرزقك المال المبارك والذريه الصالحه  والعلم النافع

    ممكن شرح هذا الكود الرائع

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم ورحمة الله وبركاته

     

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

     

    http://www.officena.net/ib/index.php?showtopic=36483

     

    ولكن للاسف لم استطع ان اعرف البحث عن مسار الملفات في جهازي وتعديلها في الكود وكذالك الاسم

    هل من يشرح لنا جزاكم الله خير

    نفس الملف في الرابط مرفق

    منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar

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

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم ورحمة الله وبركاته 

     

    هل ممكن ان نجد ماكرو يقوم بمسح المف في حال تغيير اسمه

     

     

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

     

    وجزاكم الله خير ونفع بكم

    طلب ماكرو

    في منتدى الاكسيل Excel

    قام بنشر

     

    نعم يمكن حماية محرر الأكواد بكلمة سر من خلال قائمة أدوات في محرر الأكواد Tools ثم VBAProject Properties ثم التبويب Protection وتقوم بوضع علامة صح أمام الخيار Lock Project For Viewing ثم تكتب كلمة السر وتأكيد كلمة السر ثم أوك .. انتهى

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

     

    شكرا لك يا عسل

    طلب ماكرو

    في منتدى الاكسيل Excel

    قام بنشر

     

    الأخ الحبيب هامور

    يرجى دائما وضع عنوان مناسب للموضوع حتى يسهل عملية البحث مستقبلا .. طلب ماكرو لا يعبر عن الموضوع .. يمكن أن يكون العنوان : إخفاء أوراق العمل بكلمة سر ..

    عموما تفضل الملف المرفق لعله يفي بالغرض

    الكود مشروح في محرر الأكواد ..

     

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

    تعديل ماكرو اخراج الايبي للجهاز

    في منتدى الاكسيل Excel

    قام بنشر

    هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه 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
     

    تعديل ماكرو اخراج الايبي للجهاز

    في منتدى الاكسيل Excel

    قام بنشر

    اخى الفاضل

     

    كما تفضل الأساتذة الكرام انت باعت Registry File ... فيه حاجات اسهل من كده .. لو عاوز ماكرو لمعرفة ال IP الخاص بجهازك

     

    تفضل الملف المرفق

     

    تحياتي :fff: 

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

    تعديل ماكرو اخراج الايبي للجهاز

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم ورحمة الله وبركاته

     

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

     

    ولكم جزيل الشكر

    حل مشكلة امان الماكرو.rar

×
×
  • اضف...

Important Information

  I accept