Thóc Sama
_/_/_/_/_/_/_/
- Tham gia
- 23/7/16
- Bài viết
- 565
- Được thích
- 798
- Giới tính
- Nam
- Nghề nghiệp
- 何でもする
Xin chào Anh/Chị
Hiện tại em đang dùng đoạn code dưới với mục đích để mở/khóa sheet
Sub Button36_Click() 'mở
Dim str As String
str = InputBox(prompt:="Nhap PassWord", Title:="THÔNG BÁO")
If str = "p789" Then
Sheet1.Unprotect "p789"
End If
End Sub
Sub Button38_Click()
Sheet1.Protect "p789"
End Sub
Với code để mở thì nó gọi lên Inputbox để nhập Password
Tuy nhiên khi nhập password vào Inputbox thì hiện nguyên giá trị nhập nên không có ý nghĩa lắm.
Nhờ Anh/Chị hướng dẫn dùm có cách nào khi nhập giá trị vào Inputbox "p789" thì chỉ hiển thị "****" ạ!
Trân trọng cảm ơn Anh/Chị!
Hiện tại em đang dùng đoạn code dưới với mục đích để mở/khóa sheet
Sub Button36_Click() 'mở
Dim str As String
str = InputBox(prompt:="Nhap PassWord", Title:="THÔNG BÁO")
If str = "p789" Then
Sheet1.Unprotect "p789"
End If
End Sub
Sub Button38_Click()
Sheet1.Protect "p789"
End Sub
Với code để mở thì nó gọi lên Inputbox để nhập Password
Tuy nhiên khi nhập password vào Inputbox thì hiện nguyên giá trị nhập nên không có ý nghĩa lắm.
Nhờ Anh/Chị hướng dẫn dùm có cách nào khi nhập giá trị vào Inputbox "p789" thì chỉ hiển thị "****" ạ!
Trân trọng cảm ơn Anh/Chị!