maaf baru sempat buka kasus ini lagi, hari ini pada saat Anda membuat USER BARU yang anda inginkan menjadi BOSS juga User Baru itu* diberi Hak Akses = APA ?* mungkin harusnya "All" [image: hak akses.PNG] Lebih jelasnya sambil melihat lihat prosedur-prosedur (makro)-nya apa yg dikehendaki bisa terbaca di situ
coba dilihat prosedur yg ada di module Form Login
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
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
2011/11/25 Harry <[email protected]>
> **
> 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
>
<<hak akses.PNG>>
