Copy DL từ 1 file excel sang file excel da protect định dạng??

[tranviethung]

Mình có 2 file excel: file thứ nhất(có 8 sheet) chứa DL cần copy DL sang 1 file excel khác có định dạng protect(chỉ được nhập DL, k thay đổi được định dạng các ô ). 2 file này có cấu trúc cơ bản không khác nhau mấy, file thứ 2 có khác 1 chút (file chuẩn cần nhạp Dl từ các file khác vào); số giá trị của sheet cần lấy giá trị và sheet cần nhập Dl là tương ứng bằng nhau. Mong các bạn trên diễn đàn có thể lập macro giúp mình , ví dụ luôn với 2 file minh gửi kèm nhé. Mình đang rất cần mong các bạn giúp mình, thanks alot.

 

[Po_Pikachu]

Vậy thì trên file có Protect định dạng kia bạn viết đoạn code có dạng sau:

[COLOR=red]Sub[/COLOR] ..cái gì đó..[COLOR=red]()[/COLOR] 'Bắt đầu sẽ là đoạn mở protect sheet ra [COLOR=red]Sheets("[/COLOR]Tên sheet gì đó[COLOR=red]").Unprotect "[/COLOR]Pass của sheet đó[COLOR=red]"[/COLOR] '[COLOR=royalblue]Đến đoạn code copy sheet bên kia qua sheet này[/COLOR] '..... 'Cuối cùng là code khóa lại [COLOR=red]Sheets("[/COLOR]Tên sheet gì đó[COLOR=red]").Protect "[/COLOR]Pass của sheet đó[COLOR=red]"[/COLOR] [COLOR=red]End Sub[/COLOR]

Phần đoạn code copy thì bạn hãy mở hết Protect ra rồi dùng công cụ Record Macro (Tools -> Macro -> Record New Macro) lưu lại quá trình copy của bạn từ file này qua file khác. Code sẽ được ghi vào trong 1 Module của file có Protect (bạn nhấn Alt + F11 nó sẽ hiện ra cho bạn). Bạn làm thêm các thao tác nữa sao cho giống cấu trúc bên trên là được! Thân.

 

[nguyennb]

Bạn có biết pass của file bị khóa không. Nếu không bạn có thể duyệt qua toàn bộ các cel không khóa ở sheet 2, với mỗi cel lấy địa chỉ sau đó dựa vào địa chỉ này lấy dữ liệu bên sheet 1.

 

[tranviethung]

Bạn nguyennb ơi! Mình không bít pass để unprotect vì đó là bản gốc đối tác chuyển để mình làm bạn à. Bạn có thể chỉ dẫn mình rõ hoặc có thể được thì viết giúp mình macro thực hiện theo ý tưởng của bạn được không? Bạn Po_Pikachu làm theo cách bạn chắc không được vì mình không bít pass của file 2. Bạn có ý tưởng khác để giúp mình được không? Mong các bạn sớm giúp được mình! thanks alot!!!
Thân!

 

[hoang_B]

Mình mở Pass rồi, nhiệm vụ còn lại là ở các bạn đó.