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 <[email protected]>
>
>
> 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
>
>
>
