Thanks Tom. It works!!!!!!!!


"Tom Ogilvy" wrote:

Use the
Activesheet.EnablePivotTable
Activesheet.Protect Password:="ABC", UserInterfaceOnly:=True
Activesheet.PivotTables(1).RefreshTable

This must be done each time the workbook is opened as the EnablePivotTable
and UserInterfaceOnly settings are not persistent across the closing of a
workbook (so use the workbook open event as an example. )

--
Regards,
Tom Ogilvy

"VJ" wrote in message
...
Hi

Is there any way I can automatically open and unprotect , refresh and
then
protect a Pivot table through VBA macro?

Pls help me out.

Thanks in advance.