اظهار اسم المستخدم

Private Sub Worksheet_Change(ByVal Target As Range)

With Range("D:D")

With Sheet1.Range("D:D")

MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly

form1.Hide

form2.Show

MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly

form1.Hide

Sheet7.Range("u4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("c2:c100"), 1, False)

Sheet7.Range("I4").Value = Date

Sheet7.Range("E4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")

Sheet7.Range("P4").Value = Time

form2.Show