Sementara belum sempat membuat tanggapan, haps ingin komentar saja dulu Suatu File diberi login adalah dlm rangka keamanan data dlm file itu, jadi soal keamanan file dan data menjadi hal yg cukup penting dalam membuat program tsb.
Tetapi.... Pak harry ingin menyederhanakan ( menurunkan tingkat keamanannya) dengan meniadakan enkripsi. Ini dapat kita tebak: untuk mempermudah penglihatan di tabel user (dilihat dari segi pembuat program); dan tanpa disadari juga mempermudah penglihtaan bagi user biasa... (hampir semua user suka jahil ingin menembus dinding keamanan) Di lain bagian: pak hari ingin menambahkan hal-hal yg tidak perlu misal *** text berkedip* (ini kan hanya soal kosmetik, tetapi di excel cukup menyita source) (kita berikan file contoh contoh yg pernah dibuat Yu Siti di sini<http://www.box.com/shared/13oo4lbqrr> http://www.box.com/shared/13oo4lbqrr walaupun judulnya Tutorial TEKS JALAN, tetapi didalamnya ada *blinking text*- nya *** satu file ingin di BOSS-i oleh banyak orang ( ?!) * sebetulnya misal memang benar itu yg dikehendaki; logikanya masih ringan, tetap pakai *struktur IF* atau pun Select Case mungkin seperti ini (pelajari dulu: struktur Select Case), atau cara lain Private Sub CmdNewUser_Click() Select Case Application.Range("ActUser").Value Case "boss", "IsteriBoss", "KeponakanBoss", "PacarBoss", "MertuaBoss" Me.Hide frmNewUser.Show Case Else MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Program Creator" End Select End Sub Oiya, ini hal kecil tapi sering jadi lucu... Dalam banyak message box, dlm program program serius.., Box Title / Pemberi peringatan: bukanlah si pembuat program, tetapi Program itu sendiri (diwakili nama program). Coba perhatikan contoh2 besar: *"Windows is shuting down " * (bukan: "Bill Gate is shutting down the Windows operating system") *"Excel tidak dapat menutup file karena bla bla bla"* (bukan : "Pembuat program tidak dapat menurup file excel yg sedang anda tutup karena bla bla bla..") Demikian sekedar gambaran. tetapi bgmanapun anda-lah penentunya... -haps- 2011/11/24 Harry <[email protected]> > ** > Terima kasih atas berkanan jawaban dan penjelasannya. > Selanjunya saya akan mencoba memahami penjelasan tersebut. > Selanjutnya, mohon berkanan diinformasikan akan pertanyaan saya sbb: > > 1. Dari rumus tersebut diatas berarti hanya “boss” yang berhak > menambah “User Baru”. > Pertanyaan saya adalah bagaimana rumusnya jika ada 3 atau 4 user yang > berhak menambah “User Baru”…??? > > Private Sub CmdNewUser_Click() > If Application.Range("ActUser") = "boss" Then > Me.Hide > frmNewUser.Show > Else > MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Program > Creator" > End If > End Sub > > 2. Untuk menggantian “Password”, bagaimana rumusnya agar > penggantian “Password” diperkenan oleh semua user tetapi User “boss” dan 3 > atau 4 user yang berhak menambah user baru tersebut diatas tidak bisa > diubah / diganti…?? > > 3. Pada User Form, bisa atau tidak membuat “Teks Kedap Kedip”…??? > Kalau bisa, bagaimana cara dan rumusnya…??? > > Sebelum dan sesudahnya saya mengucapkan banyak terima kasih. > Regards, > Harry > > ------------------------------ > *Dari:* Haps <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Selasa, 22 November 2011 5:26 > > *Judul:* Re: [belajar-excel] Login Pada Program Excel > *Menulis data tanpa Fungsi KRIP* > Misal kode vba tertulis spt ini: *Krip(LCase(sUser), True) * > dapat diganti dengan spt ini saja : *LCase(sUser)* > >
