Manipuler un bouton de feuille de calcul en OOoBas

Bonjour,
Bouton nommé bouton1 posé directement sur la feuille de calcul active et désactive la protection de la feuille de calcul.
Je souhaite ajouter dans la macro le code permettant de modifier le titre du bouton (Protection active / Protection inactive) et sa couleur.
Voici la macro dans laquelle manque les changements sur le bouton
sub boutonprotection
rem déclarations
dim monDocument as object
dim maFeuille as object
dim mesFeuilles as object
dim dispatcher as object
dim MonBouton as object

rem affectations
monDocument = ThisComponent
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
maFeuille = ThisComponent.sheets.getByName("DatasMensuelles")

rem protection conditionnelle
if maFeuille.isprotected then
maFeuille.unprotect("")
else
maFeuille.protect("")
end if
end sub

Merci de vos conseils