Xóa PW trong TextBox (2 người xem)

[hungdiep85]

Chào các Thầy


Xóa pw khi chọn ok , khi mở file ra sao pw vẫn còn lưu trên TextBox.

Có thể khi mình nhập pw xong thì bấm enter trên bàn phím luôn không , không cần chọn ok.


Cảm ơn các Thầy.....

 

[bivily]

Bạn xem xem được chưa?

 

[hungdiep85]

Bạn xem xem được chưa?

đúng rùi bạn ơi


CẢM ƠN BẠN nhiều lắm ......


Có thể khi mình nhập pw xong thì bấm enter trên bàn phím luôn không , không cần chọn ok không

 

[nghiaphuc]

đúng rùi bạn ơi

CẢM ƠN BẠN nhiều lắm ......

Có thể khi mình nhập pw xong thì bấm enter trên bàn phím luôn không , không cần chọn ok không

Vậy thì bỏ hẳn cái nút OK đó đi nhé:
[GPECODE=vb]Private Sub TextBox2_GotFocus()
TextBox2 = ""
End Sub
'-----------------------------------------------------------------------------------------
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox2 = "AAA" Then
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVeryHidden
ElseIf TextBox2 = "BBB" Then
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVisible
ElseIf TextBox2 = "CCC" Then
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Else
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
End If
TextBox2 = ""
End If
End Sub[/GPECODE]

 

[hungdiep85]

vậy thì bỏ hẳn cái nút ok đó đi nhé:
[gpecode=vb]private sub textbox2_gotfocus()
textbox2 = ""
end sub
'-----------------------------------------------------------------------------------------
private sub textbox2_keyup(byval keycode as msforms.returninteger, byval shift as integer)
if keycode = 13 then
if textbox2 = "aaa" then
sheet2.visible = xlsheetvisible
sheet3.visible = xlsheetveryhidden
elseif textbox2 = "bbb" then
sheet2.visible = xlsheetveryhidden
sheet3.visible = xlsheetvisible
elseif textbox2 = "ccc" then
sheet2.visible = xlsheetvisible
sheet3.visible = xlsheetvisible
else
sheet2.visible = xlsheetveryhidden
sheet3.visible = xlsheetveryhidden
end if
textbox2 = ""
end if
end sub[/gpecode]

cảm ơn thầy nhiều............