اذهب الي المحتوي
أوفيسنا

خزاني

03 عضو مميز
  • Posts

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

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

مشاركات المكتوبه بواسطه خزاني

  1.  

     

    بارك الله فيك اخي الحبيب .. بس بقت شغلة 64 بت في الملف الاخير

     

    attachicon.gifkh.JPG

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

    attachicon.gifkhezzaniprg64-5.rar

     

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

     

    attachicon.gifpost-78315-0-41243200-1431721959.jpg

     

     

     

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

    khezzaniprg64-6.rar

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

     

    فتح  ملف للقراءة فقط طبق هذه العملية على ملفك 

    Private Sub Workbook_Open()
    Test
    End Sub
    
    

    Module1

    Sub Test()
        Application.ScreenUpdating = False
    MonFichier = ThisWorkbook.Name
    Workbooks.Open Filename:=Sheets("Nature").Range("B21"), ReadOnly:=False
    Workbooks(MonFichier).Activate
    Application.ScreenUpdating = True
    End Sub
    
    
×
×
  • اضف...

Important Information