Selasa, 15 Oktober 2013

[belajar-excel] Digest Number 2595

5 New Messages

Digest #2595

Messages

Mon Oct 14, 2013 6:36 pm (PDT) . Posted by:

"Febrian Yoshi"

Dear Para Master,

Mohon pencerahannya untuk kasus terlampir..
Terima kasih sebelumnya ya..

Salam,
Fefe

Mon Oct 14, 2013 6:58 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hi Fefe,
Jawaban terlampir.

Salam,
HK

On Tuesday, 15 October 2013, 8:36, Febrian Yoshi <febrixl@gmail.com> wrote:

 
Dear Para Master,

Mohon pencerahannya untuk kasus terlampir..
Terima kasih sebelumnya ya..

Salam,
Fefe

Mon Oct 14, 2013 7:02 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Maaf, lampirannya ketinggalan....

On Tuesday, 15 October 2013, 8:58, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

 
Hi Fefe,
Jawaban terlampir.

Salam,
HK

On Tuesday, 15 October 2013, 8:36, Febrian Yoshi <febrixl@gmail.com> wrote:

 
Dear Para Master,

Mohon pencerahannya untuk kasus terlampir..
Terima kasih sebelumnya ya..

Salam,
Fefe

Mon Oct 14, 2013 6:37 pm (PDT) . Posted by:

"KESI VIZZIANTI"

Maaf sudah terpecahkan problemnya!!!!!! terima kasih Mr.Kid!!

Pada 14 Oktober 2013 00.55, KESI VIZZIANTI <kesi.vizzianti@gmail.com>menulis:

> bisa di bikin contohnya Mas? maklum new bie!! sudah saya utak atik error
> terus!!
>
> Terima kasih
> Kesi
>
>
> 2013/10/11 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Hasi Kesi,
>>
>> Coba pada baris :
>> wSheet.Protect Password:=TextBox1.Text
>> Anda pencet tombol koma di keyboard lalu jawab pertanyaan yang muncul
>> dilayar (fokus pada yang di bold) dengan TRUE atau FALSE. Jika dikanannya
>> masih ada pertanyaan, tekan koma lagi supaya pindah kepertanyaan berikutnya.
>>
>> Yang dibiru dibawah itu adalah daftar pertanyaannya (lihat saja dilayar
>> Anda sendiri saat ketik koma.
>> Pada kasus Anda, tanda buka kurung dan tutup kurung diganti spasi karena
>> demikianlah cara memberi input pada input parameter ketika memanggil
>> methods.
>>
>> expression dikasus Anda adalah wsheet
>>
>> *expression.Protect(Password, DrawingObjects, Contents, Scenarios,
>> UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns,
>> AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows,
>> AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows,
>> AllowSorting, AllowFiltering, AllowUsingPivotTables)*
>>
>> *expression* A variable that represents a *Worksheet* object.
>>
>> *Parameters*
>> *Name* *Required/Optional* *Data Type* *Description* *Password*
>> Optional *Variant* A string that specifies a case-sensitive password for
>> the worksheet or workbook. If this argument is omitted, you can unprotect
>> the worksheet or workbook without using a password. Otherwise, you must
>> specify the password to unprotect the worksheet or workbook. If you forget
>> the password, you cannot unprotect the worksheet or workbook. *
>> DrawingObjects* Optional *Variant* *True* to protect shapes. The default
>> value is *True*. *Contents* Optional *Variant* *True* to protect
>> contents. For a chart, this protects the entire chart. For a worksheet,
>> this protects the locked cells. The default value is *True*. *Scenarios*
>> Optional *Variant* *True* to protect scenarios. This argument is valid
>> only for worksheets. The default value is *True*. *UserInterfaceOnly*
>> Optional *Variant* *True* to protect the user interface, but not macros.
>> If this argument is omitted, protection applies both to macros and to the
>> user interface. *AllowFormattingCells* Optional *Variant* *True* allows
>> the user to format any cell on a protected worksheet. The default value is
>> *False*. *AllowFormattingColumns* Optional *Variant* *True* allows the
>> user to format any column on a protected worksheet. The default value is
>> *False*. *AllowFormattingRows* Optional *Variant* *True* allows the user
>> to format any row on a protected. The default value is *False*. *
>> AllowInsertingColumns* Optional *Variant* *True* allows the user to
>> insert columns on the protected worksheet. The default value is *False*.
>> *AllowInsertingRows* Optional *Variant* *True* allows the user to insert
>> rows on the protected worksheet. The default value is *False*. *
>> AllowInsertingHyperlinks* Optional *Variant* *True* allows the user to
>> insert hyperlinks on the worksheet. The default value is *False*. *
>> AllowDeletingColumns* Optional *Variant* *True* allows the user to
>> delete columns on the protected worksheet, where every cell in the column
>> to be deleted is unlocked. The default value is *False*. *
>> AllowDeletingRows* Optional *Variant* *True* allows the user to delete
>> rows on the protected worksheet, where every cell in the row to be deleted
>> is unlocked. The default value is *False*. *AllowSorting* Optional *
>> Variant* *True* allows the user to sort on the protected worksheet.
>> Every cell in the sort range must be unlocked or unprotected. The default
>> value is *False*. *AllowFiltering* Optional *Variant* *True* allows the
>> user to set filters on the protected worksheet. Users can change filter
>> criteria but can not enable or disable an auto filter. Users can set
>> filters on an existing auto filter. The default value is *False*. *
>> AllowUsingPivotTables* Optional *Variant* *True* allows the user to use
>> pivot table reports on the protected worksheet. The default value is *
>> False*.
>>
>>
>> Wassalam,
>>
>> Kid.
>>
>>
>> On Fri, Oct 11, 2013 at 9:53 AM, KESI VIZZIANTI <kesi.vizzianti@gmail.com
>> > wrote:
>>
>>> **
>>>
>>>
>>> Selamat siang .
>>> mohon bantuan untuk macro berikut ini
>>> yang saya inginkan adalah:
>>> protect semua worksheet dengan allow user untuk
>>> format cell
>>> format coloums
>>> edit object
>>> dan edit scenario
>>> sedangkan untuk macro di bawah ini tidak bisa berjalan setelah di
>>> protect
>>>
>>> Private Sub CommandButton1_Click()
>>> Dim wSheet As Worksheet
>>>
>>> For Each wSheet In Worksheets
>>> On Error GoTo akhir
>>> If wSheet.ProtectContents = True Then
>>> wSheet.Unprotect Password:=TextBox1.Text
>>> teruskan:
>>> Else
>>> wSheet.Protect Password:=TextBox1.Text
>>> End If
>>> Next wSheet
>>> Exit Sub
>>> akhir:
>>> MsgBox wSheet.Name & " : passwordnya bukan : " & TextBox1, 48, "oops!"
>>> GoTo teruskan
>>> End Sub
>>> Salam
>>> Kesi
>>>
>>>
>>>
>>
>>
>
>
>
> --
> *Kesi Vizzianti*
> Email kesi.vizzianti@gmail.com
> Phone 0812-77176028
> Blog http://kesivizzianti.blogspot.com/
> Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>
>
>
>

--
*Kesi Vizzianti*
Email kesi.vizzianti@gmail.com
Phone 0812-77176028
Blog http://kesivizzianti.blogspot.com/
Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>

Mon Oct 14, 2013 6:44 pm (PDT) . Posted by:

"KESI VIZZIANTI"

bisa di bikin contohnya Mas? maklum new bie!! sudah saya utak atik error
terus!!

Terima kasih
Kesi

2013/10/11 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> Hasi Kesi,
>
> Coba pada baris :
> wSheet.Protect Password:=TextBox1.Text
> Anda pencet tombol koma di keyboard lalu jawab pertanyaan yang muncul
> dilayar (fokus pada yang di bold) dengan TRUE atau FALSE. Jika dikanannya
> masih ada pertanyaan, tekan koma lagi supaya pindah kepertanyaan berikutnya.
>
> Yang dibiru dibawah itu adalah daftar pertanyaannya (lihat saja dilayar
> Anda sendiri saat ketik koma.
> Pada kasus Anda, tanda buka kurung dan tutup kurung diganti spasi karena
> demikianlah cara memberi input pada input parameter ketika memanggil
> methods.
>
> expression dikasus Anda adalah wsheet
>
> *expression.Protect(Password, DrawingObjects, Contents, Scenarios,
> UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns,
> AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows,
> AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows,
> AllowSorting, AllowFiltering, AllowUsingPivotTables)*
>
> *expression* A variable that represents a *Worksheet* object.
>
> *Parameters*
> *Name* *Required/Optional* *Data Type* *Description* *Password* Optional
> *Variant* A string that specifies a case-sensitive password for the
> worksheet or workbook. If this argument is omitted, you can unprotect the
> worksheet or workbook without using a password. Otherwise, you must specify
> the password to unprotect the worksheet or workbook. If you forget the
> password, you cannot unprotect the worksheet or workbook. *DrawingObjects*
> Optional *Variant* *True* to protect shapes. The default value is *True*.
> *Contents* Optional *Variant* *True* to protect contents. For a chart,
> this protects the entire chart. For a worksheet, this protects the locked
> cells. The default value is *True*. *Scenarios* Optional *Variant* *True*to protect scenarios. This argument is valid only for worksheets. The
> default value is *True*. *UserInterfaceOnly* Optional *Variant* *True* to
> protect the user interface, but not macros. If this argument is omitted,
> protection applies both to macros and to the user interface. *
> AllowFormattingCells* Optional *Variant* *True* allows the user to format
> any cell on a protected worksheet. The default value is *False*. *
> AllowFormattingColumns* Optional *Variant* *True* allows the user to
> format any column on a protected worksheet. The default value is *False*.
> *AllowFormattingRows* Optional *Variant* *True* allows the user to format
> any row on a protected. The default value is *False*. *
> AllowInsertingColumns* Optional *Variant* *True* allows the user to
> insert columns on the protected worksheet. The default value is *False*. *
> AllowInsertingRows* Optional *Variant* *True* allows the user to insert
> rows on the protected worksheet. The default value is *False*. *
> AllowInsertingHyperlinks* Optional *Variant* *True* allows the user to
> insert hyperlinks on the worksheet. The default value is *False*. *
> AllowDeletingColumns* Optional *Variant* *True* allows the user to delete
> columns on the protected worksheet, where every cell in the column to be
> deleted is unlocked. The default value is *False*. *AllowDeletingRows*
> Optional *Variant* *True* allows the user to delete rows on the protected
> worksheet, where every cell in the row to be deleted is unlocked. The
> default value is *False*. *AllowSorting* Optional *Variant* *True* allows
> the user to sort on the protected worksheet. Every cell in the sort range
> must be unlocked or unprotected. The default value is *False*. *
> AllowFiltering* Optional *Variant* *True* allows the user to set filters
> on the protected worksheet. Users can change filter criteria but can not
> enable or disable an auto filter. Users can set filters on an existing auto
> filter. The default value is *False*. *AllowUsingPivotTables* Optional *
> Variant* *True* allows the user to use pivot table reports on the
> protected worksheet. The default value is *False*.
>
>
> Wassalam,
>
> Kid.
>
>
> On Fri, Oct 11, 2013 at 9:53 AM, KESI VIZZIANTI <kesi.vizzianti@gmail.com>wrote:
>
>> **
>>
>>
>> Selamat siang .
>> mohon bantuan untuk macro berikut ini
>> yang saya inginkan adalah:
>> protect semua worksheet dengan allow user untuk
>> format cell
>> format coloums
>> edit object
>> dan edit scenario
>> sedangkan untuk macro di bawah ini tidak bisa berjalan setelah di protect
>>
>> Private Sub CommandButton1_Click()
>> Dim wSheet As Worksheet
>>
>> For Each wSheet In Worksheets
>> On Error GoTo akhir
>> If wSheet.ProtectContents = True Then
>> wSheet.Unprotect Password:=TextBox1.Text
>> teruskan:
>> Else
>> wSheet.Protect Password:=TextBox1.Text
>> End If
>> Next wSheet
>> Exit Sub
>> akhir:
>> MsgBox wSheet.Name & " : passwordnya bukan : " & TextBox1, 48, "oops!"
>> GoTo teruskan
>> End Sub
>> Salam
>> Kesi
>>
>>
>>
>
>

--
*Kesi Vizzianti*
Email kesi.vizzianti@gmail.com
Phone 0812-77176028
Blog http://kesivizzianti.blogspot.com/
Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

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