Create Login System in School Management System

'===========================================================
'start code for Login System in School Management System
'===========================================================
On Error Resume Next
If TextBox1.Text = "Mahesh" And TextBox2.Text = "M123@" Then
MsgBox "Login Successfully... Welcome to OMGSTUDY.COM"
Application.Visible = True
Unload Me
Else
MsgBox "Login Failed: Invalid Username or Password. Please Try Again..."
TextBox1 = ""
TextBox2 = ""
End If

'==================================================
'start code for Complete Login System (Important)
'==================================================
Private Sub Workbook_Activate()
Application.Visible = False
'==================================
'Here Login Userform Template Name
'==================================
Login.Show
'==================================
End Sub

'=========================================================
'start code for Show Student Information for ID Card - 1
'=========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet8.Range("E3").Value = Sheet2.Cells(y, "A").Value Then
Sheet8.Range("K13").Value = Sheet2.Cells(y, "A").Value
Sheet8.Range("J15").Value = Sheet2.Cells(y, "B").Value
Sheet8.Range("J17").Value = Sheet2.Cells(y, "K").Value
Sheet8.Range("F28").Value = Sheet2.Cells(y, "C").Value
Sheet8.Range("H30").Value = Sheet2.Cells(y, "D").Value
Sheet8.Range("H32").Value = Sheet2.Cells(y, "F").Value
Sheet8.Range("H34").Value = Sheet2.Cells(y, "E").Value
Sheet8.Range("F36").Value = Sheet2.Cells(y, "H").Value

'===========================================
'start code for Show Photo for ID Card - 1
'===========================================
On Error Resume Next
Dim i As Picture
Dim J As String
If Target.Address = Range("E3").Address Then
ActiveSheet.Pictures.Delete
J = "C:\Photo\" & Range("E3") & Value & ".jpg"
With Range("C13")
Set i = ActiveSheet.Pictures.Insert(J)
i.Height = 55
i.Width = 42
i.Top = .Top
i.Left = .Left
End With
End If
End If
Next y

'=======================================================
'start code for Show Student Information for ID Card - 2
'=======================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet8.Range("U3").Value = Sheet2.Cells(y, "A").Value Then
Sheet8.Range("AA13").Value = Sheet2.Cells(y, "A").Value
Sheet8.Range("Z15").Value = Sheet2.Cells(y, "B").Value
Sheet8.Range("Z17").Value = Sheet2.Cells(y, "K").Value
Sheet8.Range("V28").Value = Sheet2.Cells(y, "C").Value
Sheet8.Range("X30").Value = Sheet2.Cells(y, "D").Value
Sheet8.Range("X32").Value = Sheet2.Cells(y, "F").Value
Sheet8.Range("X34").Value = Sheet2.Cells(y, "E").Value
Sheet8.Range("V36").Value = Sheet2.Cells(y, "H").Value

'==========================================
'start code for Show Photo for ID Card - 2
'==========================================
On Error Resume Next
Dim i As Picture
Dim J As String
If Target.Address = Range("U3").Address Then
'ActiveSheet.Pictures.Delete
J = "C:\Photo\" & Range("U3") & Value & ".jpg"
With Range("S13")
Set i = ActiveSheet.Pictures.Insert(J)
i.Height = 55
i.Width = 42
i.Top = .Top
i.Left = .Left
End With
End If
End If
Next y

'==========================================================
'start code for Show Student Information for ID Card - 3
'==========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet8.Range("AK3").Value = Sheet2.Cells(y, "A").Value Then
Sheet8.Range("AQ13").Value = Sheet2.Cells(y, "A").Value
Sheet8.Range("Ap15").Value = Sheet2.Cells(y, "B").Value
Sheet8.Range("AP17").Value = Sheet2.Cells(y, "K").Value
Sheet8.Range("AL28").Value = Sheet2.Cells(y, "C").Value
Sheet8.Range("AN30").Value = Sheet2.Cells(y, "D").Value
Sheet8.Range("AN32").Value = Sheet2.Cells(y, "F").Value
Sheet8.Range("AN34").Value = Sheet2.Cells(y, "E").Value
Sheet8.Range("AL36").Value = Sheet2.Cells(y, "H").Value

'============================================
'start code for Show Photo for ID Card - 3
'============================================
On Error Resume Next
Dim i As Picture
Dim J As String
If Target.Address = Range("AK3").Address Then
'ActiveSheet.Pictures.Delete
J = "C:\Photo\" & Range("AK3") & Value & ".jpg"
With Range("AI13")
Set i = ActiveSheet.Pictures.Insert(J)
i.Height = 55
i.Width = 42
i.Top = .Top
i.Left = .Left
End With
End If
End If
Next y