السلام عليكم
عملت هذا الكود لإدخال كلمة سر عن طريق الفورم
لكن للأسف الكود يعترف بكلمة السر لو كانت مكونة من حروف فقط أمل إذا غيرتها إلى أرقام فإن الرسالة دائما تكون " كلمة السر غير صحيحة " حتى لو كتبت الأرقام الصحيحة
Private Sub CommandButton1_Click()
If TextBox1 = Sheets("welcome").Range("hh2") Then
MsgBox "that;sright",vbOKOnly, "
Cells.Select
Selection.EntireColumn.Hidden = False
Rows("10:1010").Select
Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End
Else
MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "goodbye"l;"
End
End If
End Sub