Login dan Hak Akses Pengguna (VBA) untuk wedding planner

Info proyek

• TemaWedding Planner dan Anggaran Pernikahan
• FiturProteksi dan Akses · Mahir
• PerangkatExcel
• Harga (satu harga)Rp 750.000

Fungsi yang dipakai

• VBA
• Workbook_Open
• Visible
• Protect
• InputBox

Data sensitif hanya terlihat oleh yang berhak.

Rumus di dalam berkas

Langkah memakai

1. 1Buka Alt+F11, klik dua kali ThisWorkbook, tempel kode berikut.
2. 2Ganti kata sandi contoh pada kode dengan milik Anda.
3. 3Simpan sebagai .xlsm dan tutup berkas.
4. 4Buka lagi: masukkan kata sandi admin atau staf.
5. 5Catatan: ini perlindungan dasar, bukan enkripsi tingkat tinggi.

Kode makro VBA

Modul makro dikirim sebagai berkas Modul_Makro.bas terpisah di dalam ZIP. Impor lewat Alt+F11. Cuplikan singkatnya:

Private Sub Workbook_Open()
    Dim pw As String, ws As Worksheet, admin As Boolean
    pw = InputBox("Masukkan kata sandi:", "Login")
    Select Case pw
        Case "admin123": admin = True
        Case "staf123": admin = False
        Case Else
            MsgBox "Kata sandi salah.", vbCritical
            ThisWorkbook.Close SaveChanges:=False
            Exit Sub
    End Select
    Sheets("Dashboard").Range("J2").Value = IIf(admin, "admin", "staf")
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Master" Or ws.Name = "Rekap" Then
            ws.Visible = IIf(admin, xlSheetVisible, xlSheetVeryHidden)
        End If
    Next ws
    Sheets("Dashboard").Activate
End Sub

Isi contoh

Kolom pada lembar Data:

• Pos Pernikahan
• Kategori
• Jumlah
• Harga
• Status
• Tanggal

Item pada lembar Master

Dashboard: Dasbor Anggaran Pernikahan

• Total Anggaran
• Sudah Dibayar
• Sisa Tagihan
• Jumlah Pos Selesai

Tips

• Tetapkan batas anggaran sebelum survei vendor
• Catat DP dan tanggal pelunasan tiap vendor
• Hitung jumlah tamu lebih dulu karena memengaruhi banyak biaya

Data contoh bersifat sintetis.

Harga dan pemesanan

Pertanyaan umum