[belajar-excel] Digest Number 4167

Milis Belajar Microsoft Excel Group

11 Messages

Digest #4167

1a

countif complex by "jajang muhammad siddik" jajang_ms

1b

Re: countif complex [1 Attachment] by "hendrik karnadi" hendrikkarnadi

1c

Re: countif complex [1 Attachment] by "Heri Pamungkas ( Gmail )" dchoosen88

1d

Re: countif complex [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

2a

Re: Membuat Laporan BOS K7a [1 Attachment] by "nangagus"

3a

Re: Sheet di protect macro tidak jalan by "nangagus"

3b

Re: Sheet di protect macro tidak jalan [1 Attachment] by "farud oke"

4a

Mengisi Shape dengan gambar rata kiri by "Heru Safrudin" heru.safrudin

4b

Re: Mengisi Shape dengan gambar rata kiri by "Mr. Kid" nmkid.family@ymail.com

5

Autolock 1 cell setiap input 1 cell by "M.Ade Alfarid" aderyo

6a

Re: Setelah Input,cell otomatis terkunci (tidak bisa dihapus,tidak b by "nangagus"

Messages

1a

countif complex

Wed Apr 26, 2017 8:29 pm (PDT) . Posted by:

"jajang muhammad siddik" jajang_ms

Selamat Pagi,

Saya akan menghitung jumlah transaksi dari sebuah cells dengan departemen tertentu , yang Sudah ada di cell sebelah nya, tapi masih bingung menentukan rumus countif yang seperti apa.. untuk lebih jelas nya bisa di lihat di lampiran ...

Terimakasih banyak,

Salam,

jajang

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

1b

Re: countif complex [1 Attachment]

Thu Apr 27, 2017 1:39 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Jika Departemen dan No Transaksi sama maka Transaksi dihitung 1 kali shingga diperlukan kolom bantu yang menggabungkan Departemen dengan No Transaksi.
Kolom bantu kedua adalah memberi angka 1 untuk yang muncul pertama kali dan angka 0 untuk pengulangan.
Jumlah Transaksi diambil dari jumlah kolom bantu kedua dengan kriteria Departemen (Fungsi SumIf).
File terlampir.
Salam,HK

From: "jajang muhammad siddik jajang_ms@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 27 April 2017, 10:29
Subject: [belajar-excel] countif complex [1 Attachment]

  Selamat Pagi,

Saya akan menghitung jumlah transaksi dari sebuah cells dengan departemen tertentu , yang Sudah ada di cell sebelah nya, tapi masih bingung menentukan rumus countif yang seperti apa.. untuk lebih jelas nya bisa di lihat di lampiran ...

Terimakasih banyak,

Salam,

jajang #yiv0141114165 #yiv0141114165 -- #yiv0141114165ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0141114165 #yiv0141114165ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0141114165 #yiv0141114165ygrp-mkp #yiv0141114165hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0141114165 #yiv0141114165ygrp-mkp #yiv0141114165ads {margin-bottom:10px;}#yiv0141114165 #yiv0141114165ygrp-mkp .yiv0141114165ad {padding:0 0;}#yiv0141114165 #yiv0141114165ygrp-mkp .yiv0141114165ad p {margin:0;}#yiv0141114165 #yiv0141114165ygrp-mkp .yiv0141114165ad a {color:#0000ff;text-decoration:none;}#yiv0141114165 #yiv0141114165ygrp-sponsor #yiv0141114165ygrp-lc {font-family:Arial;}#yiv0141114165 #yiv0141114165ygrp-sponsor #yiv0141114165ygrp-lc #yiv0141114165hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0141114165 #yiv0141114165ygrp-sponsor #yiv0141114165ygrp-lc .yiv0141114165ad {margin-bottom:10px;padding:0 0;}#yiv0141114165 #yiv0141114165actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0141114165 #yiv0141114165activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0141114165 #yiv0141114165activity span {font-weight:700;}#yiv0141114165 #yiv0141114165activity span:first-child {text-transform:uppercase;}#yiv0141114165 #yiv0141114165activity span a {color:#5085b6;text-decoration:none;}#yiv0141114165 #yiv0141114165activity span span {color:#ff7900;}#yiv0141114165 #yiv0141114165activity span .yiv0141114165underline {text-decoration:underline;}#yiv0141114165 .yiv0141114165attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0141114165 .yiv0141114165attach div a {text-decoration:none;}#yiv0141114165 .yiv0141114165attach img {border:none;padding-right:5px;}#yiv0141114165 .yiv0141114165attach label {display:block;margin-bottom:5px;}#yiv0141114165 .yiv0141114165attach label a {text-decoration:none;}#yiv0141114165 blockquote {margin:0 0 0 4px;}#yiv0141114165 .yiv0141114165bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0141114165 .yiv0141114165bold a {text-decoration:none;}#yiv0141114165 dd.yiv0141114165last p a {font-family:Verdana;font-weight:700;}#yiv0141114165 dd.yiv0141114165last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0141114165 dd.yiv0141114165last p span.yiv0141114165yshortcuts {margin-right:0;}#yiv0141114165 div.yiv0141114165attach-table div div a {text-decoration:none;}#yiv0141114165 div.yiv0141114165attach-table {width:400px;}#yiv0141114165 div.yiv0141114165file-title a, #yiv0141114165 div.yiv0141114165file-title a:active, #yiv0141114165 div.yiv0141114165file-title a:hover, #yiv0141114165 div.yiv0141114165file-title a:visited {text-decoration:none;}#yiv0141114165 div.yiv0141114165photo-title a, #yiv0141114165 div.yiv0141114165photo-title a:active, #yiv0141114165 div.yiv0141114165photo-title a:hover, #yiv0141114165 div.yiv0141114165photo-title a:visited {text-decoration:none;}#yiv0141114165 div#yiv0141114165ygrp-mlmsg #yiv0141114165ygrp-msg p a span.yiv0141114165yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0141114165 .yiv0141114165green {color:#628c2a;}#yiv0141114165 .yiv0141114165MsoNormal {margin:0 0 0 0;}#yiv0141114165 o {font-size:0;}#yiv0141114165 #yiv0141114165photos div {float:left;width:72px;}#yiv0141114165 #yiv0141114165photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0141114165 #yiv0141114165photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0141114165 #yiv0141114165reco-category {font-size:77%;}#yiv0141114165 #yiv0141114165reco-desc {font-size:77%;}#yiv0141114165 .yiv0141114165replbq {margin:4px;}#yiv0141114165 #yiv0141114165ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0141114165 #yiv0141114165ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0141114165 #yiv0141114165ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0141114165 #yiv0141114165ygrp-mlmsg select, #yiv0141114165 input, #yiv0141114165 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0141114165 #yiv0141114165ygrp-mlmsg pre, #yiv0141114165 code {font:115% monospace;}#yiv0141114165 #yiv0141114165ygrp-mlmsg * {line-height:1.22em;}#yiv0141114165 #yiv0141114165ygrp-mlmsg #yiv0141114165logo {padding-bottom:10px;}#yiv0141114165 #yiv0141114165ygrp-msg p a {font-family:Verdana;}#yiv0141114165 #yiv0141114165ygrp-msg p#yiv0141114165attach-count span {color:#1E66AE;font-weight:700;}#yiv0141114165 #yiv0141114165ygrp-reco #yiv0141114165reco-head {color:#ff7900;font-weight:700;}#yiv0141114165 #yiv0141114165ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0141114165 #yiv0141114165ygrp-sponsor #yiv0141114165ov li a {font-size:130%;text-decoration:none;}#yiv0141114165 #yiv0141114165ygrp-sponsor #yiv0141114165ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0141114165 #yiv0141114165ygrp-sponsor #yiv0141114165ov ul {margin:0;padding:0 0 0 8px;}#yiv0141114165 #yiv0141114165ygrp-text {font-family:Georgia;}#yiv0141114165 #yiv0141114165ygrp-text p {margin:0 0 1em 0;}#yiv0141114165 #yiv0141114165ygrp-text tt {font-size:120%;}#yiv0141114165 #yiv0141114165ygrp-vital ul li:last-child {border-right:none !important;}#yiv0141114165

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

1c

Re: countif complex [1 Attachment]

Thu Apr 27, 2017 1:54 am (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88

السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Tadinya mau pakai pivot, tapi malah bingung sendiri.
Semoga file terlampir bisa membantu.

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 27/04/2017 9:04, jajang muhammad siddik jajang_ms@yahoo.co.id
[belajar-excel] wrote:
>
> Selamat Pagi,
>
> Saya akan menghitung jumlah transaksi dari sebuah cells dengan
> departemen tertentu , yang Sudah ada di cell sebelah nya, tapi masih
> bingung menentukan rumus countif yang seperti apa.. untuk lebih jelas
> nya bisa di lihat di lampiran ...
>
> Terimakasih banyak,
>
> Salam,
>
> jajang
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

1d

Re: countif complex [1 Attachment]

Thu Apr 27, 2017 2:15 am (PDT) . Posted by:

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

Hai Jajang,

File terlampir dengan beberapa cara yang mungkin bisa digunakan.

Regards,
Kid

2017-04-27 9:04 GMT+07:00 jajang muhammad siddik jajang_ms@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat Pagi,
>
> Saya akan menghitung jumlah transaksi dari sebuah cells dengan departemen
> tertentu , yang Sudah ada di cell sebelah nya, tapi masih bingung
> menentukan rumus countif yang seperti apa.. untuk lebih jelas nya bisa di
> lihat di lampiran ...
>
> Terimakasih banyak,
>
> Salam,
>
> jajang
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

2a

Re: Membuat Laporan BOS K7a [1 Attachment]

Wed Apr 26, 2017 10:57 pm (PDT) . Posted by:

"nangagus"

Biasanya saya menggunakan sumproduct untuk menghitung yang seperti itu,

Coba di C17 ketikkan formula sebagai berikut:

=SUMPRODUCT((LEFT(Data!$B$2:$B$26;1)*1=$A17)*(Data!$G$2:$G$26)*(Data!$C$2:$C$26=C$15))

Tarik (Copy) formula tersebut sampai ke cell L24

semoga sesuai pertanyaan.

salam

On 26/04/17 12.26, agus setiawan agusmadania1@yahoo.co.id
[belajar-excel] wrote:
> Yth para Master
>
> mohon maaf ilmunya cetek
>
> Belum bisa membuat Rumus dengan kriteria seperti data terlampir
>
> Terimkasih atas bantuannya
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

3a

Re: Sheet di protect macro tidak jalan

Wed Apr 26, 2017 11:10 pm (PDT) . Posted by:

"nangagus"

Tergantung kebutuhab kalau saya pilih di workbook open:

Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In Worksheets
w.Protect "password", , , , True
Next w
End Sub

Coba lihat contoh lampiran!

On 25/04/17 14.04, farud oke farud.oke@gmail.com [belajar-excel] wrote:
>
> Ditempatkan dmna? workbook ato d module mas..
> Bsa dkasih script lgkapny..
>
>
> Pada tanggal 25 Apr 2017 2.02 PM, "nangagus nangagus@gmail.com
> <mailto:nangagus@gmail.com> [belajar-excel]"
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>
> menulis:
>
> Jika diprotect menggunakan userinterfaceonly = true,
>
> maka macro masih jalan walaupun sheet terproteksi
>
>
>
> On 25/04/17 06.02, farud oke farud.oke@gmail.com
> <mailto:farud.oke@gmail.com> [belajar-excel] wrote:
>>
>> Mohon bantuan para master
>> Ketika sheet di protect menggunakan review==>>protect sheet macro
>> yg semula jalan jadi tidak jalan.mohon solusinya
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

3b

Re: Sheet di protect macro tidak jalan [1 Attachment]

Thu Apr 27, 2017 2:13 am (PDT) . Posted by:

"farud oke"

Terima kasih responnya mas..
Itu otomatis sheet terprotek semua ya mas agus,klo seandainya ada 5 sheet
tpi yg mo di protect cma sheet 1 dan sheet 3 saja gmna mas..

Pada tanggal 27 Apr 2017 1.10 PM, "nangagus nangagus@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>
>
> Tergantung kebutuhab kalau saya pilih di workbook open:
>
> Private Sub Workbook_Open()
> Dim w As Worksheet
> For Each w In Worksheets
> w.Protect "password", , , , True
> Next w
> End Sub
>
> Coba lihat contoh lampiran!
>
> On 25/04/17 14.04, farud oke farud.oke@gmail.com [belajar-excel] wrote:
>
>
>
> Ditempatkan dmna? workbook ato d module mas..
> Bsa dkasih script lgkapny..
>
> Pada tanggal 25 Apr 2017 2.02 PM, "nangagus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Jika diprotect menggunakan userinterfaceonly = true,
>>
>> maka macro masih jalan walaupun sheet terproteksi
>>
>>
>>
>> On 25/04/17 06.02, farud oke farud.oke@gmail.com [belajar-excel] wrote:
>>
>>
>>
>> Mohon bantuan para master
>> Ketika sheet di protect menggunakan review==>>protect sheet macro yg
>> semula jalan jadi tidak jalan.mohon solusinya
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

4a

Mengisi Shape dengan gambar rata kiri

Thu Apr 27, 2017 3:03 am (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Dear B-Exceller,

Bagaimana kode macro vba untuk mengisi sebuah shape (Rectangle) dengan
gambar yg posisinya disebelah kiri seperti contoh dibawah ini:

Adapun format manualnya sebagi berikut :

Mohon pengetahuannya

Terima kasih

Wassalam

Heru Safrudin

Heru Safrudin

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

4b

Re: Mengisi Shape dengan gambar rata kiri

Thu Apr 27, 2017 1:05 pm (PDT) . Posted by:

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

Hai Heru,

Sayangnya, setahu saya, sampai xl2016 pun properti offset milik stretch
belum dibuka oleh pembuat Office.
Lagi pula, saya pikir terlalu ribet dalam menentukan persentase offsetnya.

Kasus seperti ini umumnya digunakan untuk image yang berukuran sama.
Misalnya, untuk membuat label beserta image QR Code.
Image QR Code yang digunakan untuk suatu produk di sebuah perusahaan akan
memiliki dimensi yang sama. Bisa jadi, antar perusahaan dimensi QR Code nya
berbeda. Pada kasus ini, misalkan image QR Code akan diletakkan di sisi
kiri, dan keterangan diletakkan di sisi kanan.

Kalau dulu, ketika yang digunakan adalah barcode yang diberi id tertentu
dibawah barcode, bisa dengan sebuah shape memanfaatkan properti fill
(userpicture dan textframe fill color white), maka untuk saat ini yang
umumnya menggunakan image QR Code bisa dibuat dengan 3 shape, yaitu :
1. shape container dengan memanfaatkan chart objects (baca : chart kosongan)
2. shape image QR Code dengan memanfaatkan rectangular shape yang dibuat di
dalam shape container (di dalam chart) lalu diisi image QR Code mode stretch
3. shape keterangan berupa shape text box yang juga dibuat di dalam shape
container

Langkah pertama adalah membuat template label :
1. Insert sebuah chart kosong, atur lebar dan tinggi chart, ketebalan
border (bila perlu), dsb. Lalu beri nama, misalnya chtTPL (nama di tulis di
Name Box lalu enter)
> misal lebar 30 mm x tinggi 100 mm [unit bisa diubah melalui Excel
Options Advanced bagian Display item Ruler Units]
> klik kotak name box (pojok kanan atas worksheet, di atas nomor baris
Excel 1), ketik chtTPL lalu tekan Enter
> atur border, misal shape outline weight dipilih 1pt dengan shape
outline color automatic
> atur chart fill bila perlu, misalnya dengan no fill. [pada pembuatan
label nama, bisa jadi chart fill akan berguna jika diisi warna atau texture
tertentu]

2. membuat template image QR Code
> klik chart kosong hasil proses 1 (misal klik bordernya),
ribbon Insert -> group illustrations -> klik Shapes -> pilih
rectangular shapes -> gambar kotak di dalam chart kosong
*** shape rectangular akan menjadi salah satu anak dari chart
> beri nama pada name box, misal dengan nama shpQR
> atur tanpa border, lalu pada format shape (klik kanan shape pilih
format chape) diatur agar fill dengan Picture or Texture Fill -> klik File
-> pilih sebuah image
-> pastikan opsi *Tile picture as texture* *TIDAK DICENTANG*
> atur dimensi shape shpQR ini, misal lebar 29.6mm x tinggi 29.6mm
(bujur sangkar)
> atur posisinya agar di sisi kiri chart (geser-geser saja dengan mouse)

3. membuat template shape textbox keterangan (shape loh ya, bukan control)
> klik chart kosong hasil proses 1 (misal klik bordernya),
ribbon Insert -> group illustrations -> klik Shapes -> pilih Text
Box -> gambar kotak di dalam chart kosong
*** shape text box akan menjadi salah satu anak dari chart
> beri nama pada name box, misal dengan nama shpKET
> atur tanpa border, font color adalah automatic, fill color diatur no
color atau no fill
> bila perlu, isi dengan suatu teks tertentu lebih dulu agar mudah
mengatur jenis font, ukuran font, indent level, alignment, dsb.
> atur dimensinya sesuai kebutuhan, misal tinggi 29.6mm dengan lebar
seperlunya
> atur posisinya di sisi kanan chart

Sampai disini, templatenya sudah jadi di dalam sheet bernama '*myQRLabel*',
dengan object utama :
1. chart bernama chtTPL
2. shape image bernama shpQR (di dalam chtTPL)
3. shape text bernama shpKET (di dalam chtTPL)

Langkah kedua adalah membuat prosedur untuk mengubah image dalam shpQR dan
mengubah bunyi teks di shpKET.
Misal, prosedur tersebut bernama ChangeQRLabel
1. ke VBE (ALT F11) -> insert sebuah Module (general module) -> buat blok
prosedur bernama ChangeQRLabel
public sub ChangeQRLabel()
'baris-baris kode akan ditulis disini
end sub

2. di dalam prosedur tersebut, isi baris kode blok shape chart
with sheets("myQRLabel").shapes("chtTPL")
'baris kode mengolah isi chart diletakkan disini
end with

3. di dalam blok shape chart, isi dengan baris kode mengganti image QR Code
milik shpQR dari suatu file yang ada di drive D
*** Misal akan diganti dengan file QR Code bernama imgQR001.gif yang
ada di drive D root directory
.chart.shapes("shpQR").fill.userpicture "D:\imgQR001.gif"

4. di dalam blok shape chart, isi dengan baris kode mengganti bunyi teks
milik shpKET dengan suat teks tertentu
*** Misal teks 2 baris, dengan baris ke-1 berbunyi 'Mr. Kid' dan baris
ke-2 berbunyi 'Ganteng' wkwkwkwk
.chart.shapes("shpKET").textframe.characters.text="Mr. Kid" & vbcrlf &
"Ganteng"

Catatan :
0. sesuaikan nama worksheet dengan keadaan setempat
1. nama lengkap file image bisa mengambil dari suatu nilai di cells atau
dengan cara yang lainnya. Sesuaikan dengan kebutuhan.
2. bunyi teks bisa mengambil dari suatu nilai di cells atau dengan cara
lainnya. Sesuaikan dengan kebutuhan.
3. contoh kode di atas adalah mengubah isi template. Jika ingin yang diubah
adalah hasil copy-an template (agar template tetap), maka lakukan hal
berikut :
Baris berbunyi :
with sheets("myQRLabel").shapes("chtTPL")
diubah menjadi baris-baris kode berikut :
dim shpCHT as shape
set shpCHT=sheets("myQRLabel").shapes("chtTPL").duplicate
with shpCHT
.name="shpLabel001" 'misal yang baru diberi nama shpLabel001
'misal diletakkan di posisi 100,200
.top=100
.left=200

Silakan dikembangkan sesuai kebutuhan.

Wassalam,
Kid

2017-04-27 16:48 GMT+07:00 'Heru Safrudin'
fcprocessing.bisikediri@bisi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear B-Exceller,
>
>
>
> Bagaimana kode macro vba untuk mengisi sebuah shape (Rectangle) dengan
> gambar yg posisinya disebelah kiri seperti contoh dibawah ini:
>
>
>
>
>
> Adapun format manualnya sebagi berikut :
>
>
>
>
>
> Mohon pengetahuannya
>
> Terima kasih
>
>
>
>
>
> Wassalam
>
> Heru Safrudin
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

5

Autolock 1 cell setiap input 1 cell

Thu Apr 27, 2017 3:31 am (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Dear bexceller,

Mudah2an lampiran contoh bisa bermanfaat.

Input per 1 cell dan dilock setelah input per 1 cell.

Ade

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

6a

Re: Setelah Input,cell otomatis terkunci (tidak bisa dihapus,tidak b

Thu Apr 27, 2017 5:20 pm (PDT) . Posted by:

"nangagus"

Ikut usul penguncian.

Worksheet diprotect menggunakan userinterfaceonly =true

misalnya diletakkan di workbook open

Private Sub Workbook_Open()
Dim w As Worksheet
Sheet1.Protect "xx", , , , True
End Sub

kemudian di Sheet1 yang sudah diprotect dengan userinterfaceonly,

1. Protect cell di nonaktifkan

(misalnya Range A1 sampai B100) diblok, format cell, pada tab
Protection, buang centang Locked

2. Buat cekrip di sheet dengan tujuan agar cell yang ada isinya Locked =
true

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
For Each x In Range("A1:B100")
If Len(x) > 1 Then x.Locked = True
Next x
End Sub

dapat dicoba pada file lampiran

NB: jika mau ditambah dengan peringatan atau helep dan sejenisnya bisa
ditambahkan beberapa if di cekrip, silahkan dikembangkan.

salam

On 25/04/17 10.56, 'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel] wrote:
>
> Dear Bexcelers,
>
> Apakah memungkinkan jika setelah Input,cell otomatis terkunci (tidak
> bisa dihapus,tidak bisa diedit).
>
> Sepengetahuan saya yang bisa terproteksi hanya worksheet saja.
>
> Ade
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

============================================================
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
---------------------------------------------------------------------

Visit Your Group

• New Members 2

• Privacy • Unsubscribe • Terms of Use