15 New Messages
Digest #1818
5b
Re: Mohon bantuan membuat perintah cari dan update dengan macro by "hendrik karnadi" hendrikkarnadi
6b
Re: Bisakah membuat form database di excel dengan kebutuhan spt terl by "hendrik karnadi" hendrikkarnadi
Messages
Mon Oct 1, 2012 6:11 pm (PDT) . Posted by:
"agung.widodo01@id.panasonic.com" aghoenx1
Terimakasih pak Ghozi
Dan juga bapak KID, Bp Ade dan Bpk Ferdi atas masukannya.
Masalah terselesaikan
Wassalam
AgungWi
________________________________
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of ghozi alkatiri
Sent: Monday, October 01, 2012 7:09 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Conditional Formatting Formula bernilai Libur
pada kotak isian conditional formula tulis
=IF(OR(WEEKDAY(A2)=1;WEEKDAY(A2)=7);TRUE)
wassalam
Ghozi Alkatiri
________________________________
Dari: "agung.widodo01@id.panasonic.com " <agung.widodo01@id.panasonic.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 1 Oktober 2012 9:06
Judul: [belajar-excel] Conditional Formatting Formula bernilai Libur
Rekans,
Bagaimana conditional Formatting B2 agar bisa merah bila valuenya Sat atau Sun
B2 formula yang ngambil dari A2
Date
Day
5-Aug
Sun
6-Aug
Mon
7-Aug
Tue
8-Aug
Wed
9-Aug
Thu
10-Aug
Fri
11-Aug
Sat
12-Aug
Sun
Sudah dicoba Formula is =A2="Sun"
Nggak Bisa
[cid:image001.gif@01CDA075.7DB6EB50 ]
Terimakasih
AW
Dan juga bapak KID, Bp Ade dan Bpk Ferdi atas masukannya.
Masalah terselesaikan
Wassalam
AgungWi
____________
From: belajar-excel@
Sent: Monday, October 01, 2012 7:09 PM
To: belajar-excel@
Subject: Bls: [belajar-excel] Conditional Formatting Formula bernilai Libur
pada kotak isian conditional formula tulis
=IF(OR(WEEKDAY(
wassalam
Ghozi Alkatiri
____________
Dari: "agung.widodo01@
Kepada: belajar-excel@
Dikirim: Senin, 1 Oktober 2012 9:06
Judul: [belajar-excel] Conditional Formatting Formula bernilai Libur
Rekans,
Bagaimana conditional Formatting B2 agar bisa merah bila valuenya Sat atau Sun
B2 formula yang ngambil dari A2
Date
Day
5-Aug
Sun
6-Aug
Mon
7-Aug
Tue
8-Aug
Wed
9-Aug
Thu
10-Aug
Fri
11-Aug
Sat
12-Aug
Sun
Sudah dicoba Formula is =A2="Sun"
Nggak Bisa
[cid:image001.gif@
Terimakasih
AW
Mon Oct 1, 2012 6:21 pm (PDT) . Posted by:
"M.Ade Alfarid" aderyo
Terlampir contohnya,
Tapi lihat ada yang ganjil coba diperiksa ya
Ade
On Mon, 01 Oct 2012 16:10:20 +0700, agam Tole <agam_tole@yahoo.com > wrote:
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung
> bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp.
> 3.000,-/ Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini ,
> jika_salah_tulis_nilai_ini )
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
Tapi lihat ada yang ganjil coba diperiksa ya
Ade
On Mon, 01 Oct 2012 16:10:20 +0700, agam Tole <agam_tole@yahoo.
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung
> bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp.
> 3.000,-/ Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
> jika_salah_tulis_
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
Mon Oct 1, 2012 7:18 pm (PDT) . Posted by:
"aji mumpung"
Pak Agam,
karena thread ini banyak yang merespon.. saya tertarik dan ikutan ya..
kembali ke thread awal.. supaya lebih jelas..
Bonus dihitung apabila angka melebihi 200 Ton,
1. Apakah angka yang tercantum dalam kolom Tonase sudah dalam satuan Ton
atau masih dalam Kilogram? kalo sudah dalam Ton maka seharusnya semua data
dalam sampel berhak atas bonus, jika tidak maka ada 1 data yang tidak
berhak atas bonus.
2. Apakah bonus dihitung untuk setiap kelebihan di atas 200 atau dihitung
mulai dari 1 Ton pertama? tentu saja rumusnya akan berbeda untuk dua
kondisi seperti ini (contoh 201 Ton yang satu akan dihitung 201 * 3000
sedangkan yang satunya lagi adalah 1 * 3000)
3. Menyangkut poin 1 di atas, jika ternyata angka yang tercantum dalam
Tonase ternyata masih dalam satuan Kilogram, apakah kelebihan 1.100 Kg
dihitung sebagai 1 Ton dikali 3000 atau 1,1 Ton dikali 3000? untuk hal ini
formulanya juga akan berbeda.
setelah semuanya lebih jelas tentu solusi akhir yang diberikan oleh member
millis ini juga akan menjadi sebuah solusi yang optimal
wassalam,
-aji mumpung-
Pada 1 Oktober 2012 16:10, agam Tole <agam_tole@yahoo.com > menulis:
> **
>
>
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
> tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini ,
> jika_salah_tulis_nilai_ini )
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
>
>
karena thread ini banyak yang merespon.. saya tertarik dan ikutan ya..
kembali ke thread awal.. supaya lebih jelas..
Bonus dihitung apabila angka melebihi 200 Ton,
1. Apakah angka yang tercantum dalam kolom Tonase sudah dalam satuan Ton
atau masih dalam Kilogram? kalo sudah dalam Ton maka seharusnya semua data
dalam sampel berhak atas bonus, jika tidak maka ada 1 data yang tidak
berhak atas bonus.
2. Apakah bonus dihitung untuk setiap kelebihan di atas 200 atau dihitung
mulai dari 1 Ton pertama? tentu saja rumusnya akan berbeda untuk dua
kondisi seperti ini (contoh 201 Ton yang satu akan dihitung 201 * 3000
sedangkan yang satunya lagi adalah 1 * 3000)
3. Menyangkut poin 1 di atas, jika ternyata angka yang tercantum dalam
Tonase ternyata masih dalam satuan Kilogram, apakah kelebihan 1.100 Kg
dihitung sebagai 1 Ton dikali 3000 atau 1,1 Ton dikali 3000? untuk hal ini
formulanya juga akan berbeda.
setelah semuanya lebih jelas tentu solusi akhir yang diberikan oleh member
millis ini juga akan menjadi sebuah solusi yang optimal
wassalam,
-aji mumpung-
Pada 1 Oktober 2012 16:10, agam Tole <agam_tole@yahoo.
> **
>
>
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
> tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
> jika_salah_tulis_
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
>
>
Mon Oct 1, 2012 7:38 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
ndak apa-apa Pak Hendrik.
Kalau boleh usul...
Bagaimana jika diperindah sedikit dengan tidak memaksa user untuk login
lagi ketika masuk ke sheet menu. Siapa tahu user mau menuju form lainnya.
Capek dan nyebelin juga kalau bentar-bentar harus login lagi.
hehehe... mangapin aye ye, bisanya cuman urun masalah tanpa solusi...
Wassalam,
Kid.
2012/10/1 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid
> belum mint ijin) maka jadilah program yang belum sempurna seperti file
> terlampir.
>
> Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala
> arah (walaupun masih bisa dibongkar).
> - Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi)
> dinonaktifkan dengan Event Worksheet_Activate
> - Pada saat workbook belum ditutup atau disave semua tombol (kecuali
> tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan
> BeforeSave.
> - Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk
> ).
>
> Cara kerjanya kurang lebih seperti ini:
> - Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka
> USER diberi pesan
> - Jika USER sudah mengetik ID yang benar maka USER harus memasukkan
> password sesuai sheet tbluser (tbluser juga harus dipassword - belum
> dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan
> password maka USER akan diberi pesan.
> - Jika USER memasukkan password yang tidak sesuai dengan yang ada pada
> sheet tbluser maka USER juga akan diberi pesan.
> - Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka
> sesuai levelnya
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 1 October 2012, 14:27
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> loh... ternyata ide
> 'cek username diatas sini
> 'cek pwd sebagai berikut
> IF pass=Sheets("tbluser").range("
> d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
> else
> range("j3").clearcontents
> endif
> 'proses enabled disini
> belum dicoba
> ya wis...
>
> Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak
> ditemukan pasti langsung keluar dari proses.
> Kalau username ketemu, maka sudah bisa dapat barisnya di *lcari*
> Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan
> password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets("tbluser").range("d" & lcari).value then
> Jadi pengecekan passwordnya sama atau tidak,* tidak bisa *dilakukan
> dengan cara :
> *kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row*
> karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu
> password milik username lain.
>
> Jika username sudah ketemu (nilai *lcari*) dan teks password sudah sama (*IF
> yang biru*), maka lakukan set penyimpanan nilai akses ke J3.
>
> Oleh sebab itu, maka bagian :
> kcari = Sheets("tbluser").Columns("D:
> D").Find(pass).Row
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser")
> Range("J3").Value = .Range("E" & lcari).Value
> 'With Sheets("frmbarangmasuk")
> Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
> Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama").Range("J3"
> ).Value = ""
>
> End With
> harusnya diganti dengan
> 'cek pwd sebagai berikut
> IF pass=Sheets("tbluser").range("
> d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
> else
> range("j3").clearcontents
> endif
> (bagian untuk tulis ke sheet lain yang ada di *merah *sana juga
> dimasukkan ke *blok IF yang biru*)
>
>
> Wassalam,
> Kid.
>
> On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
> **
>
> selamat siang semua
>
> Private Sub cmdkon_Click()
> 'Membuat variabel
> Dim user As String
> Dim pass As String
> Dim lcari As Long
> Dim kcari As Long
>
> 'Memastikan
> If Trim(txtuser.Value) = "" Then
> MsgBox "USER ID", vbInformation, "Info"
> Exit Sub
> End If
> On Error Resume Next
> user = LCase(Trim(txtuser.Value))
> pass = LCase(Trim(txtpass.Value))
> lcari = 0
> kcari = 0
> lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser")
> Range("J3").Value = .Range("E" & lcari).Value
> 'With Sheets("frmbarangmasuk")
> Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
> Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama").Range("J3").Value = ""
>
> End With
> If Range("J3").Value = "User" Then
> cmdinputdata.Enabled = True
> cmdtransaksi.Enabled = True
> cmdtransaksib.Enabled = True
> Else
> If Range("J3").Value = "Admin" Then
> cmdadmin.Enabled = True
> End If
> End If
> End Sub
> saya coba koding seperti diatas namun ttp belum bisa
> ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
> post saya di atas cm koding diubah sedikit seperti yg saya paparkan
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>
>
>
Kalau boleh usul...
Bagaimana jika diperindah sedikit dengan tidak memaksa user untuk login
lagi ketika masuk ke sheet menu. Siapa tahu user mau menuju form lainnya.
Capek dan nyebelin juga kalau bentar-bentar harus login lagi.
hehehe... mangapin aye ye, bisanya cuman urun masalah tanpa solusi...
Wassalam,
Kid.
2012/10/1 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid
> belum mint ijin) maka jadilah program yang belum sempurna seperti file
> terlampir.
>
> Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala
> arah (walaupun masih bisa dibongkar).
> - Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi)
> dinonaktifkan dengan Event Worksheet_Activate
> - Pada saat workbook belum ditutup atau disave semua tombol (kecuali
> tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
> BeforeSave.
> - Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk
> ).
>
> Cara kerjanya kurang lebih seperti ini:
> - Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka
> USER diberi pesan
> - Jika USER sudah mengetik ID yang benar maka USER harus memasukkan
> password sesuai sheet tbluser (tbluser juga harus dipassword - belum
> dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan
> password maka USER akan diberi pesan.
> - Jika USER memasukkan password yang tidak sesuai dengan yang ada pada
> sheet tbluser maka USER juga akan diberi pesan.
> - Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka
> sesuai levelnya
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 1 October 2012, 14:27
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> loh... ternyata ide
> 'cek username diatas sini
> 'cek pwd sebagai berikut
> IF pass=Sheets(
> d" & lcari).value then
> range("j3").
> else
> range("j3").
> endif
> 'proses enabled disini
> belum dicoba
> ya wis...
>
> Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak
> ditemukan pasti langsung keluar dari proses.
> Kalau username ketemu, maka sudah bisa dapat barisnya di *lcari*
> Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan
> password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets(
> Jadi pengecekan passwordnya sama atau tidak,* tidak bisa *dilakukan
> dengan cara :
> *kcari = Sheets("tbluser"
> karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu
> password milik username lain.
>
> Jika username sudah ketemu (nilai *lcari*) dan teks password sudah sama (*IF
> yang biru*), maka lakukan set penyimpanan nilai akses ke J3.
>
> Oleh sebab itu, maka bagian :
> kcari = Sheets("tbluser"
> D").Find(pass)
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser"
> Range("J3").
> 'With Sheets("frmbarangma
> Sheets("frmbarangma
> Sheets("frmbarangke
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama"
> ).Value = ""
>
> End With
> harusnya diganti dengan
> 'cek pwd sebagai berikut
> IF pass=Sheets(
> d" & lcari).value then
> range("j3").
> else
> range("j3").
> endif
> (bagian untuk tulis ke sheet lain yang ada di *merah *sana juga
> dimasukkan ke *blok IF yang biru*)
>
>
> Wassalam,
> Kid.
>
> On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
> **
>
> selamat siang semua
>
> Private Sub cmdkon_Click(
> 'Membuat variabel
> Dim user As String
> Dim pass As String
> Dim lcari As Long
> Dim kcari As Long
>
> 'Memastikan
> If Trim(txtuser.
> MsgBox "USER ID", vbInformation, "Info"
> Exit Sub
> End If
> On Error Resume Next
> user = LCase(Trim(txtuser.
> pass = LCase(Trim(txtpass.
> lcari = 0
> kcari = 0
> lcari = Sheets("tbluser"
> kcari = Sheets("tbluser"
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser"
> Range("J3").
> 'With Sheets("frmbarangma
> Sheets("frmbarangma
> Sheets("frmbarangke
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama"
>
> End With
> If Range("J3").
> cmdinputdata.
> cmdtransaksi.
> cmdtransaksib.
> Else
> If Range("J3").
> cmdadmin.Enabled = True
> End If
> End If
> End Sub
> saya coba koding seperti diatas namun ttp belum bisa
> ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
> post saya di atas cm koding diubah sedikit seperti yg saya paparkan
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>
>
>
Mon Oct 1, 2012 8:38 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr. Kid.
Ini sekedar imaginasi saya saja bahwa Sheet MenuUtama hanya diakses pada saat Login.
Jika sering diakses, tentunya Event Worksheet_Activatenya perlu dinonaktifkan...... begitu kan Mr. Kid ?
sedikit catatan untuk "sapicumi"
Agar sensornya berjalan dengan baik, tentunya Sheet tbluser harus disembunyikan juga.
Berikut saya lampirkan juga contoh file yang berisi macro untuk "menyembunyikan" dan "membuka" sheet2 selain sheet utama (dalam contoh Sheet1), Password macronya hk.
Tentunya untuk diterapkan dalam contoh kasus, Macronya perlu disesuaikan.
Semoga bermanfaat (pinjam istilah Pak Anton).
Salam,
Hendrik Karnadi
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 2 October 2012, 9:38
Subject: Re: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
ndak apa-apa Pak Hendrik.
Kalau boleh usul...
Bagaimana jika diperindah sedikit dengan tidak memaksa user untuk login lagi ketika masuk ke sheet menu. Siapa tahu user mau menuju form lainnya. Capek dan nyebelin juga kalau bentar-bentar harus login lagi.
hehehe... mangapin aye ye, bisanya cuman urun masalah tanpa solusi...
Wassalam,
Kid.
2012/10/1 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>
>
>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan BeforeSave.
>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>
>
>Cara kerjanya kurang lebih seperti ini:
>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 1 October 2012, 14:27
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>loh... ternyata ide
>'cek username diatas sini
>'cek pwd sebagai berikut
>IF pass=Sheets("tbluser").range("
>d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>else
> range("j3").clearcontents
>endif
>'proses enabled disinibelum dicoba
>ya wis...
>
>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets("tbluser").range("d" & lcari).value then
>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>
>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>
>Oleh sebab itu, maka bagian :
>kcari = Sheets("tbluser").Columns("D:
>D").Find(pass).Row
>If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser")
>Range("J3").Value = .Range("E" & lcari).Value
>'With Sheets("frmbarangmasuk")
>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>txtuser.Value = ""
>txtpass.Value = ""
>Sheets("MenuUtama").Range("J3"
>).Value = ""
>
>End Withharusnya diganti dengan
>'cek pwd sebagai berikut
>IF pass=Sheets("tbluser").range("
>d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>else
> range("j3").clearcontents
>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>
>
>Wassalam,
>Kid.
>
>
>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
>
>>
>>selamat siang semua
>>
>>
>>Private Sub cmdkon_Click()
>>'Membuat variabel
>>Dim user As String
>>Dim pass As String
>>Dim lcari As Long
>>Dim kcari As Long
>>
>>'Memastikan
>>If Trim(txtuser.Value) = "" Then
>>MsgBox "USER ID", vbInformation, "Info"
>>Exit Sub
>>End If
>>On Error Resume Next
>>user = LCase(Trim(txtuser.Value))
>>pass = LCase(Trim(txtpass.Value))
>>lcari = 0
>>kcari = 0
>>lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
>>kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>>
If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser")
>>Range("J3").Value = .Range("E" & lcari).Value
>>'With Sheets("frmbarangmasuk")
>>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>>txtuser.Value = ""
>>txtpass.Value = ""
>>
Sheets("MenuUtama").Range("J3").Value = ""
>>
>>End With
>>If Range("J3").Value = "User" Then
>>cmdinputdata.Enabled = True
>>cmdtransaksi.Enabled = True
>>cmdtransaksib.Enabled = True
>>Else
>>If Range("J3").Value = "Admin" Then
>>cmdadmin.Enabled = True
>>End If
>>End If
>>End Sub
>>
saya coba koding seperti diatas namun ttp belum bisa
>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>trimakasih
>>
>>jojo
>>
>>--
>>View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>>
>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>
>>
>
>
>
Ini sekedar imaginasi saya saja bahwa Sheet MenuUtama hanya diakses pada saat Login.
Jika sering diakses, tentunya Event Worksheet_Activaten
sedikit catatan untuk "sapicumi"
Agar sensornya berjalan dengan baik, tentunya Sheet tbluser harus disembunyikan juga.
Berikut saya lampirkan juga contoh file yang berisi macro untuk "menyembunyikan" dan "membuka" sheet2 selain sheet utama (dalam contoh Sheet1), Password macronya hk.
Tentunya untuk diterapkan dalam contoh kasus, Macronya perlu disesuaikan.
Semoga bermanfaat (pinjam istilah Pak Anton).
Salam,
Hendrik Karnadi
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, 2 October 2012, 9:38
Subject: Re: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
ndak apa-apa Pak Hendrik.
Kalau boleh usul...
Bagaimana jika diperindah sedikit dengan tidak memaksa user untuk login lagi ketika masuk ke sheet menu. Siapa tahu user mau menuju form lainnya. Capek dan nyebelin juga kalau bentar-bentar harus login lagi.
hehehe... mangapin aye ye, bisanya cuman urun masalah tanpa solusi...
Wassalam,
Kid.
2012/10/1 hendrik karnadi <hendrikkarnadi@
>
>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>
>
>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>
>
>Cara kerjanya kurang lebih seperti ini:
>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Monday, 1 October 2012, 14:27
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>loh... ternyata ide
>'cek username diatas sini
>'cek pwd sebagai berikut
>IF pass=Sheets(
>d" & lcari).value then
> range("j3").
>else
> range("j3").
>endif
>'proses enabled disinibelum dicoba
>ya wis...
>
>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets(
>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
> kcari = Sheets("tbluser"
>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>
>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>
>Oleh sebab itu, maka bagian :
>kcari = Sheets("tbluser"
>D").Find(pass)
>If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser"
>Range("J3")
>'With Sheets("frmbarangma
>Sheets("frmbarangm
>Sheets("frmbarangk
>txtuser.Value = ""
>txtpass.Value = ""
>Sheets("MenuUtama"
>).Value = ""
>
>End Withharusnya diganti dengan
>'cek pwd sebagai berikut
>IF pass=Sheets(
>d" & lcari).value then
> range("j3").
>else
> range("j3").
>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>
>
>Wassalam,
>Kid.
>
>
>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
>
>>
>>selamat siang semua
>>
>>
>>Private Sub cmdkon_Click(
>>'Membuat variabel
>>Dim user As String
>>Dim pass As String
>>Dim lcari As Long
>>Dim kcari As Long
>>
>>'Memastikan
>>If Trim(txtuser.
>>MsgBox "USER ID", vbInformation, "Info"
>>Exit Sub
>>End If
>>On Error Resume Next
>>user = LCase(Trim(txtuser.
>>pass = LCase(Trim(txtpass.
>>lcari = 0
>>kcari = 0
>>lcari = Sheets("tbluser"
>>kcari = Sheets("tbluser"
>>
If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser"
>>Range("J3"
>>'With Sheets("frmbarangma
>>Sheets("frmbarang
>>Sheets("frmbarang
>>txtuser.Value = ""
>>txtpass.Value = ""
>>
Sheets("MenuUtama"
>>
>>End With
>>If Range("J3").
>>cmdinputdata.
>>cmdtransaksi.
>>cmdtransaksib.
>>Else
>>If Range("J3").
>>cmdadmin.Enabled = True
>>End If
>>End If
>>End Sub
>>
saya coba koding seperti diatas namun ttp belum bisa
>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>trimakasih
>>
>>jojo
>>
>>--
>>View this message in context: http://milis-
>>
>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>
>>
>
>
>
Mon Oct 1, 2012 8:21 pm (PDT) . Posted by:
"Teti Zhe" teti_zhe
Dear All,,
Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.. mohon step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini.. Makasih banyak sebelumnya yaa pencerahannya ntar..
Salam,
Teti.
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, October 1, 2012 5:01 PM
Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan BeforeSave.
- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
Cara kerjanya kurang lebih seperti ini:
- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 1 October 2012, 14:27
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
loh... ternyata ide
'cek username diatas sini
'cek pwd sebagai berikut
IF pass=Sheets("tbluser").range("
d" & lcari).value then
range("j3").value =Sheets("tbluser").range("e" & lcari).value
else
range("j3").clearcontents
endif
'proses enabled disinibelum dicoba
ya wis...
Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
IF pass=Sheets("tbluser").range("d" & lcari).value then
Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
Oleh sebab itu, maka bagian :
kcari = Sheets("tbluser").Columns("D:
D").Find(pass).Row
If lcari = 0 And kcari = 0 Then
MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
"Silahkan isikan yang lain", vbInformation, "Info"
txtuser.Value = ""
txtpass.Value = ""
Exit Sub
End If
With Sheets("tbluser")
Range("J3").Value = .Range("E" & lcari).Value
'With Sheets("frmbarangmasuk")
Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
txtuser.Value = ""
txtpass.Value = ""
Sheets("MenuUtama").Range("J3"
).Value = ""
End Withharusnya diganti dengan
'cek pwd sebagai berikut
IF pass=Sheets("tbluser").range("
d" & lcari).value then
range("j3").value =Sheets("tbluser").range("e" & lcari).value
else
range("j3").clearcontents
endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
Wassalam,
Kid.
On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
>selamat siang semua
>
>
>Private Sub cmdkon_Click()
>'Membuat variabel
>Dim user As String
>Dim pass As String
>Dim lcari As Long
>Dim kcari As Long
>
>'Memastikan
>If Trim(txtuser.Value) = "" Then
>MsgBox "USER ID", vbInformation, "Info"
>Exit Sub
>End If
>On Error Resume Next
>user = LCase(Trim(txtuser.Value))
>pass = LCase(Trim(txtpass.Value))
>lcari = 0
>kcari = 0
>lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
>kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>
If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser")
>Range("J3").Value = .Range("E" & lcari).Value
>'With Sheets("frmbarangmasuk")
>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>txtuser.Value = ""
>txtpass.Value = ""
>
Sheets("MenuUtama").Range("J3").Value = ""
>
>End With
>If Range("J3").Value = "User" Then
>cmdinputdata.Enabled = True
>cmdtransaksi.Enabled = True
>cmdtransaksib.Enabled = True
>Else
>If Range("J3").Value = "Admin" Then
>cmdadmin.Enabled = True
>End If
>End If
>End Sub
>
saya coba koding seperti diatas namun ttp belum bisa
>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>trimakasih
>
>jojo
>
>--
>View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>
>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.
Salam,
Teti.
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Monday, October 1, 2012 5:01 PM
Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
Cara kerjanya kurang lebih seperti ini:
- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, 1 October 2012, 14:27
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
loh... ternyata ide
'cek username diatas sini
'cek pwd sebagai berikut
IF pass=Sheets(
d" & lcari).value then
range("j3").
else
range("j3").
endif
'proses enabled disinibelum dicoba
ya wis...
Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
IF pass=Sheets(
Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
kcari = Sheets("tbluser"
karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
Oleh sebab itu, maka bagian :
kcari = Sheets("tbluser"
D").Find(pass)
If lcari = 0 And kcari = 0 Then
MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
"Silahkan isikan yang lain", vbInformation, "Info"
txtuser.Value = ""
txtpass.Value = ""
Exit Sub
End If
With Sheets("tbluser"
Range("J3").
'With Sheets("frmbarangma
Sheets("frmbarangma
Sheets("frmbarangke
txtuser.Value = ""
txtpass.Value = ""
Sheets("MenuUtama"
).Value = ""
End Withharusnya diganti dengan
'cek pwd sebagai berikut
IF pass=Sheets(
d" & lcari).value then
range("j3").
else
range("j3").
endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
Wassalam,
Kid.
On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
>selamat siang semua
>
>
>Private Sub cmdkon_Click(
>'Membuat variabel
>Dim user As String
>Dim pass As String
>Dim lcari As Long
>Dim kcari As Long
>
>'Memastikan
>If Trim(txtuser.
>MsgBox "USER ID", vbInformation, "Info"
>Exit Sub
>End If
>On Error Resume Next
>user = LCase(Trim(txtuser.
>pass = LCase(Trim(txtpass.
>lcari = 0
>kcari = 0
>lcari = Sheets("tbluser"
>kcari = Sheets("tbluser"
>
If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser"
>Range("J3")
>'With Sheets("frmbarangma
>Sheets("frmbarangm
>Sheets("frmbarangk
>txtuser.Value = ""
>txtpass.Value = ""
>
Sheets("MenuUtama"
>
>End With
>If Range("J3").
>cmdinputdata.
>cmdtransaksi.
>cmdtransaksib.
>Else
>If Range("J3").
>cmdadmin.Enabled = True
>End If
>End If
>End Sub
>
saya coba koding seperti diatas namun ttp belum bisa
>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>trimakasih
>
>jojo
>
>--
>View this message in context: http://milis-
>
>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
Mon Oct 1, 2012 8:27 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Oh gambar object control di worksheet ya mbak :
1. buat workbook baru
2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
3. kalau ndak ada, ke office button -> option -> page Popular -> cari item
Show Developer bla-bla di frame kanannya -> centang -> OK
4. klik ribbon Developer
5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya
ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
6. Atur-atur deh.
7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur
format shape-nya), dsb.
maksudnya gitu bukan ya...
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
> **
>
>
> Dear All,,
> Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat
> belajar membangun sebuah aplikasi di excel :)
> codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih
> belum mengerti gimana awalnya buat form nya seperti itu..??heheh.. mohon
> step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg
> sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka
> langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini..
> Makasih banyak sebelumnya yaa pencerahannya ntar..
>
>
> Salam,
> Teti.
>
> ------------------------------
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Monday, October 1, 2012 5:01 PM
> *Subject:* Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid
> belum mint ijin) maka jadilah program yang belum sempurna seperti file
> terlampir.
>
> Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala
> arah (walaupun masih bisa dibongkar).
> - Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi)
> dinonaktifkan dengan Event Worksheet_Activate
> - Pada saat workbook belum ditutup atau disave semua tombol (kecuali
> tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan
> BeforeSave.
> - Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk
> ).
>
> Cara kerjanya kurang lebih seperti ini:
> - Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka
> USER diberi pesan
> - Jika USER sudah mengetik ID yang benar maka USER harus memasukkan
> password sesuai sheet tbluser (tbluser juga harus dipassword - belum
> dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan
> password maka USER akan diberi pesan.
> - Jika USER memasukkan password yang tidak sesuai dengan yang ada pada
> sheet tbluser maka USER juga akan diberi pesan.
> - Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka
> sesuai levelnya
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 1 October 2012, 14:27
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> loh... ternyata ide
> 'cek username diatas sini
> 'cek pwd sebagai berikut
> IF pass=Sheets("tbluser").range("
> d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
> else
> range("j3").clearcontents
> endif
> 'proses enabled disini
> belum dicoba
> ya wis...
>
> Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak
> ditemukan pasti langsung keluar dari proses.
> Kalau username ketemu, maka sudah bisa dapat barisnya di *lcari*
> Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan
> password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets("tbluser").range("d" & lcari).value then
> Jadi pengecekan passwordnya sama atau tidak,* tidak bisa *dilakukan
> dengan cara :
> *kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row*
> karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu
> password milik username lain.
>
> Jika username sudah ketemu (nilai *lcari*) dan teks password sudah sama (*IF
> yang biru*), maka lakukan set penyimpanan nilai akses ke J3.
>
> Oleh sebab itu, maka bagian :
> kcari = Sheets("tbluser").Columns("D:
> D").Find(pass).Row
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser")
> Range("J3").Value = .Range("E" & lcari).Value
> 'With Sheets("frmbarangmasuk")
> Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
> Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama").Range("J3"
> ).Value = ""
>
> End With
> harusnya diganti dengan
> 'cek pwd sebagai berikut
> IF pass=Sheets("tbluser").range("
> d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
> else
> range("j3").clearcontents
> endif
> (bagian untuk tulis ke sheet lain yang ada di *merah *sana juga
> dimasukkan ke *blok IF yang biru*)
>
>
> Wassalam,
> Kid.
>
> On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
> **
>
> selamat siang semua
>
> Private Sub cmdkon_Click()
> 'Membuat variabel
> Dim user As String
> Dim pass As String
> Dim lcari As Long
> Dim kcari As Long
>
> 'Memastikan
> If Trim(txtuser.Value) = "" Then
> MsgBox "USER ID", vbInformation, "Info"
> Exit Sub
> End If
> On Error Resume Next
> user = LCase(Trim(txtuser.Value))
> pass = LCase(Trim(txtpass.Value))
> lcari = 0
> kcari = 0
> lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser")
> Range("J3").Value = .Range("E" & lcari).Value
> 'With Sheets("frmbarangmasuk")
> Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
> Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama").Range("J3").Value = ""
>
> End With
> If Range("J3").Value = "User" Then
> cmdinputdata.Enabled = True
> cmdtransaksi.Enabled = True
> cmdtransaksib.Enabled = True
> Else
> If Range("J3").Value = "Admin" Then
> cmdadmin.Enabled = True
> End If
> End If
> End Sub
> saya coba koding seperti diatas namun ttp belum bisa
> ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
> post saya di atas cm koding diubah sedikit seperti yg saya paparkan
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>
>
>
>
>
1. buat workbook baru
2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
3. kalau ndak ada, ke office button -> option -> page Popular -> cari item
Show Developer bla-bla di frame kanannya -> centang -> OK
4. klik ribbon Developer
5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya
ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
6. Atur-atur deh.
7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur
format shape-nya), dsb.
maksudnya gitu bukan ya...
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.
> **
>
>
> Dear All,,
> Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat
> belajar membangun sebuah aplikasi di excel :)
> codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih
> belum mengerti gimana awalnya buat form nya seperti itu..??heheh.
> step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg
> sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka
> langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini..
> Makasih banyak sebelumnya yaa pencerahannya ntar..
>
>
> Salam,
> Teti.
>
> ------------
> *From:* hendrik karnadi <hendrikkarnadi@
> *To:* "belajar-excel@
> *Sent:* Monday, October 1, 2012 5:01 PM
> *Subject:* Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid
> belum mint ijin) maka jadilah program yang belum sempurna seperti file
> terlampir.
>
> Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala
> arah (walaupun masih bisa dibongkar).
> - Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi)
> dinonaktifkan dengan Event Worksheet_Activate
> - Pada saat workbook belum ditutup atau disave semua tombol (kecuali
> tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
> BeforeSave.
> - Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk
> ).
>
> Cara kerjanya kurang lebih seperti ini:
> - Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka
> USER diberi pesan
> - Jika USER sudah mengetik ID yang benar maka USER harus memasukkan
> password sesuai sheet tbluser (tbluser juga harus dipassword - belum
> dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan
> password maka USER akan diberi pesan.
> - Jika USER memasukkan password yang tidak sesuai dengan yang ada pada
> sheet tbluser maka USER juga akan diberi pesan.
> - Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka
> sesuai levelnya
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 1 October 2012, 14:27
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> loh... ternyata ide
> 'cek username diatas sini
> 'cek pwd sebagai berikut
> IF pass=Sheets(
> d" & lcari).value then
> range("j3").
> else
> range("j3").
> endif
> 'proses enabled disini
> belum dicoba
> ya wis...
>
> Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak
> ditemukan pasti langsung keluar dari proses.
> Kalau username ketemu, maka sudah bisa dapat barisnya di *lcari*
> Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan
> password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets(
> Jadi pengecekan passwordnya sama atau tidak,* tidak bisa *dilakukan
> dengan cara :
> *kcari = Sheets("tbluser"
> karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu
> password milik username lain.
>
> Jika username sudah ketemu (nilai *lcari*) dan teks password sudah sama (*IF
> yang biru*), maka lakukan set penyimpanan nilai akses ke J3.
>
> Oleh sebab itu, maka bagian :
> kcari = Sheets("tbluser"
> D").Find(pass)
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser"
> Range("J3").
> 'With Sheets("frmbarangma
> Sheets("frmbarangma
> Sheets("frmbarangke
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama"
> ).Value = ""
>
> End With
> harusnya diganti dengan
> 'cek pwd sebagai berikut
> IF pass=Sheets(
> d" & lcari).value then
> range("j3").
> else
> range("j3").
> endif
> (bagian untuk tulis ke sheet lain yang ada di *merah *sana juga
> dimasukkan ke *blok IF yang biru*)
>
>
> Wassalam,
> Kid.
>
> On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
> **
>
> selamat siang semua
>
> Private Sub cmdkon_Click(
> 'Membuat variabel
> Dim user As String
> Dim pass As String
> Dim lcari As Long
> Dim kcari As Long
>
> 'Memastikan
> If Trim(txtuser.
> MsgBox "USER ID", vbInformation, "Info"
> Exit Sub
> End If
> On Error Resume Next
> user = LCase(Trim(txtuser.
> pass = LCase(Trim(txtpass.
> lcari = 0
> kcari = 0
> lcari = Sheets("tbluser"
> kcari = Sheets("tbluser"
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser"
> Range("J3").
> 'With Sheets("frmbarangma
> Sheets("frmbarangma
> Sheets("frmbarangke
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama"
>
> End With
> If Range("J3").
> cmdinputdata.
> cmdtransaksi.
> cmdtransaksib.
> Else
> If Range("J3").
> cmdadmin.Enabled = True
> End If
> End If
> End Sub
> saya coba koding seperti diatas namun ttp belum bisa
> ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
> post saya di atas cm koding diubah sedikit seperti yg saya paparkan
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>
>
>
>
>
Mon Oct 1, 2012 9:17 pm (PDT) . Posted by:
"Teti Zhe" teti_zhe
Iya begitu,, yang utk insert object controlnya uda ngerti,,
biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana dnk? heheh
Thanks..
Salam,
Teti.
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 2, 2012 10:26 AM
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Oh gambar object control di worksheet ya mbak :
1. buat workbook baru
2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
3. kalau ndak ada, ke office button -> option -> page Popular -> cari item Show Developer bla-bla di frame kanannya -> centang -> OK
4. klik ribbon Developer
5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
6. Atur-atur deh.
7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur format shape-nya), dsb.
maksudnya gitu bukan ya...
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
>
>Dear All,,
>Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
>codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.. mohon step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini.. Makasih banyak sebelumnya yaa pencerahannya ntar..
>
>
>
>Salam,
>Teti.
>
>
>
>
>________________________________
> From: hendrik karnadi <hendrikkarnadi@yahoo.com >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Monday, October 1, 2012 5:01 PM
>Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>
>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>
>
>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan BeforeSave.
>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>
>
>Cara kerjanya kurang lebih seperti ini:
>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 1 October 2012, 14:27
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>loh... ternyata ide
>'cek username diatas sini
>'cek pwd sebagai berikut
>IF pass=Sheets("tbluser").range("
>d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>else
> range("j3").clearcontents
>endif
>'proses enabled disinibelum dicoba
>ya wis...
>
>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets("tbluser").range("d" & lcari).value then
>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>
>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>
>Oleh sebab itu, maka bagian :
>kcari = Sheets("tbluser").Columns("D:
>D").Find(pass).Row
>If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser")
>Range("J3").Value = .Range("E" & lcari).Value
>'With Sheets("frmbarangmasuk")
>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>txtuser.Value = ""
>txtpass.Value = ""
>Sheets("MenuUtama").Range("J3"
>).Value = ""
>
>End Withharusnya diganti dengan
>'cek pwd sebagai berikut
>IF pass=Sheets("tbluser").range("
>d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>else
> range("j3").clearcontents
>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>
>
>Wassalam,
>Kid.
>
>
>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
>
>>
>>selamat siang semua
>>
>>
>>Private Sub cmdkon_Click()
>>'Membuat variabel
>>Dim user As String
>>Dim pass As String
>>Dim lcari As Long
>>Dim kcari As Long
>>
>>'Memastikan
>>If Trim(txtuser.Value) = "" Then
>>MsgBox "USER ID", vbInformation, "Info"
>>Exit Sub
>>End If
>>On Error Resume Next
>>user = LCase(Trim(txtuser.Value))
>>pass = LCase(Trim(txtpass.Value))
>>lcari = 0
>>kcari = 0
>>lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
>>kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>>
If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser")
>>Range("J3").Value = .Range("E" & lcari).Value
>>'With Sheets("frmbarangmasuk")
>>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>>txtuser.Value = ""
>>txtpass.Value = ""
>>
Sheets("MenuUtama").Range("J3").Value = ""
>>
>>End With
>>If Range("J3").Value = "User" Then
>>cmdinputdata.Enabled = True
>>cmdtransaksi.Enabled = True
>>cmdtransaksib.Enabled = True
>>Else
>>If Range("J3").Value = "Admin" Then
>>cmdadmin.Enabled = True
>>End If
>>End If
>>End Sub
>>
saya coba koding seperti diatas namun ttp belum bisa
>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>trimakasih
>>
>>jojo
>>
>>--
>>View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>>
>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>
>>
>
>
>
>
>
biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana dnk? heheh
Thanks..
Salam,
Teti.
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, October 2, 2012 10:26 AM
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Oh gambar object control di worksheet ya mbak :
1. buat workbook baru
2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
3. kalau ndak ada, ke office button -> option -> page Popular -> cari item Show Developer bla-bla di frame kanannya -> centang -> OK
4. klik ribbon Developer
5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
6. Atur-atur deh.
7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur format shape-nya), dsb.
maksudnya gitu bukan ya...
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.
>
>Dear All,,
>Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
>codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.
>
>
>
>Salam,
>Teti.
>
>
>
>
>___________
> From: hendrik karnadi <hendrikkarnadi@
>To: "belajar-excel@
>Sent: Monday, October 1, 2012 5:01 PM
>Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>
>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>
>
>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>
>
>Cara kerjanya kurang lebih seperti ini:
>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Monday, 1 October 2012, 14:27
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>loh... ternyata ide
>'cek username diatas sini
>'cek pwd sebagai berikut
>IF pass=Sheets(
>d" & lcari).value then
> range("j3").
>else
> range("j3").
>endif
>'proses enabled disinibelum dicoba
>ya wis...
>
>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets(
>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
> kcari = Sheets("tbluser"
>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>
>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>
>Oleh sebab itu, maka bagian :
>kcari = Sheets("tbluser"
>D").Find(pass)
>If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser"
>Range("J3")
>'With Sheets("frmbarangma
>Sheets("frmbarangm
>Sheets("frmbarangk
>txtuser.Value = ""
>txtpass.Value = ""
>Sheets("MenuUtama"
>).Value = ""
>
>End Withharusnya diganti dengan
>'cek pwd sebagai berikut
>IF pass=Sheets(
>d" & lcari).value then
> range("j3").
>else
> range("j3").
>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>
>
>Wassalam,
>Kid.
>
>
>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
>
>>
>>selamat siang semua
>>
>>
>>Private Sub cmdkon_Click(
>>'Membuat variabel
>>Dim user As String
>>Dim pass As String
>>Dim lcari As Long
>>Dim kcari As Long
>>
>>'Memastikan
>>If Trim(txtuser.
>>MsgBox "USER ID", vbInformation, "Info"
>>Exit Sub
>>End If
>>On Error Resume Next
>>user = LCase(Trim(txtuser.
>>pass = LCase(Trim(txtpass.
>>lcari = 0
>>kcari = 0
>>lcari = Sheets("tbluser"
>>kcari = Sheets("tbluser"
>>
If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser"
>>Range("J3"
>>'With Sheets("frmbarangma
>>Sheets("frmbarang
>>Sheets("frmbarang
>>txtuser.Value = ""
>>txtpass.Value = ""
>>
Sheets("MenuUtama"
>>
>>End With
>>If Range("J3").
>>cmdinputdata.
>>cmdtransaksi.
>>cmdtransaksib.
>>Else
>>If Range("J3").
>>cmdadmin.Enabled = True
>>End If
>>End If
>>End Sub
>>
saya coba koding seperti diatas namun ttp belum bisa
>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>trimakasih
>>
>>jojo
>>
>>--
>>View this message in context: http://milis-
>>
>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>
>>
>
>
>
>
>
Mon Oct 1, 2012 10:00 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Grid : ribbon View -> grup Show/Hide -> centang atau an-centang item yang
disukai.
Background fill : blok seluruh cells (klik kotak di atas nomor baris 1
Excel) -> diwarnai deh dari ribbon Home
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
> **
>
>
> Iya begitu,, yang utk insert object controlnya uda ngerti,,
> biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana
> dnk? heheh
> Thanks..
>
> Salam,
> Teti.
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, October 2, 2012 10:26 AM
>
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Oh gambar object control di worksheet ya mbak :
> 1. buat workbook baru
> 2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
> 3. kalau ndak ada, ke office button -> option -> page Popular -> cari item
> Show Developer bla-bla di frame kanannya -> centang -> OK
> 4. klik ribbon Developer
> 5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya
> ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
> 6. Atur-atur deh.
> 7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur
> format shape-nya), dsb.
>
> maksudnya gitu bukan ya...
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
>
> **
>
> Dear All,,
> Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat
> belajar membangun sebuah aplikasi di excel :)
> codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih
> belum mengerti gimana awalnya buat form nya seperti itu..??heheh.. mohon
> step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg
> sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka
> langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini..
> Makasih banyak sebelumnya yaa pencerahannya ntar..
>
>
> Salam,
> Teti.
>
> ------------------------------
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Monday, October 1, 2012 5:01 PM
> *Subject:* Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid
> belum mint ijin) maka jadilah program yang belum sempurna seperti file
> terlampir.
>
> Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala
> arah (walaupun masih bisa dibongkar).
> - Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi)
> dinonaktifkan dengan Event Worksheet_Activate
> - Pada saat workbook belum ditutup atau disave semua tombol (kecuali
> tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan
> BeforeSave.
> - Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk
> ).
>
> Cara kerjanya kurang lebih seperti ini:
> - Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka
> USER diberi pesan
> - Jika USER sudah mengetik ID yang benar maka USER harus memasukkan
> password sesuai sheet tbluser (tbluser juga harus dipassword - belum
> dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan
> password maka USER akan diberi pesan.
> - Jika USER memasukkan password yang tidak sesuai dengan yang ada pada
> sheet tbluser maka USER juga akan diberi pesan.
> - Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka
> sesuai levelnya
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 1 October 2012, 14:27
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> loh... ternyata ide
> 'cek username diatas sini
> 'cek pwd sebagai berikut
> IF pass=Sheets("tbluser").range("
> d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
> else
> range("j3").clearcontents
> endif
> 'proses enabled disini
> belum dicoba
> ya wis...
>
> Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak
> ditemukan pasti langsung keluar dari proses.
> Kalau username ketemu, maka sudah bisa dapat barisnya di *lcari*
> Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan
> password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets("tbluser").range("d" & lcari).value then
> Jadi pengecekan passwordnya sama atau tidak,* tidak bisa *dilakukan
> dengan cara :
> *kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row*
> karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu
> password milik username lain.
>
> Jika username sudah ketemu (nilai *lcari*) dan teks password sudah sama (*IF
> yang biru*), maka lakukan set penyimpanan nilai akses ke J3.
>
> Oleh sebab itu, maka bagian :
> kcari = Sheets("tbluser").Columns("D:
> D").Find(pass).Row
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser")
> Range("J3").Value = .Range("E" & lcari).Value
> 'With Sheets("frmbarangmasuk")
> Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
> Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama").Range("J3"
> ).Value = ""
>
> End With
> harusnya diganti dengan
> 'cek pwd sebagai berikut
> IF pass=Sheets("tbluser").range("
> d" & lcari).value then
> range("j3").value =Sheets("tbluser").range("e" & lcari).value
> else
> range("j3").clearcontents
> endif
> (bagian untuk tulis ke sheet lain yang ada di *merah *sana juga
> dimasukkan ke *blok IF yang biru*)
>
>
> Wassalam,
> Kid.
>
> On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
> **
>
> selamat siang semua
>
> Private Sub cmdkon_Click()
> 'Membuat variabel
> Dim user As String
> Dim pass As String
> Dim lcari As Long
> Dim kcari As Long
>
> 'Memastikan
> If Trim(txtuser.Value) = "" Then
> MsgBox "USER ID", vbInformation, "Info"
> Exit Sub
> End If
> On Error Resume Next
> user = LCase(Trim(txtuser.Value))
> pass = LCase(Trim(txtpass.Value))
> lcari = 0
> kcari = 0
> lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser")
> Range("J3").Value = .Range("E" & lcari).Value
> 'With Sheets("frmbarangmasuk")
> Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
> Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama").Range("J3").Value = ""
>
> End With
> If Range("J3").Value = "User" Then
> cmdinputdata.Enabled = True
> cmdtransaksi.Enabled = True
> cmdtransaksib.Enabled = True
> Else
> If Range("J3").Value = "Admin" Then
> cmdadmin.Enabled = True
> End If
> End If
> End Sub
> saya coba koding seperti diatas namun ttp belum bisa
> ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
> post saya di atas cm koding diubah sedikit seperti yg saya paparkan
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>
>
>
>
>
>
>
>
disukai.
Background fill : blok seluruh cells (klik kotak di atas nomor baris 1
Excel) -> diwarnai deh dari ribbon Home
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.
> **
>
>
> Iya begitu,, yang utk insert object controlnya uda ngerti,,
> biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana
> dnk? heheh
> Thanks..
>
> Salam,
> Teti.
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Tuesday, October 2, 2012 10:26 AM
>
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Oh gambar object control di worksheet ya mbak :
> 1. buat workbook baru
> 2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
> 3. kalau ndak ada, ke office button -> option -> page Popular -> cari item
> Show Developer bla-bla di frame kanannya -> centang -> OK
> 4. klik ribbon Developer
> 5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya
> ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
> 6. Atur-atur deh.
> 7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur
> format shape-nya), dsb.
>
> maksudnya gitu bukan ya...
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/2 Teti Zhe <teti_zhe@yahoo.
>
> **
>
> Dear All,,
> Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat
> belajar membangun sebuah aplikasi di excel :)
> codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih
> belum mengerti gimana awalnya buat form nya seperti itu..??heheh.
> step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg
> sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka
> langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini..
> Makasih banyak sebelumnya yaa pencerahannya ntar..
>
>
> Salam,
> Teti.
>
> ------------
> *From:* hendrik karnadi <hendrikkarnadi@
> *To:* "belajar-excel@
> *Sent:* Monday, October 1, 2012 5:01 PM
> *Subject:* Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid
> belum mint ijin) maka jadilah program yang belum sempurna seperti file
> terlampir.
>
> Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala
> arah (walaupun masih bisa dibongkar).
> - Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi)
> dinonaktifkan dengan Event Worksheet_Activate
> - Pada saat workbook belum ditutup atau disave semua tombol (kecuali
> tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
> BeforeSave.
> - Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk
> ).
>
> Cara kerjanya kurang lebih seperti ini:
> - Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka
> USER diberi pesan
> - Jika USER sudah mengetik ID yang benar maka USER harus memasukkan
> password sesuai sheet tbluser (tbluser juga harus dipassword - belum
> dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan
> password maka USER akan diberi pesan.
> - Jika USER memasukkan password yang tidak sesuai dengan yang ada pada
> sheet tbluser maka USER juga akan diberi pesan.
> - Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka
> sesuai levelnya
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 1 October 2012, 14:27
> *Subject:* Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
> loh... ternyata ide
> 'cek username diatas sini
> 'cek pwd sebagai berikut
> IF pass=Sheets(
> d" & lcari).value then
> range("j3").
> else
> range("j3").
> endif
> 'proses enabled disini
> belum dicoba
> ya wis...
>
> Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak
> ditemukan pasti langsung keluar dari proses.
> Kalau username ketemu, maka sudah bisa dapat barisnya di *lcari*
> Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan
> password yang ada di daftar username pada baris lcari adalah sama.
> IF pass=Sheets(
> Jadi pengecekan passwordnya sama atau tidak,* tidak bisa *dilakukan
> dengan cara :
> *kcari = Sheets("tbluser"
> karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu
> password milik username lain.
>
> Jika username sudah ketemu (nilai *lcari*) dan teks password sudah sama (*IF
> yang biru*), maka lakukan set penyimpanan nilai akses ke J3.
>
> Oleh sebab itu, maka bagian :
> kcari = Sheets("tbluser"
> D").Find(pass)
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser"
> Range("J3").
> 'With Sheets("frmbarangma
> Sheets("frmbarangma
> Sheets("frmbarangke
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama"
> ).Value = ""
>
> End With
> harusnya diganti dengan
> 'cek pwd sebagai berikut
> IF pass=Sheets(
> d" & lcari).value then
> range("j3").
> else
> range("j3").
> endif
> (bagian untuk tulis ke sheet lain yang ada di *merah *sana juga
> dimasukkan ke *blok IF yang biru*)
>
>
> Wassalam,
> Kid.
>
> On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
> **
>
> selamat siang semua
>
> Private Sub cmdkon_Click(
> 'Membuat variabel
> Dim user As String
> Dim pass As String
> Dim lcari As Long
> Dim kcari As Long
>
> 'Memastikan
> If Trim(txtuser.
> MsgBox "USER ID", vbInformation, "Info"
> Exit Sub
> End If
> On Error Resume Next
> user = LCase(Trim(txtuser.
> pass = LCase(Trim(txtpass.
> lcari = 0
> kcari = 0
> lcari = Sheets("tbluser"
> kcari = Sheets("tbluser"
> If lcari = 0 And kcari = 0 Then
>
> MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
> "Silahkan isikan yang lain", vbInformation, "Info"
> txtuser.Value = ""
> txtpass.Value = ""
> Exit Sub
> End If
> With Sheets("tbluser"
> Range("J3").
> 'With Sheets("frmbarangma
> Sheets("frmbarangma
> Sheets("frmbarangke
> txtuser.Value = ""
> txtpass.Value = ""
> Sheets("MenuUtama"
>
> End With
> If Range("J3").
> cmdinputdata.
> cmdtransaksi.
> cmdtransaksib.
> Else
> If Range("J3").
> cmdadmin.Enabled = True
> End If
> End If
> End Sub
> saya coba koding seperti diatas namun ttp belum bisa
> ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
> post saya di atas cm koding diubah sedikit seperti yg saya paparkan
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
>
>
>
>
>
>
>
>
Mon Oct 1, 2012 10:19 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
sedikit tambahan, kalau mau pake macro untuk menampilkan background "khusus", file terlampir barangkali bisa membantu.
- untuk menampilkan background "khusus" click ctrl z
- untuk kembali ke "default" setting click ctrl q.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 2 October 2012, 12:00
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Grid : ribbon View -> grup Show/Hide -> centang atau an-centang item yang disukai.
Background fill : blok seluruh cells (klik kotak di atas nomor baris 1 Excel) -> diwarnai deh dari ribbon Home
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
>
>Iya begitu,, yang utk insert object controlnya uda ngerti,,
>biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana dnk? heheh
>Thanks..
>
>
>Salam,
>Teti.
>
>
>
>
>________________________________
>
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, October 2, 2012 10:26 AM
>
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>
>Oh gambar object control di worksheet ya mbak :
>1. buat workbook baru
>2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
>3. kalau ndak ada, ke office button -> option -> page Popular -> cari item Show Developer bla-bla di frame kanannya -> centang -> OK
>4. klik ribbon Developer
>5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
>6. Atur-atur deh.
>7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur format shape-nya), dsb.
>
>maksudnya gitu bukan ya...
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
>
>
>>
>>Dear All,,
>>Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
>>codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.. mohon step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini.. Makasih banyak sebelumnya yaa pencerahannya ntar..
>>
>>
>>
>>Salam,
>>Teti.
>>
>>
>>
>>
>>________________________________
>> From: hendrik karnadi <hendrikkarnadi@yahoo.com >
>>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>Sent: Monday, October 1, 2012 5:01 PM
>>Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>
>>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>>
>>
>>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan BeforeSave.
>>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>>
>>
>>Cara kerjanya kurang lebih seperti ini:
>>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>>
>>
>>Salam,
>>Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Kid Mr. <mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, 1 October 2012, 14:27
>>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>loh... ternyata ide
>>'cek username diatas sini
>>'cek pwd sebagai berikut
>>IF pass=Sheets("tbluser").range("
>>d" & lcari).value then
>> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>>else
>> range("j3").clearcontents
>>endif
>>'proses enabled disinibelum dicoba
>>ya wis...
>>
>>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
>> IF pass=Sheets("tbluser").range("d" & lcari).value then
>>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
>> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>>
>>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>>
>>Oleh sebab itu, maka bagian :
>>kcari = Sheets("tbluser").Columns("D:
>>D").Find(pass).Row
>>If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser")
>>Range("J3").Value = .Range("E" & lcari).Value
>>'With Sheets("frmbarangmasuk")
>>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Sheets("MenuUtama").Range("J3"
>>).Value = ""
>>
>>End Withharusnya diganti dengan
>>'cek pwd sebagai berikut
>>IF pass=Sheets("tbluser").range("
>>d" & lcari).value then
>> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>>else
>> range("j3").clearcontents
>>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>>
>>
>>>
>>>selamat siang semua
>>>
>>>
>>>Private Sub cmdkon_Click()
>>>'Membuat variabel
>>>Dim user As String
>>>Dim pass As String
>>>Dim lcari As Long
>>>Dim kcari As Long
>>>
>>>'Memastikan
>>>If Trim(txtuser.Value) = "" Then
>>>MsgBox "USER ID", vbInformation, "Info"
>>>Exit Sub
>>>End If
>>>On Error Resume Next
>>>user = LCase(Trim(txtuser.Value))
>>>pass = LCase(Trim(txtpass.Value))
>>>lcari = 0
>>>kcari = 0
>>>lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
>>>kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>>>
If lcari = 0 And kcari = 0 Then
>>>
>>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>>"Silahkan isikan yang lain", vbInformation, "Info"
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>Exit Sub
>>>End If
>>>With Sheets("tbluser")
>>>Range("J3").Value = .Range("E" & lcari).Value
>>>'With Sheets("frmbarangmasuk")
>>>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>>>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>
Sheets("MenuUtama").Range("J3").Value = ""
>>>
>>>End With
>>>If Range("J3").Value = "User" Then
>>>cmdinputdata.Enabled = True
>>>cmdtransaksi.Enabled = True
>>>cmdtransaksib.Enabled = True
>>>Else
>>>If Range("J3").Value = "Admin" Then
>>>cmdadmin.Enabled = True
>>>End If
>>>End If
>>>End Sub
>>>
saya coba koding seperti diatas namun ttp belum bisa
>>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>>trimakasih
>>>
>>>jojo
>>>
>>>--
>>>View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>>>
>>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
- untuk menampilkan background "khusus" click ctrl z
- untuk kembali ke "default" setting click ctrl q.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, 2 October 2012, 12:00
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Grid : ribbon View -> grup Show/Hide -> centang atau an-centang item yang disukai.
Background fill : blok seluruh cells (klik kotak di atas nomor baris 1 Excel) -> diwarnai deh dari ribbon Home
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.
>
>Iya begitu,, yang utk insert object controlnya uda ngerti,,
>biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana dnk? heheh
>Thanks..
>
>
>Salam,
>Teti.
>
>
>
>
>___________
>
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Tuesday, October 2, 2012 10:26 AM
>
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>
>Oh gambar object control di worksheet ya mbak :
>1. buat workbook baru
>2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
>3. kalau ndak ada, ke office button -> option -> page Popular -> cari item Show Developer bla-bla di frame kanannya -> centang -> OK
>4. klik ribbon Developer
>5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
>6. Atur-atur deh.
>7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur format shape-nya), dsb.
>
>maksudnya gitu bukan ya...
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/2 Teti Zhe <teti_zhe@yahoo.
>
>
>>
>>Dear All,,
>>Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
>>codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.
>>
>>
>>
>>Salam,
>>Teti.
>>
>>
>>
>>
>>__________
>> From: hendrik karnadi <hendrikkarnadi@
>>To: "belajar-excel@
>>Sent: Monday, October 1, 2012 5:01 PM
>>Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>
>>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>>
>>
>>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
>>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>>
>>
>>Cara kerjanya kurang lebih seperti ini:
>>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>>
>>
>>Salam,
>>Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Kid Mr. <mr.nmkid@gmail.
>>To: belajar-excel@
>>Sent: Monday, 1 October 2012, 14:27
>>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>loh... ternyata ide
>>'cek username diatas sini
>>'cek pwd sebagai berikut
>>IF pass=Sheets(
>>d" & lcari).value then
>> range("j3").
>>else
>> range("j3").
>>endif
>>'proses enabled disinibelum dicoba
>>ya wis...
>>
>>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
>> IF pass=Sheets(
>>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
>> kcari = Sheets("tbluser"
>>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>>
>>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>>
>>Oleh sebab itu, maka bagian :
>>kcari = Sheets("tbluser"
>>D").Find(pass)
>>If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser"
>>Range("J3"
>>'With Sheets("frmbarangma
>>Sheets("frmbarang
>>Sheets("frmbarang
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Sheets("MenuUtama
>>).Value = ""
>>
>>End Withharusnya diganti dengan
>>'cek pwd sebagai berikut
>>IF pass=Sheets(
>>d" & lcari).value then
>> range("j3").
>>else
>> range("j3").
>>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>>
>>
>>>
>>>selamat siang semua
>>>
>>>
>>>Private Sub cmdkon_Click(
>>>'Membuat variabel
>>>Dim user As String
>>>Dim pass As String
>>>Dim lcari As Long
>>>Dim kcari As Long
>>>
>>>'Memastikan
>>>If Trim(txtuser.
>>>MsgBox "USER ID", vbInformation, "Info"
>>>Exit Sub
>>>End If
>>>On Error Resume Next
>>>user = LCase(Trim(txtuser.
>>>pass = LCase(Trim(txtpass.
>>>lcari = 0
>>>kcari = 0
>>>lcari = Sheets("tbluser"
>>>kcari = Sheets("tbluser"
>>>
If lcari = 0 And kcari = 0 Then
>>>
>>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>>"Silahkan isikan yang lain", vbInformation, "Info"
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>Exit Sub
>>>End If
>>>With Sheets("tbluser"
>>>Range("J3"
>>>'With Sheets("frmbarangma
>>>Sheets("frmbaran
>>>Sheets("frmbaran
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>
Sheets("MenuUtama"
>>>
>>>End With
>>>If Range("J3").
>>>cmdinputdata.
>>>cmdtransaksi.
>>>cmdtransaksib.
>>>Else
>>>If Range("J3").
>>>cmdadmin.
>>>End If
>>>End If
>>>End Sub
>>>
saya coba koding seperti diatas namun ttp belum bisa
>>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>>trimakasih
>>>
>>>jojo
>>>
>>>--
>>>View this message in context: http://milis-
>>>
>>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
Mon Oct 1, 2012 10:30 pm (PDT) . Posted by:
"Teti Zhe" teti_zhe
Dear All,,
Makasih-makasih :)
Sedang saya kembangkan formnya .. boleh izin utk share n nanya2 lagi ntar yaaa ... <banyak yang ga ta mengerti nihh.. > heheh
tq...
Salam,
Teti.
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, October 2, 2012 12:19 PM
Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
sedikit tambahan, kalau mau pake macro untuk menampilkan background "khusus", file terlampir barangkali bisa membantu.
- untuk menampilkan background "khusus" click ctrl z
- untuk kembali ke "default" setting click ctrl q.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 2 October 2012, 12:00
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Grid : ribbon View -> grup Show/Hide -> centang atau an-centang item yang disukai.
Background fill : blok seluruh cells (klik kotak di atas nomor baris 1 Excel) -> diwarnai deh dari ribbon Home
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
>
>Iya begitu,, yang utk insert object controlnya uda ngerti,,
>biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana dnk? heheh
>Thanks..
>
>
>Salam,
>Teti.
>
>
>
>
>________________________________
>
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, October 2, 2012 10:26 AM
>
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>
>Oh gambar object control di worksheet ya mbak :
>1. buat workbook baru
>2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
>3. kalau ndak ada, ke office button -> option -> page Popular -> cari item Show Developer bla-bla di frame kanannya -> centang -> OK
>4. klik ribbon Developer
>5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
>6. Atur-atur deh.
>7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur format shape-nya), dsb.
>
>maksudnya gitu bukan ya...
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/2 Teti Zhe <teti_zhe@yahoo.com >
>
>
>>
>>Dear All,,
>>Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
>>codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.. mohon step-step nya dnk? saya pengen tampilannya ntr kaya form login di file yg sblm2nya terlampir di topik ini..jadi ketika sebuah workbook nya kebuka langsung menampilkan button2 begitu dehh.. maap masih pemula banget ini.. Makasih banyak sebelumnya yaa pencerahannya ntar..
>>
>>
>>
>>Salam,
>>Teti.
>>
>>
>>
>>
>>________________________________
>> From: hendrik karnadi <hendrikkarnadi@yahoo.com >
>>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>Sent: Monday, October 1, 2012 5:01 PM
>>Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>
>>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>>
>>
>>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan BeforeSave.
>>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>>
>>
>>Cara kerjanya kurang lebih seperti ini:
>>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>>
>>
>>Salam,
>>Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Kid Mr. <mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, 1 October 2012, 14:27
>>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>loh... ternyata ide
>>'cek username diatas sini
>>'cek pwd sebagai berikut
>>IF pass=Sheets("tbluser").range("
>>d" & lcari).value then
>> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>>else
>> range("j3").clearcontents
>>endif
>>'proses enabled disinibelum dicoba
>>ya wis...
>>
>>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
>> IF pass=Sheets("tbluser").range("d" & lcari).value then
>>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
>> kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>>
>>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>>
>>Oleh sebab itu, maka bagian :
>>kcari = Sheets("tbluser").Columns("D:
>>D").Find(pass).Row
>>If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser")
>>Range("J3").Value = .Range("E" & lcari).Value
>>'With Sheets("frmbarangmasuk")
>>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Sheets("MenuUtama").Range("J3"
>>).Value = ""
>>
>>End Withharusnya diganti dengan
>>'cek pwd sebagai berikut
>>IF pass=Sheets("tbluser").range("
>>d" & lcari).value then
>> range("j3").value =Sheets("tbluser").range("e" & lcari).value
>>else
>> range("j3").clearcontents
>>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>>
>>
>>>
>>>selamat siang semua
>>>
>>>
>>>Private Sub cmdkon_Click()
>>>'Membuat variabel
>>>Dim user As String
>>>Dim pass As String
>>>Dim lcari As Long
>>>Dim kcari As Long
>>>
>>>'Memastikan
>>>If Trim(txtuser.Value) = "" Then
>>>MsgBox "USER ID", vbInformation, "Info"
>>>Exit Sub
>>>End If
>>>On Error Resume Next
>>>user = LCase(Trim(txtuser.Value))
>>>pass = LCase(Trim(txtpass.Value))
>>>lcari = 0
>>>kcari = 0
>>>lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
>>>kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>>>
If lcari = 0 And kcari = 0 Then
>>>
>>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>>"Silahkan isikan yang lain", vbInformation, "Info"
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>Exit Sub
>>>End If
>>>With Sheets("tbluser")
>>>Range("J3").Value = .Range("E" & lcari).Value
>>>'With Sheets("frmbarangmasuk")
>>>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>>>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>
Sheets("MenuUtama").Range("J3").Value = ""
>>>
>>>End With
>>>If Range("J3").Value = "User" Then
>>>cmdinputdata.Enabled = True
>>>cmdtransaksi.Enabled = True
>>>cmdtransaksib.Enabled = True
>>>Else
>>>If Range("J3").Value = "Admin" Then
>>>cmdadmin.Enabled = True
>>>End If
>>>End If
>>>End Sub
>>>
saya coba koding seperti diatas namun ttp belum bisa
>>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>>trimakasih
>>>
>>>jojo
>>>
>>>--
>>>View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>>>
>>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
Makasih-makasih :)
Sedang saya kembangkan formnya .. boleh izin utk share n nanya2 lagi ntar yaaa ... <banyak yang ga ta mengerti nihh.. > heheh
tq...
Salam,
Teti.
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Tuesday, October 2, 2012 12:19 PM
Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
sedikit tambahan, kalau mau pake macro untuk menampilkan background "khusus", file terlampir barangkali bisa membantu.
- untuk menampilkan background "khusus" click ctrl z
- untuk kembali ke "default" setting click ctrl q.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, 2 October 2012, 12:00
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
Grid : ribbon View -> grup Show/Hide -> centang atau an-centang item yang disukai.
Background fill : blok seluruh cells (klik kotak di atas nomor baris 1 Excel) -> diwarnai deh dari ribbon Home
Wassalam,
Kid.
2012/10/2 Teti Zhe <teti_zhe@yahoo.
>
>Iya begitu,, yang utk insert object controlnya uda ngerti,,
>biar gridnya nda keliatan n background sheetnya boleh berwarna gitu gimana dnk? heheh
>Thanks..
>
>
>Salam,
>Teti.
>
>
>
>
>___________
>
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Tuesday, October 2, 2012 10:26 AM
>
>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>
>
>
>
>Oh gambar object control di worksheet ya mbak :
>1. buat workbook baru
>2. lihat di jejeran ribbon (menu) ada yang berbunyi Developer gak ?
>3. kalau ndak ada, ke office button -> option -> page Popular -> cari item Show Developer bla-bla di frame kanannya -> centang -> OK
>4. klik ribbon Developer
>5. lihat grup yang namanya Control, klik si Insert pilih dari bloknya ActiveX, misal sebuah tombol CommandButton, gambar kotak di worksheet.
>6. Atur-atur deh.
>7. Bila perlu, perindah dengan menambahkan shape (insert shape dan atur format shape-nya), dsb.
>
>maksudnya gitu bukan ya...
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/2 Teti Zhe <teti_zhe@yahoo.
>
>
>>
>>Dear All,,
>>Dari awal saya ngikutin topik ini.. karena saya memang sedang berniat belajar membangun sebuah aplikasi di excel :)
>>codingnya dapat saya mengerti..namun, hingga sekarang saya justru masih belum mengerti gimana awalnya buat form nya seperti itu..??heheh.
>>
>>
>>
>>Salam,
>>Teti.
>>
>>
>>
>>
>>__________
>> From: hendrik karnadi <hendrikkarnadi@
>>To: "belajar-excel@
>>Sent: Monday, October 1, 2012 5:01 PM
>>Subject: Fw: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>
>>Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
>>
>>
>>Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
>>- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
>>- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
>>- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
>>
>>
>>Cara kerjanya kurang lebih seperti ini:
>>- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
>>- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
>>- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
>>- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
>>
>>
>>Salam,
>>Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Kid Mr. <mr.nmkid@gmail.
>>To: belajar-excel@
>>Sent: Monday, 1 October 2012, 14:27
>>Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
>>
>>
>>
>>loh... ternyata ide
>>'cek username diatas sini
>>'cek pwd sebagai berikut
>>IF pass=Sheets(
>>d" & lcari).value then
>> range("j3").
>>else
>> range("j3").
>>endif
>>'proses enabled disinibelum dicoba
>>ya wis...
>>
>>Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
>>Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
>>Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
>> IF pass=Sheets(
>>Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
>> kcari = Sheets("tbluser"
>>karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
>>
>>Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
>>
>>Oleh sebab itu, maka bagian :
>>kcari = Sheets("tbluser"
>>D").Find(pass)
>>If lcari = 0 And kcari = 0 Then
>>
>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>"Silahkan isikan yang lain", vbInformation, "Info"
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Exit Sub
>>End If
>>With Sheets("tbluser"
>>Range("J3"
>>'With Sheets("frmbarangma
>>Sheets("frmbarang
>>Sheets("frmbarang
>>txtuser.Value = ""
>>txtpass.Value = ""
>>Sheets("MenuUtama
>>).Value = ""
>>
>>End Withharusnya diganti dengan
>>'cek pwd sebagai berikut
>>IF pass=Sheets(
>>d" & lcari).value then
>> range("j3").
>>else
>> range("j3").
>>endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>>
>>
>>>
>>>selamat siang semua
>>>
>>>
>>>Private Sub cmdkon_Click(
>>>'Membuat variabel
>>>Dim user As String
>>>Dim pass As String
>>>Dim lcari As Long
>>>Dim kcari As Long
>>>
>>>'Memastikan
>>>If Trim(txtuser.
>>>MsgBox "USER ID", vbInformation, "Info"
>>>Exit Sub
>>>End If
>>>On Error Resume Next
>>>user = LCase(Trim(txtuser.
>>>pass = LCase(Trim(txtpass.
>>>lcari = 0
>>>kcari = 0
>>>lcari = Sheets("tbluser"
>>>kcari = Sheets("tbluser"
>>>
If lcari = 0 And kcari = 0 Then
>>>
>>>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>>>"Silahkan isikan yang lain", vbInformation, "Info"
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>Exit Sub
>>>End If
>>>With Sheets("tbluser"
>>>Range("J3"
>>>'With Sheets("frmbarangma
>>>Sheets("frmbaran
>>>Sheets("frmbaran
>>>txtuser.Value = ""
>>>txtpass.Value = ""
>>>
Sheets("MenuUtama"
>>>
>>>End With
>>>If Range("J3").
>>>cmdinputdata.
>>>cmdtransaksi.
>>>cmdtransaksib.
>>>Else
>>>If Range("J3").
>>>cmdadmin.
>>>End If
>>>End If
>>>End Sub
>>>
saya coba koding seperti diatas namun ttp belum bisa
>>>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>>>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>>>trimakasih
>>>
>>>jojo
>>>
>>>--
>>>View this message in context: http://milis-
>>>
>>>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>>
>>>
>>
>>
>>
>>
>>
>
>
>
Mon Oct 1, 2012 10:27 pm (PDT) . Posted by:
"Trio Duo" trio_bimbo
Assalamualaikum. Wr. Wb.
(Mods : Salam yang lengkap dan baik begini kan lebih bagus dari pada disingkat Ass... please deh)
Mohon bantuannya mbak-mbak, mas-mas sekalian, saya kesulitan untuk membuat perintah pencarian dan update dengan macro. yang saya inginkan adalah:
1. Ketika saya klik cari No. Loan, maka secara otomatis data-datanya muncuk kembali dalam form ini.
2. selanjutnya setelah ada perubahan atas data yang saya panggil tadi, maka ketika saya klik UPDATE DATA maka secara otomatis akan tersempan kembali di sheet REKAP
Maturnuwun...
(Mods : Salam yang lengkap dan baik begini kan lebih bagus dari pada disingkat Ass... please deh)
Mohon bantuannya mbak-mbak, mas-mas sekalian, saya kesulitan untuk membuat perintah pencarian dan update dengan macro. yang saya inginkan adalah:
1. Ketika saya klik cari No. Loan, maka secara otomatis data-datanya muncuk kembali dalam form ini.
2. selanjutnya setelah ada perubahan atas data yang saya panggil tadi, maka ketika saya klik UPDATE DATA maka secara otomatis akan tersempan kembali di sheet REKAP
Maturnuwun..
Tue Oct 2, 2012 1:53 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba pelajari file terlampir dan coba modifikasi. Filenya saya copy dari milis ini atau milis tetangga.
Syarat dan Ketentuan:
- Tidak ada spasi baris dalam Sheet Input
- Judul Kolom pada sheet Database sesuai dengan Judul Baris pada sheet Input
Salam,
Hendrik Karnadi
________________________________
From: Trio Duo <trio_bimbo@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 2 October 2012, 12:19
Subject: [belajar-excel] Mohon bantuan membuat perintah cari dan update dengan macro
Assalamualaikum. Wr. Wb.
(Mods : Salam yang lengkap dan baik begini kan lebih bagus dari pada disingkat Ass... please deh)
Mohon bantuannya mbak-mbak, mas-mas sekalian, saya kesulitan untuk membuat perintah pencarian dan update dengan macro. yang saya inginkan adalah:
1. Ketika saya klik cari No. Loan, maka secara otomatis data-datanya muncuk kembali dalam form ini.
2. selanjutnya setelah ada perubahan atas data yang saya panggil tadi, maka ketika saya klik UPDATE DATA maka secara otomatis akan tersempan kembali di sheet REKAP
Maturnuwun...
Syarat dan Ketentuan:
- Tidak ada spasi baris dalam Sheet Input
- Judul Kolom pada sheet Database sesuai dengan Judul Baris pada sheet Input
Salam,
Hendrik Karnadi
____________
From: Trio Duo <trio_bimbo@yahoo.
To: "belajar-excel@
Sent: Tuesday, 2 October 2012, 12:19
Subject: [belajar-excel] Mohon bantuan membuat perintah cari dan update dengan macro
Assalamualaikum. Wr. Wb.
(Mods : Salam yang lengkap dan baik begini kan lebih bagus dari pada disingkat Ass... please deh)
Mohon bantuannya mbak-mbak, mas-mas sekalian, saya kesulitan untuk membuat perintah pencarian dan update dengan macro. yang saya inginkan adalah:
1. Ketika saya klik cari No. Loan, maka secara otomatis data-datanya muncuk kembali dalam form ini.
2. selanjutnya setelah ada perubahan atas data yang saya panggil tadi, maka ketika saya klik UPDATE DATA maka secara otomatis akan tersempan kembali di sheet REKAP
Maturnuwun..
Tue Oct 2, 2012 1:51 am (PDT) . Posted by:
"Teti Zhe" teti_zhe
Dear Master Excel,
Terkait dengan pertanyaan saya sebelumnya tentang membangun
sebuah aplikasi di excel, dan juga berkat bantuan teman-teman dari milis ini,
Berikut saya ingin share sekalian bertanya <lagi> pada
master semua :
Saya uda mencoba-coba buat form nya <terlampir> (mohon
izin copi dan utak atik karya Pak Mikey yaa.. :) )
Dan yang ingin saya mohon bantuan pencerahannya yakni :
1. Menurut teman2 apakah form / aplikasi ini sudah
benar gitu? Tidak ada object yang mubazir dan malah akan membuat bingung? Heheh
<koq malah nanya ini ya?>
2. Bagaimana caranya agar form input dan form view
bisa berada di tengah2 layar monitor <menyesuaikan dengan layar monitor
pengguna> ? memungkinkan kah jika scroll bar nya diaktifkan kalau ternyata
form nya terlalu besar?
3. Bagaimana fungsi atau coding untuk masing2 tombol
browse (pada form input)?
4. Bagaimana fungsi atau coding untuk tombol save
(pada form input)? Sehingga data yang baru di input akan dimasukkan ke sheet 2
(sheet DATA)
5. Bagaimana fungsi atau coding untuk tombol Cancel
(form Input) ?
6. Bagaimana fungsi atau coding pada tombol Update
dan Save (pada form View)?
7. Untuk form View pada Combobox ID, pengennya itu
bisa sekalian difungsikan untuk Search...
Hadeeuhh.. maaf beribu maaf yaaa.. pertanyaan ku buanyak sekalii...abis
uda ga sabar nih cepat2 kelarin heheh...dan terimakasih beribu banyak
terimakasih untuk bantuannya...
Salam,
Teti.
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, September 19, 2012 4:53 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Hi Mr. Kid,
makasih saran nya,,
saya coba kembangkan dulu yaa..
makasih mau membantu
Salam,
Teti.
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, September 19, 2012 4:36 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Mbak Teti,
Awal yang bagus untuk memulai sebuah aplikasi sederhana. Semoga banyak BeExceller yang membantu mewujudkannya, walaupun memulai dari satu part ke part lain.
Mungkin ini bisa jadi titik awalnya.
1. Buat sebuah folder misal namanya AppKu. Isinya nanti adalah seluruh file maupun folder tentang aplikasi yang dibuat
2. Dalam folder itu, buat 1 folder bernama images
3. mbak Teti mencoba membuat formnya dalam sebuah sheet. Simpan filenya dalam folder appku
4. Dalam file excel itu, buat 2 sheet awal. Sebuah sheet yang berisi data, dan sebuah sheet berisi form yang diinginkan. Isi datanya sekalian, mungkin beberapa puluh baris. Jangan lupa untuk membuat ID anak yang unik.
5. mbak Teti menyiapkan daftar pertanyaan yang merupakan step per stepnya.
Misal,
tahap 1 ingin supaya jika bisa memilih nama beserta id anak, langsung tampil seluruh datanya (minimal sekarang data nama dsb dulu)
tahap 2 nanti urusannya dengan file images nya (butuh VBA), dan akan seru ketika ada proses update gambar aktivitas kelak.
tahap 3 dst biasanya akan muncul ide nya dengan sendirinya.
6. zip foldernya dan kirim ke milis sebagai sebuah thread baru untuk tahapan yang mana. Beri penjelasan yang memadai.
BeExceller yang akan berusaha membantu akan selalu terupdate dengan seluruh file yang di dalamnya. Ingat, batas maksimal ukuran file attachment 250KB. Jika tidak memungkinkan, simpanlah disebuah net folder dan sediakan link-nya untuk bisa mengunduh file tersebut
Wassalam,
Kid.
2012/9/19 Teti Zhe <teti_zhe@yahoo.com >
>
>Dear Master Excel,
>Saat ini saya sedang mengembangkan sebuah database untuk anak-anak yang saya dampingi. Selama ini buat nya di word ajaa dengan format kebutuhan seperti terlampir. Namun, merepotkan karena jadinya banyak banget file .doc nya.. Saya mendambakan sebuah database yang mempunyai sebuah form menu awal yang memiliki fitur untuk bisa membuka setiap file anak-anak dimaksud (jika memungkinkan) . Mungkin membukanya ketika mengetikkan sebuah id dari seorang data anak.
>
>Kemudian (pengennya) ada juga form untuk update data anak atau entry data baru...
>
>
>Apakah memungkinkan dan bisakah dengan menggunakan excel?
>Mohon pencerahannya,
>Makasih...
>
>Salam,
>Teti.
>
Terkait dengan pertanyaan saya sebelumnya tentang membangun
sebuah aplikasi di excel, dan juga berkat bantuan teman-teman dari milis ini,
Berikut saya ingin share sekalian bertanya <lagi> pada
master semua :
Saya uda mencoba-coba buat form nya <terlampir> (mohon
izin copi dan utak atik karya Pak Mikey yaa.. :) )
Dan yang ingin saya mohon bantuan pencerahannya yakni :
1. Menurut teman2 apakah form / aplikasi ini sudah
benar gitu? Tidak ada object yang mubazir dan malah akan membuat bingung? Heheh
<koq malah nanya ini ya?>
2. Bagaimana caranya agar form input dan form view
bisa berada di tengah2 layar monitor <menyesuaikan dengan layar monitor
pengguna> ? memungkinkan kah jika scroll bar nya diaktifkan kalau ternyata
form nya terlalu besar?
3. Bagaimana fungsi atau coding untuk masing2 tombol
browse (pada form input)?
4. Bagaimana fungsi atau coding untuk tombol save
(pada form input)? Sehingga data yang baru di input akan dimasukkan ke sheet 2
(sheet DATA)
5. Bagaimana fungsi atau coding untuk tombol Cancel
(form Input) ?
6. Bagaimana fungsi atau coding pada tombol Update
dan Save (pada form View)?
7. Untuk form View pada Combobox ID, pengennya itu
bisa sekalian difungsikan untuk Search...
Hadeeuhh.. maaf beribu maaf yaaa.. pertanyaan ku buanyak sekalii...abis
uda ga sabar nih cepat2 kelarin heheh...dan terimakasih beribu banyak
terimakasih untuk bantuannya..
Salam,
Teti.
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Wednesday, September 19, 2012 4:53 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Hi Mr. Kid,
makasih saran nya,,
saya coba kembangkan dulu yaa..
makasih mau membantu
Salam,
Teti.
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, September 19, 2012 4:36 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Mbak Teti,
Awal yang bagus untuk memulai sebuah aplikasi sederhana. Semoga banyak BeExceller yang membantu mewujudkannya, walaupun memulai dari satu part ke part lain.
Mungkin ini bisa jadi titik awalnya.
1. Buat sebuah folder misal namanya AppKu. Isinya nanti adalah seluruh file maupun folder tentang aplikasi yang dibuat
2. Dalam folder itu, buat 1 folder bernama images
3. mbak Teti mencoba membuat formnya dalam sebuah sheet. Simpan filenya dalam folder appku
4. Dalam file excel itu, buat 2 sheet awal. Sebuah sheet yang berisi data, dan sebuah sheet berisi form yang diinginkan. Isi datanya sekalian, mungkin beberapa puluh baris. Jangan lupa untuk membuat ID anak yang unik.
5. mbak Teti menyiapkan daftar pertanyaan yang merupakan step per stepnya.
Misal,
tahap 1 ingin supaya jika bisa memilih nama beserta id anak, langsung tampil seluruh datanya (minimal sekarang data nama dsb dulu)
tahap 2 nanti urusannya dengan file images nya (butuh VBA), dan akan seru ketika ada proses update gambar aktivitas kelak.
tahap 3 dst biasanya akan muncul ide nya dengan sendirinya.
6. zip foldernya dan kirim ke milis sebagai sebuah thread baru untuk tahapan yang mana. Beri penjelasan yang memadai.
BeExceller yang akan berusaha membantu akan selalu terupdate dengan seluruh file yang di dalamnya. Ingat, batas maksimal ukuran file attachment 250KB. Jika tidak memungkinkan, simpanlah disebuah net folder dan sediakan link-nya untuk bisa mengunduh file tersebut
Wassalam,
Kid.
2012/9/19 Teti Zhe <teti_zhe@yahoo.
>
>Dear Master Excel,
>Saat ini saya sedang mengembangkan sebuah database untuk anak-anak yang saya dampingi. Selama ini buat nya di word ajaa dengan format kebutuhan seperti terlampir. Namun, merepotkan karena jadinya banyak banget file .doc nya.. Saya mendambakan sebuah database yang mempunyai sebuah form menu awal yang memiliki fitur untuk bisa membuka setiap file anak-anak dimaksud (jika memungkinkan) . Mungkin membukanya ketika mengetikkan sebuah id dari seorang data anak.
>
>Kemudian (pengennya) ada juga form untuk update data anak atau entry data baru...
>
>
>Apakah memungkinkan dan bisakah dengan menggunakan excel?
>Mohon pencerahannya,
>Makasih...
>
>Salam,
>Teti.
>
Tue Oct 2, 2012 2:08 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Untuk menghormati almarhum "SITI VI" yang sudah bersusah payah membuat contoh input data, coba pelajari file terlampir.
Salam,
Hendrik Karnadi
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, 2 October 2012, 15:51
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Dear Master Excel,
Terkait dengan pertanyaan saya sebelumnya tentang membangun
sebuah aplikasi di excel, dan juga berkat bantuan teman-teman dari milis ini,
Berikut saya ingin share sekalian bertanya <lagi> pada
master semua :
Saya uda mencoba-coba buat form nya <terlampir> (mohon
izin copi dan utak atik karya Pak Mikey yaa.. :) )
Dan yang ingin saya mohon bantuan pencerahannya yakni :
1. Menurut teman2 apakah form / aplikasi ini sudah
benar gitu? Tidak ada object yang mubazir dan malah akan membuat bingung? Heheh
<koq malah nanya ini ya?>
2. Bagaimana caranya agar form input dan form view
bisa berada di tengah2 layar monitor <menyesuaikan dengan layar monitor
pengguna> ? memungkinkan kah jika scroll bar nya diaktifkan kalau ternyata
form nya terlalu besar?
3. Bagaimana fungsi atau coding untuk masing2 tombol
browse (pada form input)?
4. Bagaimana fungsi atau coding untuk tombol save
(pada form input)? Sehingga data yang baru di input akan dimasukkan ke sheet 2
(sheet DATA)
5. Bagaimana fungsi atau coding untuk tombol Cancel
(form Input) ?
6. Bagaimana fungsi atau coding pada tombol Update
dan Save (pada form View)?
7. Untuk form View pada Combobox ID, pengennya itu
bisa sekalian difungsikan untuk Search...
Hadeeuhh.. maaf beribu maaf yaaa.. pertanyaan ku buanyak sekalii...abis
uda ga sabar nih cepat2 kelarin heheh...dan terimakasih beribu banyak
terimakasih untuk bantuannya...
Salam,
Teti.
________________________________
From: Teti Zhe <teti_zhe@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, September 19, 2012 4:53 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Hi Mr. Kid,
makasih saran nya,,
saya coba kembangkan dulu yaa..
makasih mau membantu
Salam,
Teti.
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, September 19, 2012 4:36 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Mbak Teti,
Awal yang bagus untuk memulai sebuah aplikasi sederhana. Semoga banyak BeExceller yang membantu mewujudkannya, walaupun memulai dari satu part ke part lain.
Mungkin ini bisa jadi titik awalnya.
1. Buat sebuah folder misal namanya AppKu. Isinya nanti adalah seluruh file maupun folder tentang aplikasi yang dibuat
2. Dalam folder itu, buat 1 folder bernama images
3. mbak Teti mencoba membuat formnya dalam sebuah sheet. Simpan filenya dalam folder appku
4. Dalam file excel itu, buat 2 sheet awal. Sebuah sheet yang berisi data, dan sebuah sheet berisi form yang diinginkan. Isi datanya sekalian, mungkin beberapa puluh baris. Jangan lupa untuk membuat ID anak yang unik.
5. mbak Teti menyiapkan daftar pertanyaan yang merupakan step per stepnya.
Misal,
tahap 1 ingin supaya jika bisa memilih nama beserta id anak, langsung tampil seluruh datanya (minimal sekarang data nama dsb dulu)
tahap 2 nanti urusannya dengan file images nya (butuh VBA), dan akan seru ketika ada proses update gambar aktivitas kelak.
tahap 3 dst biasanya akan muncul ide nya dengan sendirinya.
6. zip foldernya dan kirim ke milis sebagai sebuah thread baru untuk tahapan yang mana. Beri penjelasan yang memadai.
BeExceller yang akan berusaha membantu akan selalu terupdate dengan seluruh file yang di dalamnya. Ingat, batas maksimal ukuran file attachment 250KB. Jika tidak memungkinkan, simpanlah disebuah net folder dan sediakan link-nya untuk bisa mengunduh file tersebut
Wassalam,
Kid.
2012/9/19 Teti Zhe <teti_zhe@yahoo.com >
>
>Dear Master Excel,
>Saat ini saya sedang mengembangkan sebuah database untuk anak-anak yang saya dampingi. Selama ini buat nya di word ajaa dengan format kebutuhan seperti terlampir. Namun, merepotkan karena jadinya banyak banget file .doc nya.. Saya mendambakan sebuah database yang mempunyai sebuah form menu awal yang memiliki fitur untuk bisa membuka setiap file anak-anak dimaksud (jika memungkinkan) . Mungkin membukanya ketika mengetikkan sebuah id dari seorang data anak.
>
>Kemudian (pengennya) ada juga form untuk update data anak atau entry data baru...
>
>
>Apakah memungkinkan dan bisakah dengan menggunakan excel?
>Mohon pencerahannya,
>Makasih...
>
>Salam,
>Teti.
>
Salam,
Hendrik Karnadi
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Tuesday, 2 October 2012, 15:51
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Dear Master Excel,
Terkait dengan pertanyaan saya sebelumnya tentang membangun
sebuah aplikasi di excel, dan juga berkat bantuan teman-teman dari milis ini,
Berikut saya ingin share sekalian bertanya <lagi> pada
master semua :
Saya uda mencoba-coba buat form nya <terlampir> (mohon
izin copi dan utak atik karya Pak Mikey yaa.. :) )
Dan yang ingin saya mohon bantuan pencerahannya yakni :
1. Menurut teman2 apakah form / aplikasi ini sudah
benar gitu? Tidak ada object yang mubazir dan malah akan membuat bingung? Heheh
<koq malah nanya ini ya?>
2. Bagaimana caranya agar form input dan form view
bisa berada di tengah2 layar monitor <menyesuaikan dengan layar monitor
pengguna> ? memungkinkan kah jika scroll bar nya diaktifkan kalau ternyata
form nya terlalu besar?
3. Bagaimana fungsi atau coding untuk masing2 tombol
browse (pada form input)?
4. Bagaimana fungsi atau coding untuk tombol save
(pada form input)? Sehingga data yang baru di input akan dimasukkan ke sheet 2
(sheet DATA)
5. Bagaimana fungsi atau coding untuk tombol Cancel
(form Input) ?
6. Bagaimana fungsi atau coding pada tombol Update
dan Save (pada form View)?
7. Untuk form View pada Combobox ID, pengennya itu
bisa sekalian difungsikan untuk Search...
Hadeeuhh.. maaf beribu maaf yaaa.. pertanyaan ku buanyak sekalii...abis
uda ga sabar nih cepat2 kelarin heheh...dan terimakasih beribu banyak
terimakasih untuk bantuannya..
Salam,
Teti.
____________
From: Teti Zhe <teti_zhe@yahoo.
To: "belajar-excel@
Sent: Wednesday, September 19, 2012 4:53 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Hi Mr. Kid,
makasih saran nya,,
saya coba kembangkan dulu yaa..
makasih mau membantu
Salam,
Teti.
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, September 19, 2012 4:36 PM
Subject: Re: [belajar-excel] Bisakah membuat form database di excel dengan kebutuhan spt terlampir?
Mbak Teti,
Awal yang bagus untuk memulai sebuah aplikasi sederhana. Semoga banyak BeExceller yang membantu mewujudkannya, walaupun memulai dari satu part ke part lain.
Mungkin ini bisa jadi titik awalnya.
1. Buat sebuah folder misal namanya AppKu. Isinya nanti adalah seluruh file maupun folder tentang aplikasi yang dibuat
2. Dalam folder itu, buat 1 folder bernama images
3. mbak Teti mencoba membuat formnya dalam sebuah sheet. Simpan filenya dalam folder appku
4. Dalam file excel itu, buat 2 sheet awal. Sebuah sheet yang berisi data, dan sebuah sheet berisi form yang diinginkan. Isi datanya sekalian, mungkin beberapa puluh baris. Jangan lupa untuk membuat ID anak yang unik.
5. mbak Teti menyiapkan daftar pertanyaan yang merupakan step per stepnya.
Misal,
tahap 1 ingin supaya jika bisa memilih nama beserta id anak, langsung tampil seluruh datanya (minimal sekarang data nama dsb dulu)
tahap 2 nanti urusannya dengan file images nya (butuh VBA), dan akan seru ketika ada proses update gambar aktivitas kelak.
tahap 3 dst biasanya akan muncul ide nya dengan sendirinya.
6. zip foldernya dan kirim ke milis sebagai sebuah thread baru untuk tahapan yang mana. Beri penjelasan yang memadai.
BeExceller yang akan berusaha membantu akan selalu terupdate dengan seluruh file yang di dalamnya. Ingat, batas maksimal ukuran file attachment 250KB. Jika tidak memungkinkan, simpanlah disebuah net folder dan sediakan link-nya untuk bisa mengunduh file tersebut
Wassalam,
Kid.
2012/9/19 Teti Zhe <teti_zhe@yahoo.
>
>Dear Master Excel,
>Saat ini saya sedang mengembangkan sebuah database untuk anak-anak yang saya dampingi. Selama ini buat nya di word ajaa dengan format kebutuhan seperti terlampir. Namun, merepotkan karena jadinya banyak banget file .doc nya.. Saya mendambakan sebuah database yang mempunyai sebuah form menu awal yang memiliki fitur untuk bisa membuka setiap file anak-anak dimaksud (jika memungkinkan) . Mungkin membukanya ketika mengetikkan sebuah id dari seorang data anak.
>
>Kemudian (pengennya) ada juga form untuk update data anak atau entry data baru...
>
>
>Apakah memungkinkan dan bisakah dengan menggunakan excel?
>Mohon pencerahannya,
>Makasih...
>
>Salam,
>Teti.
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@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-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@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-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar