Thank'z mbak Rara,,,
jd kode itu yg menentukan user boss dg hak akses ALL bisa membuka semua Sheets,,
tp kenapa pas saya mau buat user Baru di form Add New User itu ada kolom Hak
Akses dan saya masukkan ALL tp kenapa user baru tersebut di buatkan Sheet baru
dg nama ALL dan hanya Sheets tsb yg terbuka,,,
.
oz pertanyaan saya satu lagi mbak,,
bisa tidak jika diberikan history nama user login, tgl login, dan apa saja yg
di lalukan user??
semua tercatat di notepad,,yaa seperti log file gtu mbak,,,
mohon bantuannya mbak Rara..,,
________________________________
Dari: Rara Wilis <ra2wi...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 24 Juni 2012 9:45
Judul: Re: [belajar-excel] Form Login
Maaf baru terbaca Minggu pagi ini...
Mohon di buka module "FrmLogin"
di sana ada prosedur sbb, di situlah (dengan IF) diatur berdasarkan status (hak
Sheet):
(1) apakah harus membuka satu sheet khusus
(2) atau kah membuka semua sheet yg ada (kecuali sheet USER & FACE)
data di sheet user ada yg disembunyikan dengan custom number format tak
terlihat (;;;)
Bapak bisa mencoba : men-Select / mem-Blok semua cells di sheet tsb
kemudian berikan format General.
di dalam makro tsb untuk membandingkan Input Login dengan data yg ada secara
langsung
tentu tidak akan ada yg cocok, karena data di - enkrip
Sebab itulah dlm prosedur di bawah ini pembandingan harus sambil meng-Dekrip
data yg ada
Caranya seperti yg telah dijelaskan Oom Kid. (dan sekarang jelas terlihat di
codingnya)
Private Sub SheetToOpen(vUserNm)
Dim sht As String, DafSht As Range, s As Byte, cel As Range
vUserNm = LCase(vUserNm)
With Sheets("User")
sht = .Range("E" & .Range("i2")).Value
If sht = Krip("All", True) Then
Set DafSht = Range(.Range("E4"), .Range("E4").End(xlDown))
For Each cel In DafSht
If cel.Value <> Krip("All", True)And cel.Value <> "" Then
sht = Krip(cel.Value, False)
Sheets(sht).Visible = -1
End If
Next cel
Else ' (kalau hak sheet = bukan "All"
sht = Krip(sht, False)
Sheets(sht).Visible = -1
Sheets(sht).Activate
Sheets("Face").Visible = 0
Sheets("User").Visible = 2
End If
End With
Unload Me
frmMainMenu.Hide
End Sub
catatan gak penting: nilai visibility sebuah sheet di VBA selain dengan enum
constants yg telah disediakan
-1 = visible
0 = hidden
2 = veryhidden
~Rara
2012/6/24 Flow Nanank <flow.nan...@yahoo.co.id>
>Trimakasih mbak Rara,,,
>maksud saya code yg berada didalam form login yg di buat mbak Siti,,,
>code yg menentukan user boss bisa melihat semua Sheets, saya coba cari2 kog
>tidak ketemu,,
>saya mencoba menulis kembali code tsb karna ada penambahan2 lagi,,,
>
>
>
>________________________________
> Dari: Rara Wilis <ra2wi...@gmail.com>
>Dikirim: Sabtu, 23 Juni 2012 17:03
>mbak siti lagi bobok manis, proses recovery, semoga lekas sehat kembali...
>
>
>Kita usahakan menjawab:
>Prinsipnya karena boss punya status ALL
>Kemudian ada pencabangan (dengan IF)
>
>
>IF Status = "ALL" Then
> '--- unhide semua sheets
>ELSE
>'--- unhide sheet khusus si Loger
>END IF
>
>
>begitulah kira-kira... Rara..ra
>
>
