Boa noite ao baixar o arquivo para fazer o projeto percebi que o painel 01 e 03 estava com os gráficos travados
eu acrescentei no fim de cada código
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
como está no painel 02 para manter todos iguais