Protect/UnProtect Sheet bằng câu lệnh VBA
Trong bài viết này mình sẽ hướng dẫn các bạn cách tạo thủ tục Protect/Unprotect Sheet để gán vào nút bấm trên bảng tính. Khi đó các bạn chỉ cần click chuột vào nút bấm, mà hình sẽ hiển thị thông báo "Ban muon Protect/Unprotect Sheet (YES/NO)", nếu các bạn chọn vào YES thì sẽ tự Protect Sheet, chọn No sẽ Unprotect Sheet. Để làm được như vậy, các bạn làm theo các bước sau:
Bước 1: Các bạn vào môi trường lập trình, các bạn tạo 1 module và copy code dưới đây vào trong module.
Option Explicit
Sub Protect_UnProtectSheet()
Dim sh As Worksheet
Dim answer As Variant
Set sh = ThisWorkbook.Sheets("Sheet1")
answer = MsgBox("Ban muon Protect/Unprotect Sheet (YES/NO)", vbYesNo)
If answer = vbYes Then
sh.Protect 123 '123 la pass de protect
Else
sh.Unprotect 123
End If
End Sub
Bước 2: Sau khi hoàn thành việc copy code vào trong module, các bạn trở về môi trường bảng tính, sau đó tạo một nút bấm rồi gán macro "Protect_UnProtectSheet" vào nút bấm.
Bước 3: Các bạn click chuột vào nút bấm sẽ hiển thị thông báo "Ban muon Protect/Unprotect Sheet (YES/NO)", nếu các bạn chọn vào YES thì Sheet1 sẽ tự Protect với mật khẩu là 123.
Kết quả sau khi bạn chọn YES.
Bước 4: Để UnProtect Sheet các ban lại click chuột vào nút bấm sẽ hiển thị thông báo như ở bước 3, sau đó click vào NO thì sẽ tự động "Unprotect Sheet".
Sau khi click vào NO sẽ có kết quả như sau:
Các bạn vào đây tải file ví dụ: DOWNLOAD