Terima kasih atas informasinya.
Selanjutnya, saya akan mengikuti menulisan "Box Title"-nya.
Mengenai rumus sbb:
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, "Informasi"
End Select
End Sub
Saya juga belum bisa menambah user jika Active User "IsteriBoss",
KeponakanBoss" dll.
Mhn berkenan info tambahannya.
Terima kasih banyak terutama untuk "Box Title'-nya.
Regards,
Harry
________________________________
Dari: Haps <[email protected]>
Kepada: [email protected]
Dikirim: Jumat, 25 November 2011 6:25
Judul: Re: [belajar-excel] Login Pada Program Excel
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
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)
>
>
