*1 :*
Sesuai "wisik" (bisikan ghoib) dari si empunya project (ctv, yg sedang
mengasingkan diri (semoga lekas sehat kembali ya mbak...)
katanya begini:
Prosedur ini ( ada di dalam module Frm_NewUser)
Sub SaveIt(sUser As String, sPass As String, sSheet As String)
With Sheets("User")
iRow = .Range("B4").CurrentRegion.Rows.Count + 1
.Range("B3").EntireRow.Insert
.Range("B4") = "#"
.Range("C4") = Krip(sUser, True)
.Range("D4") = Krip(sPass, True)
.Range("E4") = Krip(UCase(sSheet), True)
End With
NewSheet sSheet
End Sub
di modifikasi menjadi seperti ini
Sub SaveIt(sUser As String, sPass As String, sSheet As String)
Dim iRow As Integer
With Sheets("User").Range("B4")
iRow = .Range("B4").CurrentRegion.Rows.Count + 1
.Cells(iRow, 1) = "#"
.Cells(iRow, 2) = Krip(sUser, True)
.Cells(iRow, 3) = Krip(sPass, True)
.Cells(iRow, 4) = Krip(UCase(sSheet), True)
End With
NewSheet sSheet
End Sub
*2 :*
Pertanyaan ini dulu pernah ditanyakan dan dijawab
Karena penyebab pengkodean itu adalah Fungsi Krip
Fungsi (UDF) itu dibuat sendiri dan dapat Anda lihat dengan jelas di module
standar bernama Log_Module
Jadi contohnya, penambahan New User tsb tidak akan di codekan jika
ditulisnya tanpa mengunakan UDF Krip spt ini
With Sheets("User").Range("B4")
iRow = .Range("B4").CurrentRegion.Rows.Count + 1
.Cells(iRow, 1) = "#"
.Cells(iRow, 2) = sUser
.Cells(iRow, 3) = sPass
.Cells(iRow, 4) = UCase(sSheet)
End With
Aneahnya Anda ini ingin login kan demi keamanan File (supaya tidak
diobok-obok orang yg tak berhak)
Anda diberi Kode login + diberi fungsi pengkodean nama user dan password
harusnya anda senang
bertambah level keamanannya
Kebalikan dari seang anda malah ingin menghilangkan ??? Yok Op rek ?
*3:*
Waduh mundur lagi ini ke masalah cara merujuk range (kok gak pernah
berkisar dari sini ya)
Ini hanya mengenai cara merujuk Range
Range itu bisa dimana saja tergantung anda menyebutnya
Jika anda sedang berada di sheet aktif; maka Range("B4") adalah range B4 di
sheet aktif
Tetapi jika anda ingin merujuk Range B4 di suatu workbook lain anda tetap
dengan mudah dapat merujuk (referring), mengakses, mengambil nilai dari
suatu cell, mengisi cellnya dsb.
contoh saja... (fixed address)
Workbooks(WORKBOOKHARICANGGIH").Worksheets("EntahApaNamanya").Range("B4") =
"#"
Workbooks(WORKBOOKHARICANGGIH").Worksheets("EntahApaNamanya").Range("C4") =
sUser
Workbooks(WORKBOOKHARICANGGIH").Worksheets("EntahApaNamanya").Range("D4") =
sPass
Workbooks(WORKBOOKHARICANGGIH").Worksheets("EntahApaNamanya").Range("E4")
= UCase(sSheet)
Nantinya, Pada saat mengakses kembali (misalnya akan dicocokkan dengan user
name yg sedang login), tentunya anda juga harus merujuk dengan cara yg sama
*Semprul..Ki!*
2012/3/5 Harry <[email protected]>
> Dear Be Exceller,
>
> Belajar dari materi sebelumnya mengenai User Login (ctv_Login_v2.xls),
bersama ini saya ingin menanyakan 3 (tiga) pertanyaan sebagai berikut:
> 1. Bagaimana cara dan rumusnya jika Pendaftaran New User yang
bertama kali berada pada posisi paling bawah sedangkan New User yang baru
saja didaftarkan berada paling atas…???
> Situasi yang sekarang posisi User yang baru didaftarkan selalu pada
posisi C4 & D4 (diatas) sedangkan User yang sudah didaftarkan sebelumnya
berada dibawahnya.
> 2. Pada output pendaftaran tersebut di kodekan kata sandi. Bagaimana
caranya jika kata sandi tersebut dibuang. Misalnya User dengan nama “EKA”
dengan password “eka” hasilnya outputnya adalah User Nama “EKA” dan
Password “eka”.
> 3. Bagaimana caranya jika output pendaftaran user tersebut di
dikirimkan ke file yang berbada, Mis. ctv_Login_v2.database.xls…??? Tapi
tetap bisa mengakses “UBAH PASSWORD”, “ADD NEW USER”, dll.
>
> Terima kasih atas berkenan informasinya.
> Semoga bermanfaat
>
> Regards,
> Harry
>
> N/B:
> Terlampir file ctv_Login_v2.xls
