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

كود لنسخ sheet من ملف اكسيل الى ملف اكسيل اخر مغلق محمى باسورد


إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

السلام عليكم -- اخوانى الأعزاء --مطلوب حود لنسخ sheet من ملف اكسيل الى ملف اكسيل اخر مغلق وعليه باسورد

مرفق عدد 2 ملف اكسيل الملف الأول عبارة عن برنامج تسوية عهدة والثانى ملف تسويات العهد والباسورد الخاص به123 والمطلوب هو كود  يقوم  ب :عند عمل تسوية عهدة في ملف برنامج تسوية العهدة يقوم بنسخ صفحة تسوية العهدة الى ملف تسويات العهد

تسويات العهد.xlsm بنامج تسوية العهدة.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

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

تفضل اخي

Sub Copysh()
Dim SourceSht As Worksheet
Set SourceSht = Sheets("sheet1")

Application.ScreenUpdating = False

  Set Closesh = Workbooks.Open(ThisWorkbook.Path & "\تسويات العهد.xlsm", Password:="123")
  
SourceSht.Copy After:=Closesh.Sheets(Closesh.Sheets.Count)

'حدف الاشكال
ActiveSheet.Shapes("copy").Delete
ActiveSheet.Shapes("Rounded Rectangle 5").Delete
ActiveSheet.Shapes("شكل بيضاوي 1").Delete
ActiveSheet.Shapes("صورة 5").Delete

Closesh.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

 

 

بنامج تسوية العهدة.xlsm تسويات العهد.xlsm

تم تعديل بواسطه Mohamed Hicham
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information