Como utiliza formas no lugar de controle "Botão", eu sugiro adicionar na rotina "NOVO" a lançar em uma Celula qualquer um numero ou letra indicando que é novo, e nos demais uma condição que verifica e continua conforme a condição, não deverá ser difícil para você uma vez que você já tem nas outras rotinas condição igual.
Agora se quiser, tambem poderá ocultar os Botões utilizando :
ActiveSheet.Shapes("Retângulo de cantos arredondados 2").Visible = False e True para reexibir, mas teria de construir para cada botão.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/12/2015 1:16 pm