Boa tarde!!

Não testado!!

Sub AleVBA_15873()
    ActiveSheet.Protect Password:="SuaSenha", DrawingObjects:=False, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoRestrictions
'ou...........
ActiveSheet.Protect Password, UserInterfaceOnly:=True, AllowFiltering:=True, DrawingObjects:=False, AllowFormattingCells:=True, Contents:=True
End Sub

Att

Bom dia Alexandre,

Infelizmente não deu certo... Os botões ficam liberados.

Bom dia!!

Grave uma Macro!

Att