Phân quyền bảo mật với VBA Excel

1. Code thiết lập mật khẩu cho sheet

Chuyển sang chế độ code VBA, chọn VBAProject -> Microsoft Excel Object -> ThisWorkBook

Copy đoạn code VBA dưới vào:

Private Sub Workbook_Open()
  'MsgBox "x"
  Sheets("Sheet1").Protect Password:="123", UserInterfaceOnly:=True
End Sub
 

2. Mở lại quyền sửa cho sheet

ActiveSheet.Unprotect Password:="123"