Lock Sheet (With specific settings..)

Hello there

So, i have the following Macro for updating the Data on my Locked PivotTable sheet

Sub Atualizar_Dados_Resumo_PessTD()
Worksheets("Resumo Pessoal (TD)").Unprotect "password"
ActiveSheet.Calculate
Worksheets("Resumo Pessoal (TD)").Protect "password"
End Sub

The problem with this is that when you press the button embedded with this Macro, it locks the page in with default settings, and i would like to be able to lock it with a Macro that also allows the following settings : "Use AutoFilter"; "Use PivotTable & PivotChart"

Why this ? The user of this Excel documents is supposed to be able to manipulate the PivotTable however he see's fit, but not change or delete any other data in the sheet. So what should i insert in the code for allowing those settings and at the same time protect the sheet with my chosen password ?