Tự động protect 1 sheet với pass đặt trước khi ấn Khoá! (1 người xem)

[gameonly308]

Chào các pro. Mình tìm trên Net thấy có đoạn code VBA tự động phá pass protect của 1 sheet khi không biết hoặc không nhớ pass đó.
Vậy có pro nào cho hỏi, nếu mình có 1 sheet, sau khi làm xong việc, có nút Khoá và mình ấn vào nút Khoá đó, cái sheet mình vừa làm nó tự động protect lại với passs mình đặt trước được không ạ.
Vì cái excel mình làm khá nhiều chỗ cần protect, sau khi làm xong mà cứ phải đặt pass từng cái thì quả thật mệt quá.
Và xin hỏi thêm 1 chút nữa là, ấn nút Mở thì nó yêu cầu điền pass, nếu đúng thì lại unprotect sheet đó.
Có pro nào chỉ giúp đoạn code với ạ. Thx nhiều !

 

[gameonly308]

Cái đoạn code nó là thế này :
Private Sub CommandButton1_Click()
ActiveSheet.Protect 123456
End Sub


Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
End Sub

Lúc điền mật khẩu đúng thì không có vấn đề gì, mở sheet ok.
Nhưng mà khi nhập mật khẩu sai nó sẽ báo Debug
Mọi người cho mình hỏi, thêm đoạn nào nữa để nó ko bị báo lỗi, và báo là sai mật khẩu @_@

 

[Bảy Dzõ]

Cái đoạn code nó là thế này :
Private Sub CommandButton1_Click()
ActiveSheet.Protect 123456
End Sub


Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
End Sub

Lúc điền mật khẩu đúng thì không có vấn đề gì, mở sheet ok.
Nhưng mà khi nhập mật khẩu sai nó sẽ báo Debug
Mọi người cho mình hỏi, thêm đoạn nào nữa để nó ko bị báo lỗi, và báo là sai mật khẩu @_@

Bạn post bài hai bên nên mình trả lời bên kia. Nhờ Mod xoá giùm bài ở link:

http://www.giaiphapexcel.com/forum/showthread.php?79304-T%E1%BB%B1-%C4%91%E1%BB%99ng-protect-1-sheet-v%E1%BB%9Bi-pass-%C4%91%E1%BA%B7t-tr%C6%B0%E1%BB%9Bc-khi-%E1%BA%A5n-Kho%C3%A1!

Bạn coi thử file gửi kèm.

 

[hoamattroicoi]

Vì cái excel mình làm khá nhiều chỗ cần protect, sau khi làm xong mà cứ phải đặt pass từng cái thì quả thật mệt quá.
Và xin hỏi thêm 1 chút nữa là, ấn nút Mở thì nó yêu cầu điền pass, nếu đúng thì lại unprotect sheet đó.
Có pro nào chỉ giúp đoạn code với ạ. Thx nhiều !

Cái này excel có chức năng khoá cả sheet mà bạn, cũng không phải cầu kỳ nhiều bước mà lại dễ làm, khỏi cần code keo gì hết????

 

[gameonly308]

BayDzo cho mình hỏi, khi mở khoá, nó khoá hết, ko tắt đc đi nếu ko muốn nhập pass vào, chỉnh ở đâu để khi ng ta ấn nhầm, có thể tắt cái ô nhập pass đi được ?

 

[gameonly308]

Cảm ơn bạn, mình làm được rồi