Hallo Jack.
Tombol tersebut dibuat menggunakan ActiveX Control, agar dapat mengedit
gunakan cara:
Klik Ribbon Developer. (biasanya tidak tampak, untuk menampakkannya klik
excel option show developper ribbon, (Excel 2007)) Pada Tab Control, klik
design Mode. Jreng-jreng....... tombol Ad user dapat di klik Kanan.
salam
2015-02-16 6:01 GMT+07:00 Jack Carmelo jackcarm...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mas Nang Agus, makasih atas penjelasannya yang sangat bermanfaat. Tapi
> masih ada problem ne.
> Code mana yang membuat button tambahwong itu tidak bisa di edit ya. Hanya
> bisa di click. Gmna caranya membuat supaya tombol itu bisa di edit.
> Maaf saya cari tapi belum dapat jawaban yang bagian itu.
> Makasih...
>
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
> Sabtu, 14 Februari 2015, 02:09PM +0900 dari "Nang Agus nanga...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
> Maaf file tenpa encript terlupa
> 2015-02-14 12:08 GMT+07:00 Nang Agus < nanga...@gmail.com > :
> >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 • Reply to sender • Reply to group • Start a New
> Topic • Messages in this topic (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:
> belajar-excel-subscr...@yahoogroups.com
> >
> >posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
> >
> >berkunjung ke web milis :
> http://tech.groups.yahoo.com/group/belajar-excel/messages
> >
> >melihat file archive / mendownload lampiran :
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> >atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
> >
> >menghubungi moderators & owners: belajar-excel-ow...@yahoogroups.com
> >
> >keluar dari membership milis (UnSubscribe), kirim mail kosong ke :
> belajar-excel-unsubscr...@yahoogroups.com
> >---------------------------------------------------------------------
> >Visit Your Group
> >* New Members 12
> >• Privacy • Unsubscribe • Terms of Use
> >>.
> >
>
>
>
