Dear Jack,
Salam Sejahtera
Saya juga sedang mulai belajar nih,
1. Tombol Add hanya untuk si admin, kalau semua orang bisa nambah user
bisa jadi kacau deh programnya.
perintah untuk memunculkan dan tidak memunculkan Add User ditititpkan di
Prosedur Worksheet_Active. Maksudnya macro akan jalan jika worksheet
diaktifkan (dalam contoh adalah worksheet2). Klik sheet2, View Code. Cekrip
selengkapnya:
Private Sub Worksheet_Activate()
If Sheets("Jeneng").Range("h2").Value = "*admin*" Then
TambahWong.Visible = True
Else
TambahWong.Visible = False
End If
Application.DisplayFullScreen = True
End Sub
Tombol Add diberi nama tambahWong. Sudah kelihatan khan apabila usernya
admin maka tambahWong diperlihatkan.
2. Tempat menyimpan cekrip AddUser di form frmNewUser, Klik Form,
frmNewUser, View Code. nama cekripnya cmdSave_Click() maksudnya jika tombol
save pada form NewUser.
Jadi tombol AddUser hanya digunakan untuk menampilkan form frmNewUser.
sedangkan nama pengguna baru disimpan setelah tombol Save pada form di klik.
3. Deliknasheet, adalah cekrip untuk menyembunyikan sheet (bahasa jawanya
sembunyikan = delikna); delikna sheet pemicunya adalah Workbook_Open,
tempatnya di This Workbook, view Code.
Jika workbook dibuka maka cekrip delikna sheet dijalankan. sedangkan
letaknya cekrip deliknasheet ada pada Modules LOgin. klik Modeles, LOgin,
view Code. cekrip selengkapnya:
Sub DeliknaSheets()
Dim W As Worksheet
Sheets("Sheet1").Visible = -1 ' (sheet 1 tampak)
Sheets("Jeneng").[f2:h2] = "" '(menghapus user dan password yang
disimpan di F2:H2)
For Each W In Worksheets
If W.Name <> "Sheet1" Then W.Visible = 2 ' (selain sheet1
sembunyikan)
Next W
End Sub
Semoga penjelasan ini tidak membingungkan, mungkin akan ada member lain
yang penjelasannya lebih OK
Salam
Nang Agus
------------------------------
Reply via web post
<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/35487;_ylc=X3oDMTJyaWh2c2dmBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMzNTQ4NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE0MjM4MzI3OTk-?act=reply&messageNum=35487>
• Reply to sender
<[email protected]?subject=Re%3A%20Re%5B2%5D%3A%20%5Bbelajar-excel%5D%20Penjelasan%20Code>
• Reply to group
<[email protected]?subject=Re%3A%20Re%5B2%5D%3A%20%5Bbelajar-excel%5D%20Penjelasan%20Code>
• Start a New Topic
<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/newtopic;_ylc=X3oDMTJmN202dWYxBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzE0MjM4MzI3OTk->
• Messages in this topic
<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/35487;_ylc=X3oDMTM3YTBlbmJ0BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAMzNTQ4NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE0MjM4MzI3OTkEdHBjSWQDMzU0ODc->
(1)
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke:
[email protected]
posting ke milis, kirimkan ke: [email protected]
berkunjung ke web milis :
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran :
http://www.mail-archive.com/[email protected]/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [email protected]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke :
[email protected]
---------------------------------------------------------------------
Visit Your Group
<https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmZW90Ymc5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE0MjM4MzI3OTk->
- New Members
<https://groups.yahoo.com/neo/groups/belajar-excel/members/all;_ylc=X3oDMTJnNHJ2N2U2BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxNDIzODMyNzk5>
12
[image: Yahoo! Groups]
<https://groups.yahoo.com/neo;_ylc=X3oDMTJlZDdqdTAwBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTQyMzgzMjc5OQ-->
• Privacy <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
Unsubscribe <[email protected]?subject=Unsubscribe>
• Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
.
>
>
>
