pivot table automatically refresh

I went out to this board with the question and they came up with

Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="koss", userinterfaceonly:=True
Me.PivotTables("Draaitabel1").RefreshTable
End Sub