السلام عليكم أخي الكريم ظفر الله
حاول دراسة الكود الذي قدمه أخونا الغالي محمد الدسوقي لتتعلم كيف يمكنك التعديل عليه فيما بعد ..
عموماً قمت بكتابة الكود بهذا الشكل عله يفي بالغرض .. سيلزمك فقط أن تقوم بتغيير المسار في الكود من السطر الخاص بالمسار
Sub Change_In_Closed_Workbook()
Dim wb As Workbook
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Workbooks.Open(ThisWorkbook.Path & "\2.xls")
wb.Sheets(3).Unprotect "222"
wb.Sheets(2).Range("B3").Value = ThisWorkbook.Sheets(1).Range("B3").Value
wb.Sheets(3).Range("Z3").Value = ThisWorkbook.Sheets(1).Range("B3").Value
wb.Sheets(3).Protect "222"
wb.Close True
ThisWorkbook.Sheets(1).Range("C10").Value = "Changes Completed"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
وسطر المسار يمكنه أن يكون بهذا الشكل إذا كان الملف المسمى 2 موجود في الدرايف E ..
Set wb = Workbooks.Open("E:\2.xls")
وإليك الملف المرفق فيه تطبيق الكود ، قم بفك الضغط وافتح الملف المسمى 1 ثم قم بالنقر على زر "تغيير" لتحصل على النتائج التي تريدها إن شاء الله
[8]
كود فك حماية ورقة معلومه كلمة مرورها
عضوية موثقة
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
