Comments on: Refreshing a Pivot Table on a Protected Sheet

By: Riaz

Riaz — Tue, 20 Sep 2011 10:50:22 +0000

Hi,

I’m using the below mentioned macro to refresh all the pivot tables in a worksheet. The macro is running successfully in unprotected sheet, but I need to run it in protected sheet by using a shortcut key. Please suggest

Sub AllWorksheetPivots()

Dim pt As PivotTable

For Each pt In ActiveSheet.PivotTables

pt.RefreshTable

Next pt

End Sub

By: Saswati

Saswati — Thu, 09 Jun 2011 14:25:23 +0000

@Deb
Still giving the same error at the same place, here is the whole code

Sub RefreashCSQF()
‘
‘ RefreashCSQF Macro
‘ refreash Qualified Change Sheet pivot table
‘

‘
Application.Goto Reference:=”hyperlink”
Range(“B1″).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Goto Reference:=”Date”
Selection.Copy
Windows(“SAM.xls”).Activate
Application.Goto Reference:=”Date”
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Goto Reference:=”CSQF”
Application.CutCopyMode = False
ActiveSheet.PivotTables(1).RefreshTable
Range(“A1″).Select
Windows(“Account Summary.XLS”).Activate
ActiveWorkbook.Close
End Sub

By: Debra Dalgleish

Debra Dalgleish — Thu, 02 Jun 2011 15:10:53 +0000

@Saswati, was the code in the same file, for the same worksheet? It should work fine in Excel 2007 too, but try using the index number, instead of the pivot table name, in the code.

By: Saswati

Saswati — Thu, 02 Jun 2011 12:18:16 +0000

@Debra, but it worked fine on Excel 2003

By: Debra Dalgleish

Debra Dalgleish — Wed, 01 Jun 2011 19:48:33 +0000

@Saswati, your pivot table probably has a name other than “PivotTable5″

If there is only one pivot table on the sheet, change the code to use the index number, instead of the name:
ActiveSheet.PivotTables(1).RefreshTable

By: Saswati

Saswati — Wed, 01 Jun 2011 18:42:20 +0000

I am using a macro to refresh a Pivot Table and I am getting an error. It stops running at this point
” ActiveSheet.PivotTables(“PivotTable5″).RefreshTable”

I am working with Excel 2010

By: Giel Verbeeck

Giel Verbeeck — Sun, 10 Oct 2010 03:43:11 +0000

Thx. The option I was looking for to have pivot table and data entry in the same sheet. That is not possible so perhaps I should use ‘view’ “new window” to allow for data entry and evaluation of results at the same time. giel

By: Debra Dalgleish

Debra Dalgleish — Sun, 10 Oct 2010 01:45:40 +0000

Giel, you could leave the pivot table sheet unprotected, so it can be refreshed. Protect the data entry sheet, leaving the cells unlocked where the users can make changes.

By: Giel Verbeeck

Giel Verbeeck — Wed, 06 Oct 2010 10:18:59 +0000

Typically one wants to enable clients to enter data in specific areas and then be able to evaluate the results, through refresh. Is there absolutely no way around this without using VBA?