Re: ]] XL-mania [[ protection pivot

 

Dear Alwi Abdurrahman,

Jika targetnya akan memprotect pivot tanpa boleh ada yang diubah sedikit pun,
activesheet.protect

Jika hanya ingin tidak bisa di-refresh tapi boleh diubah susunan fields-nya,
activesheet.protect allowusingpivottables:=true

atau

ActiveSheet.PivotTables("achieve").PivotCache.EnableRefresh = false


Jika tetap akan menggunakan prosedur AllowPivotTable yang telah dibuat, error dapat dihilangkan dengan meniadakan seluruh for each next (di xl2007, bagian for each next gak ada efeknya karena sudah di set true seluruhnya dibagian sebelumnya)

Regards.
Kid.

2010/4/24 alwi abdurrahman <alwi.abdurrahman@yahoo.com>

 

Dear para pakar Excel,

Saya mempunyai PivotTable, yang saya protect Refreshnya.

Sehingga Pivot ini tidak akan diotak atik oleh user yang lain.

Saya mencoba untuk meng-active-kan kembali dengan macro(terlampir), tapi hasilnya ketika macro tsb dijalankan, muncul warning sbb :

Run-time Error '438': Object does'nt support this property or methode.

Mohon petunjuknya ,bagaimana cara memperbaikinya.

 

Demikian permohonan dari saya, semoga mendapatkan pencerahan, Thanks.

 

Sub AllowPivotTable()
Dim pf As PivotField
With ActiveSheet.PivotTables("achieve")
  .EnableWizard = True
  .EnableDrilldown = True
  .EnableFieldList = True
  .EnableFieldDialog = True
  .PivotCache.EnableRefresh = True
For Each pf In .PivotFields
  With pf
     .DragToPage = True
     .DragToRow = True
     .DragToColumn = True
     .GragToData = True
     .DragToHide = True
  End With
   Next pf
End With
End Sub

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 99

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Horeeee... tembus 14,000 members...                               |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___