Selasa, 20 Juni 2017

[belajar-excel] Digest Number 4217

8 Messages

Digest #4217

Messages

Mon Jun 19, 2017 10:57 pm (PDT) . Posted by:

"Pandu Dwipanata" pandu_dwipanata

Dear all,
Saat saya memproteksi range pada worksheet, kenapa form control (check box)
yang ada ikut terproteksi ..?

Padahal tujuannya, user hanya boleh mainkan mouse saja dengan meng-klik
check box yg ada di lembar input (tidak boleh ada edit apapun, kecuali klik
pada check box).

Bagaimana solusinya ya..

Terima kasih sebelumnya

Salam
Pandu

Mon Jun 19, 2017 11:57 pm (PDT) . Posted by:

"nangagus"

Dear Pandu,

Protect Sheet pakai apa?
Jika pakai Format Protect Sheet, dapat dipilih Edit Object (centang)

Jika pakai VBA dapat dipilih Drawing Object pilih true
(Sheet1.Protect "Passworte", True)

Salam
Agus

On 6/20/17 12:48 PM, Pandu Dwipanata prima.pandu@gmail.com
[belajar-excel] wrote:
> Dear all,
> Saat saya memproteksi range pada worksheet, kenapa form control (check
> box) yang ada ikut terproteksi ..?
>
> Padahal tujuannya, user hanya boleh mainkan mouse saja dengan
> meng-klik check box yg ada di lembar input (tidak boleh ada edit
> apapun, kecuali klik pada check box).
>
> Bagaimana solusinya ya..
>
> Terima kasih sebelumnya
>
> Salam
> Pandu
>
>

Tue Jun 20, 2017 12:18 pm (PDT) . Posted by:

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

Hai Pandu,

Control di dalam worksheet :
A. Untuk form control maupun activex control yang tidak di-set properti
link cell nya, maka pada dasarnya dalam keadaan worksheet terproteksi tetap
bisa digunakan.
Contoh :
1. buat worksheet baru -> tambahkan activex control checkbox -> jangan
diset apa-apa (cukup turn off design mode) -> protek worksheet dengan
setting apapun
2. centang/un-centang si control

*** Properti Locked berkaitan dengan meng-edit si control, seperti resize,
move, dan sebagainya

B. Untuk form control maupun activex control yang di-set properti link
cells ke cells tertentu di worksheet yang sama, lalu cells yang linked
dengan control tersebut dalam status properti locked adalah tercentang
(klik kanan cells yang di-link -> format cells -> tab Protection -> locked
dalam keadaan tercentang) dan worksheet diprotek, maka control seakan-akan
tidak dapat digunakan (terprotek), padahal penyebabnya adalah si control
tidak bisa mengubah isi linked cells yang terproteksi.
Contoh :
1. buat worksheet baru -> tambahkan activex control checkbox -> klik kanan
si control -> pilih properti -> cari properti bernama LinkedCells : isi
dengan A1 (linked ke cells A1)
2. klik kanan cells A1 -> format cells -> tab Protection -> opsi Locked
dicentang -> tekan OK
3. protek worksheet dengan setting apapun
4. centang/un-centang si control

*** Setelah dicoba dan tampak seakan-akan si control tidak bisa dipakai,
itu disebabkan karena si control tidak bisa mengubah isi cells A1 yang
dalam keadaan terproteksi
*** Coba sekarang lakukan unprotect worksheet -> klik kanan cells A1 ->
format cells -> tab Protection -> opsi Locked : hilangkan centang -> tekan
OK, lalu protek worksheet dan centang/un-centang si control lagi
*** Coba juga untuk langsung mengubah isi cell A1 dengan bunyi TRUE atau
FALSE

-----------------------------
Dari 2 keadaan di atas, berarti sudah bisa diketahui jalan keluarnya...
1. kalau cells yang linked boleh diubah langsung oleh user, maka set
properti Locked si cells A1 (tab Protection di range dalam format cells)
dengan tidak dicentang
2. kalau cells yang linked tidak boleh diubah oleh user, maka buat
worksheet lain dan set properti LinkedCells si control ke sheet lain
tersebut. Hide sheet lain tersebut bila perlu.
*** Tidak perlu VBA kan ya...

Kira-kira begitu...
lha wong gak mudeng pastinya si kasus bagaimana...

Regards,
Kid

2017-06-20 12:48 GMT+07:00 Pandu Dwipanata prima.pandu@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear all,
> Saat saya memproteksi range pada worksheet, kenapa form control (check
> box) yang ada ikut terproteksi ..?
>
> Padahal tujuannya, user hanya boleh mainkan mouse saja dengan meng-klik
> check box yg ada di lembar input (tidak boleh ada edit apapun, kecuali klik
> pada check box).
>
> Bagaimana solusinya ya..
>
> Terima kasih sebelumnya
>
> Salam
> Pandu
>
>
>

Mon Jun 19, 2017 11:46 pm (PDT) . Posted by:

"nangagus"

Walaikumsalam warahmatullah,

Coba di modules diketik Cekrip:
Function KeBukak(FileName As String)
Dim ff As Long, ErrNo As Long
On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0: KeBukak = False
Case 70: KeBukak = True
' Case Else: Error ErrNo
End Select
End Function

Kemudian pada Userform yang dibuat masukkan Cekrip di bawah ini pada
salah satu command button:

Private Sub CommandButton1_Click()
Dim adu As String
Dim aduh As String
Dim hsl As String
Dim dikopi As String
adu = ComboBox1.Value
aduh = ComboBox2.Value
hsl = ThisWorkbook.Name
dikopi = ActiveWorkbook.Path & "\" & adu & "\" & aduh
If KeBukak(dikopi) = False Then
Workbooks.Open dikopi
Else
Application.ScreenUpdating = False
End If
Windows(hsl).Activate
Workbooks(aduh).Sheets("Sheet1").Range("A1:H10").Copy
Sheet1.Cells(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Windows(aduh).Close False
Application.ScreenUpdating = True
End Sub

NB: Pertanyaan untuk Mas Kid: 1. kenapa kalau cekrip yang berwarna merah
saya buang jadi error? bagaimana cara memanggil workbook yang benar,
sudah lupa nih.... . 2. Apakah dengan cara Workbooks.open merupakan
membuka Excel baru?(dua excel dua file) 3. Bagaimana caranya membuka
file excel masih dalam satu excel dengan cekrip (satu excel membuka dua
file)? Sukron.

Salam

Nangagus

On 6/18/17 12:38 AM, Ryan Sacth ryan_sacth@yahoo.com [belajar-excel] wrote:
> Assalamualaikum Wr.Wb
>
> Halo semuanya.
>
> Saya punya kasus, siapa tahu para suhu disini bisa bantu.
>
> Saya ingin mengisi atau melihat data pada file excel yang saya sebut
> *Master_file* dimana sumber datanya dari file excel yang tertutup
> didalam folder. Gambarnya gini:
>
> Inline image
> Pada *Master_file* akan diisi dengan data-data excel yang ada di
> folder A,B,C. Di dalam *Master_file *ada pilihan menggunakan semacam
> ComboBox untuk ComboBox1 yakni di populated dengan nama-nama folder
> tersebut dan ComboBox2 adalah nama file yang ada dalam folder A,B,C
> dan dalam file tersebut adalah file excel dengan nama bulan
> (Januari.xlsx, februari.xlsx, dst). Kemudian akan dimunculkan data
> pada *Master_file *dengan logika sederhananya seperti:
>
> Asumsi:
> Semua bentuk format data baik column dan row yang ada dalam folder
> adalah sama. Nama field pada kolom A-Z sama begitupun dengan rownya.
>
>
> Bahasa Manusia:
>
> 1. Jika ComboBox1 terpilih adalah *Folder A* dan ComboBox2 terpilih
> adalah file Bulan *Januari.xlsx*, maka Sheet1 (Range A1:H10) pada
> *Master_file *akan menampilkan data dari folder dan file dimaksud.
> Begitu pula jika dipilih adalah folder dan file lain.
> 2. Jika ComboBox1 terpilih adalah *All Folder* dan ComboBox2 terpilih
> adalah file Bulan *Januari.xlsx* maka Sheet1 (Range A1:H10) pada
> *Master_file *akan menampilkan data penjumlahan untuk file bulan
> *Januari.xlsx *pada semua folder yang ada.
>
>
> Mohon bantuannya.
> Terima Kasih.
>
>
>
>
>
>
>

Tue Jun 20, 2017 12:24 pm (PDT) . Posted by:

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

Hai BeExceller khususnya mas Nang,

Tentang :
NB: Pertanyaan untuk Mas Kid: 1. kenapa kalau cekrip yang berwarna merah
saya buang jadi error? bagaimana cara memanggil workbook yang benar, sudah
lupa nih.... . 2. Apakah dengan cara Workbooks.open merupakan membuka Excel
baru?(dua excel dua file) 3. Bagaimana caranya membuka file excel masih
dalam satu excel dengan cekrip (satu excel membuka dua file)? Sukron.

A. Kalau memang ada object-nya (contoh dalam hal ini adalah object
workbook), maka pakailah object-nya daripada pakai properti tertentu dari
si object (seperti properti Name dan sebagainya).

Contoh :
dim wbkPemanggil as workbook, wbkTerpanggil as workbook

set wbkPemanggil = thisworkbook
set wbkterpanggil= workbooks.open "fullname si workbook"
wbkpemanggil.activate

B. Methods Open milik Workbooks akan membuat file Excel dibuka dalam
instance Excel yang sama.

Regards,
Kid

2017-06-20 13:47 GMT+07:00 nangagus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Walaikumsalam warahmatullah,
>
> Coba di modules diketik Cekrip:
> Function KeBukak(FileName As String)
> Dim ff As Long, ErrNo As Long
> On Error Resume Next
> ff = FreeFile()
> Open FileName For Input Lock Read As #ff
> Close ff
> ErrNo = Err
> On Error GoTo 0
> Select Case ErrNo
> Case 0: KeBukak = False
> Case 70: KeBukak = True
> ' Case Else: Error ErrNo
> End Select
> End Function
>
> Kemudian pada Userform yang dibuat masukkan Cekrip di bawah ini pada salah
> satu command button:
>
> Private Sub CommandButton1_Click()
> Dim adu As String
> Dim aduh As String
> Dim hsl As String
> Dim dikopi As String
> adu = ComboBox1.Value
> aduh = ComboBox2.Value
> hsl = ThisWorkbook.Name
> dikopi = ActiveWorkbook.Path & "\" & adu & "\" & aduh
> If KeBukak(dikopi) = False Then
> Workbooks.Open dikopi
> Else
> Application.ScreenUpdating = False
> End If
> Windows(hsl).Activate
> Workbooks(aduh).Sheets("Sheet1").Range("A1:H10").Copy
> Sheet1.Cells(1, 1).PasteSpecial xlPasteValues
> Application.CutCopyMode = False
> Windows(aduh).Close False
> Application.ScreenUpdating = True
> End Sub
>
> NB: Pertanyaan untuk Mas Kid: 1. kenapa kalau cekrip yang berwarna merah
> saya buang jadi error? bagaimana cara memanggil workbook yang benar, sudah
> lupa nih.... . 2. Apakah dengan cara Workbooks.open merupakan membuka Excel
> baru?(dua excel dua file) 3. Bagaimana caranya membuka file excel masih
> dalam satu excel dengan cekrip (satu excel membuka dua file)? Sukron.
>
> Salam
>
> Nangagus
>
> On 6/18/17 12:38 AM, Ryan Sacth ryan_sacth@yahoo.com [belajar-excel]
> wrote:
>
>
> Assalamualaikum Wr.Wb
>
> Halo semuanya.
>
> Saya punya kasus, siapa tahu para suhu disini bisa bantu.
>
> Saya ingin mengisi atau melihat data pada file excel yang saya sebut
> *Master_file* dimana sumber datanya dari file excel yang tertutup didalam
> folder. Gambarnya gini:
>
> [image: Inline image]
> Pada *Master_file* akan diisi dengan data-data excel yang ada di folder
> A,B,C. Di dalam *Master_file *ada pilihan menggunakan semacam ComboBox
> untuk ComboBox1 yakni di populated dengan nama-nama folder tersebut dan
> ComboBox2 adalah nama file yang ada dalam folder A,B,C dan dalam file
> tersebut adalah file excel dengan nama bulan (Januari.xlsx, februari.xlsx,
> dst). Kemudian akan dimunculkan data pada *Master_file *dengan logika
> sederhananya seperti:
>
> Asumsi:
> Semua bentuk format data baik column dan row yang ada dalam folder adalah
> sama. Nama field pada kolom A-Z sama begitupun dengan rownya.
>
>
> Bahasa Manusia:
>
> 1. Jika ComboBox1 terpilih adalah *Folder A* dan ComboBox2 terpilih
> adalah file Bulan *Januari.xlsx*, maka Sheet1 (Range A1:H10) pada *Master_file
> *akan menampilkan data dari folder dan file dimaksud. Begitu pula jika
> dipilih adalah folder dan file lain.
> 2. Jika ComboBox1 terpilih adalah *All Folder* dan ComboBox2 terpilih
> adalah file Bulan *Januari.xlsx* maka Sheet1 (Range A1:H10) pada
> *Master_file *akan menampilkan data penjumlahan untuk file bulan *Januari.xlsx
> *pada semua folder yang ada.
>
>
> Mohon bantuannya.
> Terima Kasih.
>
>
>
>
>
>
>
>
>

Tue Jun 20, 2017 1:22 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Ryan,

1. Daftar file atau folder
Contoh udf untuk mendapatkan daftar file atau folder ada disini
<https://app.box.com/s/nowwlko0a10h0p1w592vihzo9f23ctbm>.
Kalau contoh file yang ada di website milis hanya daftar file saja. File di
website milis ada disini
<https://xa.yimg.com/df/belajar-excel/Pemanfaatan+Fungsi+DIR+untuk+mendaftar+Files+%28Kid%29.xlsm?token=TYKm7FoT4BssBgAd2N2O9QMhgQn-OKK1WjSpQoQ-w20O9cMdBhpDT0qLaoA2OYFu-x0GBXQ_oH-Im6OBj_UhCsaAFb14i95IbCIPugbbg2FoXs_ZnJ2kUllxqy4bNT4uoaO_Ojq7gd_9vHMStn7U-yzxZhkqbnfw55t6Ai8nl2z1gefLpKXBW9MPz9y5EyhsU41qNQl9UVJowlnvlXyC6TZJ&type=download>
.

2. Mengisi daftar combobox
Bisa dilihat di blog milis tentang listbox dan combobox mulai dari sini
<http://b-excel.blogspot.co.id/2014/02/belajarvba-102-combobox-01.html>.
Jika memanfaatkan properti List milik combobox, maka hasil dari nomor 1
yang berupa array bisa dimanfaatkan (diisikan) ke properti List ini.

3. Cek ada item combobox yang terpilih atau tidak dengan cara cek nilai
properti listindex <> -1

4. Cek ada folder nya atau tidak dengan Len( Dir( fullpath ,vbdirectory ) )
<> 0

5. Cek ada filenya atau tidak dengan Len( Dir( fullname ) ) <> 0

*** Untuk menyalin dari suatu workbook, tidak perlu diketahui si workbook
dalam keadaan sedang dibuka oleh user lain atau tidak. Bila perlu, buka
dalam keadaan read only saja (lihat parameter fungsi dalam methods Open
milik Workbook)

Wassalamu'alaikum wr wb
Kid

2017-06-18 0:38 GMT+07:00 Ryan Sacth ryan_sacth@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum Wr.Wb
>
> Halo semuanya.
>
> Saya punya kasus, siapa tahu para suhu disini bisa bantu.
>
> Saya ingin mengisi atau melihat data pada file excel yang saya sebut
> *Master_file* dimana sumber datanya dari file excel yang tertutup didalam
> folder. Gambarnya gini:
>
> [image: Inline image]
> Pada *Master_file* akan diisi dengan data-data excel yang ada di folder
> A,B,C. Di dalam *Master_file *ada pilihan menggunakan semacam ComboBox
> untuk ComboBox1 yakni di populated dengan nama-nama folder tersebut dan
> ComboBox2 adalah nama file yang ada dalam folder A,B,C dan dalam file
> tersebut adalah file excel dengan nama bulan (Januari.xlsx, februari.xlsx,
> dst). Kemudian akan dimunculkan data pada *Master_file *dengan logika
> sederhananya seperti:
>
> Asumsi:
> Semua bentuk format data baik column dan row yang ada dalam folder adalah
> sama. Nama field pada kolom A-Z sama begitupun dengan rownya.
>
>
> Bahasa Manusia:
>
> 1. Jika ComboBox1 terpilih adalah *Folder A* dan ComboBox2 terpilih
> adalah file Bulan *Januari.xlsx*, maka Sheet1 (Range A1:H10) pada *Master_file
> *akan menampilkan data dari folder dan file dimaksud. Begitu pula jika
> dipilih adalah folder dan file lain.
> 2. Jika ComboBox1 terpilih adalah *All Folder* dan ComboBox2 terpilih
> adalah file Bulan *Januari.xlsx* maka Sheet1 (Range A1:H10) pada
> *Master_file *akan menampilkan data penjumlahan untuk file bulan *Januari.xlsx
> *pada semua folder yang ada.
>
>
> Mohon bantuannya.
> Terima Kasih.
>
>
>
>
>
>
>
>

Tue Jun 20, 2017 2:16 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Ari,

Manfaatkan fungsi Index daripada Indirect.

Wassalamu'alaikum wr wb
Kid

2017-06-16 10:52 GMT+07:00 cheivory_bridge@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Yth. Rekan Be-Exceler
>
> Assalaamu'alaikum Wr Wb
>
> Mohon pencerahannya ..
>
> Terlampir terdapat file data validation tingkat 2. Saya coba menerapkan
> name range dinamis pada source data periode stase (ilmu forensik) dengan
> kombinasi offset dan counta tetapi, data validation tingkat 2 (periode
> stase) menjadi off (tidak ada pilihan, meski ada icon data validation).
> Bagaimana caranya agar data validation bertingkat bisa berjalan dengan
> sumber data yang dinamis ?
>
> Terima kasih
>
> Wassalaamu&#39;alaikum Wr Wb
>
>
> Ari
>
>
>
>
>

Tue Jun 20, 2017 3:15 pm (PDT) . Posted by:

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

Hai Ym,

File terlampir sekadar contoh.

Regards,
Kid

2017-06-02 11:09 GMT+07:00 Yulius Minsai yulius_minsai@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Master,
>
> Mohon pencerahan, lagi mau bikin indek jadwal pemupukan (yg sudah ditanam
> dan yg akan ditanam), utk membuat anggaran pembelian pupuk tiap bulan.
> Sederhananya, tiap tanaman akan dikelompokkan dimasing-masing kolom (sudah
> jatuh tempo pemupukan, harus dipupuk 1-60 hari kedepan, dan harus dipupuk
> lebih dari 60 hari kedepan), seperti lampiran.
> Sebelumnya ducapkan terima kasih banyak.
>
> Salam,
> Ym
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 18.57

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)