Làm thế nào để mở Pass(VBA) cho nhiều file excel có cùng Pass(VBA)

[baongocdaihocchuto]

Xin chào đại gia đình GPE.
Anh, chị vui lòng giúp em code vba để mở nhiều File Excel có cùng Password.
Xin trân trọng cảm ơn.

 

[quanluu]

Xin chào đại gia đình GPE.
Anh, chị vui lòng giúp em code vba để mở nhiều File Excel có cùng Password.
Xin trân trọng cảm ơn.

bạn dùng vòng lặp cho workbook.open thôi

 

[baongocdaihocchuto]

Anh có thể giúp em code đó được không?

 

[befaint]

code

'Danh sách chứa đường dẫn của 5 files cần mở ở cột A, từ A1 tới A5   '
'Mật khẩu là chuỗi "#abc123"  '
Sub mo_file()
Const mat_khau = "#abc123"
Dim i as long
For i=1 to 5
Workbooks.Open Filename:=Range("A" & i).value, Password:=mat_khau 
Next i
End Sub

 

[baongocdaihocchuto]

'Danh sách chứa đường dẫn của 5 files cần mở ở cột A, từ A1 tới A5   '
'Mật khẩu là chuỗi "#abc123"  '
Sub mo_file()
Const mat_khau = "#abc123"
Dim i as long
For i=1 to 5
Workbooks.Open Filename:=Range("A" & i).value, Password:=mat_khau
Next i
End Sub

Không có files nào được mở Password, bị lỗi như hình:

 

[dangkhoiLK]

Không có files nào được mở Password, bị lỗi như hình:
View attachment 228663

thêm On Error Resume Next

 

[baongocdaihocchuto]

thêm On Error Resume Next

Không giải quyết được vấn đề, các files vẫn bị khóa.

 

[befaint]

Không có files nào được mở Password, bị lỗi như hình:

Đúng quá rồi còn gì. Vì theo những gì bạn nêu, ngoài bạn và thần tiên tỉ tỉ ra mới biết lý do. Mọi thứ vẫn trong bí mật.

 

[baongocdaihocchuto]

Đúng quá rồi còn gì. Vì theo những gì bạn nêu, ngoài bạn và thần tiên tỉ tỉ ra mới biết lý do. Mọi thứ vẫn trong bí mật.

Không còn cách nào khác nữa à anh befaint?

 

[befaint]

Không còn cách nào khác nữa à anh befaint?

Có chứ. Bạn gửi toàn bộ bài đang làm lên, sẽ có người chỉ cho bạn. Siêu đơn giản như đoạn:

Bụt: Làm sao con khóc?
Em bé: Con bị abc, xyz...
Bụt: Ồ, ta hiểu rồi. Và.. ông bụt phù phép cái là xong.

 

[batman1]

Không giải quyết được vấn đề, các files vẫn bị khóa.

Nếu chỉ là nước bọt mà lại còn tiết kiệm nước bọt thì có đến Tết mới hiểu được nhau. Mà cũng lạ là vẫn có người trả lời được. Mà người giúp cũng không nói rõ mình định nói về cái gì thì những người không biết đọc code mà chỉ biết copy/paste/run thì họ không hiểu.

"mở Pass(VBA)"? Là gì?
- Là tập tin có mật khẩu để mở và bây giờ cần mở tập tin đó bằng một đoạn code VBA?

- Là tập tin có mật khẩu VBA bây giờ muốn dùng code để gỡ bỏ mật khẩu VBA? Vì nhiều tập tin có mật khẩu VBA quá nên không muốn làm tay?

Tôi không thích đoán mò nhưng nếu bắt tôi phải đoán mò thì tôi sẽ đoán trường hợp 2.

 

[baongocdaihocchuto]

- Là tập tin có mật khẩu VBA bây giờ muốn dùng code để gỡ bỏ mật khẩu VBA? Vì nhiều tập tin có mật khẩu VBA quá nên không muốn làm tay?

Đúng là ý 2 đó bác batman1, bác xem giúp em với ạ. Cảm ơn bác.

 

[batman1]

Đúng là ý 2 đó bác batman1, bác xem giúp em với ạ. Cảm ơn bác.

Tôi chỉ giúp để người hỏi và người giúp hiểu được nhau thôi.