Giúp tạo pass cho code

[aiquocxp]

em có đoạn code sao để khóa 1 vùng dữ liệu trong sheet. em muốn khi gọi lệnh đó thì hỏi pass mới cho thi hành lệnh. trong sheet em co khóa sheet tên pass phía dưới
----------------------
Sub KhoaHKI()
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect "tentuinequocanh"
Sh.Cells.Locked = False
With Sh.Cells.SpecialCells(3, 23)
.Locked = True
.FormulaHidden = True
End With
Sh.Range("D3:O52").Locked = True
Sh.Protect "tentuinequocanh", AllowFormattingRows:=True
Next
End Sub

 

[SA_DQ]

Đây là cách hơi thô:

Bạn trưng dụng 1 ô nào đó mà ít ai chú í, như [iV99]; Nhập vô đó công thức sau:
=Right("0"& Day(TODAY()),2) & Right("0"& Month(TODAY()),2) & "GPE"

Bạn khai thêm 1 biến chuỗi, như GPE As String;

Sau đó Cho người dùng tự gán biến này, như
GPE= InputBox("Hay Nhap Mat Khau Di Ban:")

If GPE<> [iV99].value then Exit Sub

 

[aiquocxp]

ở đây em muốn tạo ra pass chỉ 1 mình em biết để khi khóa dữ liệu em sẽ gõ pass vào, tránh để người khác vô tình chọn phải

 

[ndu96081631]

ở đây em muốn tạo ra pass chỉ 1 mình em biết để khi khóa dữ liệu em sẽ gõ pass vào, tránh để người khác vô tình chọn phải

Thì sửa lại thế này:

GPE= InputBox("Hay Nhap Mat Khau Di Ban:")
If GPE<> "Gì gì đó" then Exit Sub

Ở đây, cái "gì gì đó" do tự bạn đặt ra và tự nhớ
Mà bạn nghiên cứu mấy trò này chi cho mất công, nếu người ta Disable macro thì sao? Pass của bạn "ngủ bụi" à?
Nói chung, mấy vụ pass piếc gì đó trong Excel là không ăn thua