Nhờ mọi người giúp đỡ

[khidotdn]

MÌnh mới tập tò dùng VBA mong các cao thủ giúp mình thu gọn code này với, vì nó có tận 24 sheet, mỗi sheets tương ứng với 1 code cho nên code rất dài. Chân thành cảm ơn các cao thủ

Sub Pass_NS()
Dim mypassword
tryagain:
mypassword = InputBox("Nhap Mat Khau", "Mat Khau")
If mypassword = "ns123" Then
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
Else
If MsgBox("Sai mat khau, ban muon thu lai?", vbYesNo, "Sai Mat Khau") = vbYes Then GoTo tryagain
End If
End Sub
'------------------------------------------------------------------------------------
Sub Pass_INJ()
Dim mypassword
tryagain:
mypassword = InputBox("Nhap Mat Khau", "Mat Khau")
If mypassword = "inj123" Then
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
Else
If MsgBox("Sai mat khau, ban muon thu lai?", vbYesNo, "Sai Mat Khau") = vbYes Then GoTo tryagain
End If
End Sub