Minggu, 05 Agustus 2012

[belajar-excel] Digest Number 1716

3 New Messages

Digest #1716

Messages

Sat Aug 4, 2012 4:11 am (PDT) . Posted by:

"Prazt" praztmath

malu bertanya sesat di pekerjaan...
dear para suhu excel, saya mempunyai file excel yang VBAnya ingin saya password, tapi saya coba berkali-kali kok tetep tidak bisa ya...?
udah lewat cara VBA project propertise>>protection>>dan saya masukkan password kaga bisa...
adakah solusinya dan harus bagaimana agar bisa saya protect supaya VBAProjectnya tidak bisa dilihat apaliagi di edit orang lain..??
matur thank's

--- Mods ---
Lampiran file yang berisi penggalan data dan ber-VBA tersebut akan membantu BeExceler untuk urun rembug.
------------

Sat Aug 4, 2012 11:41 am (PDT) . Posted by:

"Md Switra" mswitra


Salam semua.
Saya mohon bantuan master excel semua.
Saya sering mengikuti perkembangan milis ini. Salah satu rekan ada yg menulis tentang insert photo dalam satu folder ke file excel. Saya udah menerapkannya. Nah ketika saya coba kembangkan saya menemukan kendala yaitu nilai hasil rumus tidak dapat di baca. Sedangkan jika saya ketik secara manual photonya udah langsung ter insert.
Mohon bantuannya. Filenya udah saya attachment.
Makasih

Dikirim dari Yahoo! Mail pada Android

Sat Aug 4, 2012 12:16 pm (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

Pak Witra,

Prosedur yang digunakan adalah prosedur event change pada worksheet.
Berarti, prosedur akan bekerja ketika ada isi cell yang *diubah nilainya
oleh user*.
Maka, buatlah sebuah coretan yang berisi informasi tentang keadaan yang
berubah tersebut sebagai berikut :
1. Berapa cell yang berubah supaya si gambar boleh diganti ? ----
jawaban Anda : (tulis disini dalam coretan Anda tersebut)
>> nanti akan diatur pada baris berikut : (ubah bagian baris berikut)
If Target.Count = (nilai jawaban Anda) Then

2. Cell mana saja yang diubah oleh user ? ----- Jawaban Anda :
>> baris yang dipengaruhi :
If Target.Address(False, False) = "(jawaban anda salin juga ke sini)" Then

3. Apa syarat bahwa pengubahan user itu adalah suatu nilai yang benar ?
------
>> ubah baris ini :
If LenB(Target.Value) <> 0 Then
>> menjadi sesuai dengan kriteria syarat jawaban Anda, dalam susunan :
IF syarat anda adalah benar THEN

4. Apa nama file gambar yang akan dipasang ? ----- Jawaban Anda :
(kalau melihat penjelasan masalah yang Anda utarakan, mestinya jawaban Anda
adalah nilai cell G2)
>> baris yang dipengaruhi :
sFileName = bla-bla-bla
>> akan menjadi :
sFileName = ThisWorkbook.Path & "\" & Range("G2").Value & ".jpg"

5. Apa jenis wadah gambar yang Anda gunakan ? ---- Jawaban Anda :
(mestinya hanya salah satu dari 2 hal, yaitu Shapes berupa Rectangle atau
Control Object berupa Image)

6. Apa nama wadah gambar tersebut ? ---- Jawaban Anda :
(lihat di name box yang terletak di atas nama-nama kolom Excel dikiri
formula bar)

7. Khusus jika nomor 5 dijawab dengan menggunakan shapes dan nomor 6 sudah
diketahui nama shapes-nya, ubah bagian :
Set shp = ActiveSheet.Shapes("nama shapes yang Anda gunakan")
dan semua baris yang berbunyi :
Image1.Picture = bla-bla-bla
dapat dinon-aktifkan (memberi karakter ' (petik satu) didepan baris) atau
dihapus.

8. Khusus jika nomor 5 dijawab dengan menggunakan control object image dan
nomor 6 diketahui nama object control-nya, ubah bagian :
Image1.Picture = bla-bla-bla
menjadi :
jawaban_nomor_6_anda.picture = bla-bla-bla
dan non-aktifkan atau hapus baris-baris berikut :
1. Set shp = bla-bla-bla
2. With shp
3. End With
4. semua baris yang berbunyi : .Fill.bla-bla-bla

Setekah diubah, save workbook dan bisa dicoba.

Wassalam,
Kid.

2012/8/4 Md Switra <mswitra@yahoo.com>

> **
>
>
>
> Salam semua.
> Saya mohon bantuan master excel semua.
> Saya sering mengikuti perkembangan milis ini. Salah satu rekan ada yg
> menulis tentang insert photo dalam satu folder ke file excel. Saya udah
> menerapkannya. Nah ketika saya coba kembangkan saya menemukan kendala yaitu
> nilai hasil rumus tidak dapat di baca. Sedangkan jika saya ketik secara
> manual photonya udah langsung ter insert.
> Mohon bantuannya. Filenya udah saya attachment.
> Makasih
>
> Dikirim dari Yahoo! Mail pada Android
>
>
>
>
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar