Berikut adalah kode yang diperbarui:
# Kode Login
```
Sub Login()
' Variabel untuk menyimpan username dan password
Dim username As String
Dim password As String
' Input username dan password
username = InputBox("Masukkan Username", "Login")
password = InputBox("Masukkan Password", "Login", "", vbHiddenPassword)
' Kondisi untuk memeriksa username dan password
If username = "admin" And password = "password" Then
MsgBox "Login Berhasil!"
' Menampilkan sheet2 dan menyembunyikan sheet lain
Sheets("Sheet2").Visible = True
Sheets("Sheet2").Select
' Menyembunyikan sheet1
Sheets("Sheet1").Visible = False
Else
MsgBox "Username atau Password Salah!"
End If
End Sub
```
# Cara Menggunakan
1. Buka Excel dan tekan `Alt + F11`.
2. Buat modul baru dengan menekan `Insert` > `Module`.
3. Salin kode di atas dan tempelkan ke dalam modul.
4. Tekan `F5` untuk menjalankan kode atau tekan `Run` > `Run Sub/UserForm`.
5. Masukkan username dan password saat diminta.
# Kustomisasi
1. Ganti `"admin"` dan `"password"` dengan username dan password yang diinginkan.
2. Tambahkan kondisi untuk memeriksa multiple username dan password.
3. Gunakan enkripsi untuk meningkatkan keamanan password.
4. Tambahkan fitur untuk mengubah password atau mengatur hak akses.
