Bỏ protect các sheet trong file!

[tranviethung]

Tim Pass protect!

Mình có file excel đã protect các sheet, đã dùng 1 số chương trình để dò pas nhưng không tìm được. Ai có phần mềm nào tìm được pas cùa File này gửi cho mình nhé!

 

[boyxin]

Mình có file excel đã protect các sheet, pass chung là soluzionaindra. Giờ muốn viết 1 macro tự động bỏ protect của tất cả các sheet trong file. Mong các bạn giúp đỡ, mình gửi kèm file nhé: Vì mình có nhiều file dạng đó, mà lại đi chọn từng sheet gõ pass vào thì mất rất nhiều thời gian!!!

Bạn chạy đoạn code sau (chép vào Module)

Const Pas = "soluzionaindra"
Sub Unpass()
Dim Sh As Worksheet
For Each Sh In Worksheets
    Sh.Unprotect (Pas)
Next
MsgBox "UnProtected " & Worksheets.Count & " Sheet."
End Sub

 

[MicrosoftExcel]

Mình có file excel đã protect các sheet, đã dùng 1 số chương trình để dò pas nhưng không tìm được. Ai có phần mềm nào tìm được pas cùa File này gửi cho mình nhé!

Bạn dùng cái này nhé, chỉ mất 20s cho mỗi sheet là cùng thôi. Nó sẽ xóa hết pass cho bạn đặt pass mới. Còn vẫn giữ pass thì đầy chương trình khác trên mạng. Down về rồi add nó vào add-in, cứ chạy theo hướng dẫn là ok. http://www.mediafire.com/?dbbxd5z5gac

 

[ongtrungducmx25]

Bạn chạy đoạn code sau (chép vào Module)

Const Pas = "soluzionaindra"
Sub Unpass()
Dim Sh As Worksheet
For Each Sh In Worksheets
    Sh.Unprotect (Pas)
Next
MsgBox "UnProtected " & Worksheets.Count & " Sheet."
End Sub

cái này chỉ mở các sheet có cùng password thôi đúng không còn các sheet khác nếu đặt password khác nhau thì em test không chạy được nữa và bị lỗi rồi !

 

[boyxin]

cái này chỉ mở các sheet có cùng password thôi đúng không còn các sheet khác nếu đặt password khác nhau thì em test không chạy được nữa và bị lỗi rồi !

code đó chỉ để trả lời câu hỏi này​

Nguyên văn bởi tranviethung
Mình có file excel đã protect các sheet, pass chung là soluzionaindra. Giờ muốn viết 1 macro tự động bỏ protect của tất cả các sheet trong file. Mong các bạn giúp đỡ, mình gửi kèm file nhé: Vì mình có nhiều file dạng đó, mà lại đi chọn từng sheet gõ pass vào thì mất rất nhiều thời gian!!!

 

[yeudoi]

Bạn thấy Pass được đặt là Const Pas = "soluzionaindra" vì vậy mọi sheet đều có pass như vậy.

 

[Lệnh Hồ Đại Hiệp]

Bạn dùng cái này nhé, chỉ mất 20s cho mỗi sheet là cùng thôi. Nó sẽ xóa hết pass cho bạn đặt pass mới. Còn vẫn giữ pass thì đầy chương trình khác trên mạng. Down về rồi add nó vào add-in, cứ chạy theo hướng dẫn là ok. http://www.mediafire.com/?dbbxd5z5gac

Cần mang đồng hồ đi sửa mới được, dạo này đồng hồ chạy nhanh quá.

Vì vậy chắc làm phiền các hạ kiểm tra lại thông tin trên.
Chúc vui

 

[Salemok]

cái này chỉ mở các sheet có cùng password thôi đúng không còn các sheet khác nếu đặt password khác nhau thì em test không chạy được nữa và bị lỗi rồi !

Mình chạy code của các bạn.
Nó cứ báo lỗi
Các bạn chỉ giáo nhé

 

[Salemok]

Bạn dùng cái này nhé, chỉ mất 20s cho mỗi sheet là cùng thôi. Nó sẽ xóa hết pass cho bạn đặt pass mới. Còn vẫn giữ pass thì đầy chương trình khác trên mạng. Down về rồi add nó vào add-in, cứ chạy theo hướng dẫn là ok. http://www.mediafire.com/?dbbxd5z5gac

Chạy thế nào nhỉ minh fkhoong thấy chạy được bạn ơi

 

[ppicatru]

Chạy thế nào nhỉ minh fkhoong thấy chạy được bạn ơi

Xem chơi cho vui

 

[nguyendinhtutw]

Bác xem thử file đính kèm,
Chọn sheet muốn bỏ protect -> Bấm Alt+F8 -> Click "Run" -> Click "Yes" -> OK