Refresh table on protected worksheets

[Livin404]

Greetings,
I thought I had this under wraps, but something still eludes me. I have a database worksheet "Activity", then I have my worksheet contains the Pivot Table "Auto-Non Auto". I'm use a VBA form, and I have a command botton to launch the maco. I thought I got this right, nothing seems to happen. Offcourse I protected the worksheet "Auto-Non Auto". Any help would greatly be appreciated.

Thank you,

The maco is :

Private Sub CmdRefresh_Click()
On Error Resume Next

With ActiveSheet
  .Unprotect Password:="mozzer"
  .PivotTable(1).RefreshTable
  .Protect Password:="mozzer", _
        AllowUsingPivotTables:=True
End With
    
End Sub

 

[Livin404]

Greetings,
I thought I had this under wraps, but something still eludes me. I have a database worksheet "Activity", then I have my worksheet contains the Pivot Table "Auto-Non Auto". I'm use a VBA form, and I have a command botton to launch the maco. I thought I got this right, nothing seems to happen. Offcourse I protected the worksheet "Auto-Non Auto". Any help would greatly be appreciated.

Thank you,

The maco is :

Private Sub CmdRefresh_Click()
On Error Resume Next

With ActiveSheet
  .Unprotect Password:="mozzer"
  .PivotTable(1).RefreshTable
  .Protect Password:="mozzer", _
        AllowUsingPivotTables:=True
End With
   
End Sub

Hey good news, I think this works. I don't see a potential problem.

Private Sub CmdRefresh_click()
Dim xpt As PivotTable
    With ActiveSheet
        .Unprotect Password:="mozzer"
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    .Protect Password:="mozzer", _
        AllowUsingPivotTables:=True
    End With
End Sub