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
Dim pf As PivotField
With ActiveSheet.
.EnableWizard = True
.EnableDrilldown = True
.EnableFieldList = True
.EnableFieldDialog = True
.PivotCache.
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
__._,_.___
+-:: 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 |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário