بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

ترحيل البيانات من ملف اكسيل الى ملف اكسل مغلق ومحمى بكلمة سر

عندما ترغب في ترحيل البيانات من ملف Excel إلى ملف Excel آخر الذي يكون مغلقًا، يمكنك اتباع الخطوات التالية:

1. قم بفتح الملف المصدر الذي يحتوي على البيانات التي ترغب في ترحيلها.

2. حدد البيانات التي ترغب في نقلها. يمكنك تحديد صفوف وأعمدة محددة أو استخدام التحديد الكامل للبيانات بالضغط على Ctrl + A.

3. انسخ البيانات المحددة بالضغط على Ctrl + C أو بالنقر بزر الماوس الأيمن واختيار "نسخ".

4. الآن، افتح الملف الهدف الذي ترغب في نقل البيانات إليه والذي يكون مغلقًا.

5. تحقق من أن النافذة الخاصة بالملف الهدف مفتوحة وجاهزة لاستقبال البيانات المنسوخة.

6. في النافذة الخاصة بالملف الهدف، قم بتحديد الخلية التي ترغب في نقل البيانات إليها.

7. الصق البيانات المنسوخة بالضغط على Ctrl + V أو بالنقر بزر الماوس الأيمن واختيار "لصق".

8. ستنقل Excel البيانات من الملف المصدر إلى الملف الهدف في الخلية التي حددتها.

9. قم بحفظ الملف الهدف بعد نقل البيانات عند الانتهاء.

هذه الخطوات تسمح لك بترحيل البيانات من ملف Excel إلى ملف Excel مغلق. يجب أن يكون لديك الصلاحية الكافية للوصول إلى الملف الهدف والقدرة على تعديله.

ولكن اذا اردنا ان نقوم بمثل هذا الامر من خلال برمجة الاكسيل

سنقوم بالاتى

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

مثل

Dim WR AS Workbook

Dim LR AS LONG

Set wr Workbooks.Open("C:\Users\moull\Desktop\PDF_REPORT\close workbook.xlsx")

lr = wr.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1

فى الكود السابق فمنا بتحديد مسار الملف الذى نريد ان نرحل البيانات الية

ثم بعد ذلك نقوم بترحيل البيانات من التكست بوكس الى الملف

.Sheets("sheet1").Cells(lr, 1) = Me.TextBox1.Value

.Sheets("sheet1").Cells(lr, 2) = Me.TextBox2.Value

.Sheets("sheet1").Cells(lr, 3) = Me.TextBox3.Value

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim wr As Workbook

Dim lr As Long

Set wr = Workbooks.Open("C:\Users\moull\Desktop\PDF_REPORT\close workbook.xlsx")

With wr

lr = .Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1

.Sheets("sheet1").Unprotect ("123")

.Sheets("sheet1").Cells(lr, 1) = Me.TextBox1.Value

.Sheets("sheet1").Cells(lr, 2) = Me.TextBox2.Value

.Sheets("sheet1").Cells(lr, 3) = Me.TextBox3.Value

.Sheets("sheet1").Protect ("123")

End With

wr.Save

wr.Close

Set wr = Nothing

Application.ScreenUpdating = True

End Sub