Modul User_name

Option Explicit

Sub user()
Application.ScreenUpdating = False
Dim a, b As String
a = InputBox("Masukkan nama Lengkap", "UserName")

b = InputBox("Masukkan Initial nama ( 3-4 huruf)", "Initial")


 Sheets("MENU").Range("$Z$24").value = a
 Sheets("MENU").Range("$Z$26").value = b

MsgBox "Penambahan Username Berhasil", vbInformation, "Informasi"
Sheet1.Protect "1", userinterfaceonly:=True
End Sub