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

[الفارس محمد رجب]

السلام عليكم -- اخوانى الأعزاء --مطلوب حود لنسخ 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

تم تعديل نوفمبر 20, 2022 بواسطه Mohamed Hicham

[الفارس محمد رجب]

 لا اجد رد يكفى لشكر حضرتك ا/ Mohamed Hicham جزاك الله كل خير وجعله فى ميزان حسناتك