Amigos Boa tarde

Tenho a Macro abaixo, porem devido a proteger toda minha planilha não consigo manipular uma tabela dinamica que faz conexão com meu banco de dados MySql.

Alguem poderia me ajudar de forma que ao abrir a planilha ela pudesse conectar o banco e atualizar a tabela e ao mesmo tempo protegesse a planilha?

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim barras
On Error Resume Next
Senha = "123456"
For Each barras In Application.CommandBars
barras.Enabled = False
Next
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
MsgBox " Seja bem vindo(a)"
Application.DisplayFullScreen = True
ActiveSheet.DisplayPageBreaks = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.MoveAfterReturnDirection = xlDown
Range("c3").Select
ScrollArea = "$A$100:$az$500"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Obrigado por usar, volte sempre"
RpTela
Application.DisplayAlerts = False
Application.Quit
End Sub
Sub RpTela()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Range("c3").Select
End Sub

abraços