Private Sub Form_Load()
a = InputBox("Şifreyi giriniz")
If a = 12345 Then
Form1.Visible = True
Else
MsgBox ("şifre yanlış")
End
End If
End Sub
kod penceresini acın ve yukarıdakileri ekleyin ve calıştırın şifreniz:12345
__________________