![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Microsoft 365 e Office | Excel | Para uso doméstico | Windows
Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Minha contribuição.
Siga este exemplo.
Você quer permitir a digitação de dados, neste exemplo, no intervalo G2:G8.
Mas que impedir a alteração da formatação.
Ok, vamos lá.
Selecione o intervalo G2:G6
Ative a guia Página Inicial
Clique no Iniciador da caixa de diálogo Formatar células
A caixa de diálogo Formatar células será exibida
Ative a guia Proteção.
Desmarque a opção Bloqueadas
Confirme, clicando no botão OK.
Na guia Revisão, clique em Proteger Planilha.
Mantenha ativada as opções abaixo e clique no botão OK.
Você poderá alterar o valor das células no intervalo de exemplo: G2:G6
As células neste intervalo poderão ser alteradas. Mas apenas o valor
A formatação não poderá ser feita.
Ative a guia Página Inicial.
As opções de formatação estão desativadas ( Negrito, Sublinhado, etc....)
Mas e o danado do Copiar e Colar ?!
Aí é que o **** pega.
Vamos precisar da VBA.
Na guia Desenvolvedor, abra o Editor do Visual Basic.
Na janela Projeto, clique com o botão direito em Planilha1.
No menu, escolha Exibir código
Na janela Objeto, selecione Worksheet
Worksheet representa a planilha no Visual Basic For Applications
Será criada a rotina relativa ao evento SelectionChange
Ignore-a.
Na janela Procedimento, selecione o evento Change
Digite o código abaixo.
Quando você copiar uma célula formatada no intervalo G2:G6, o evento Change ocorrerá.
A formatação definida em Planilha1 será aplicada, novamente.
Faça o teste com este exemplo para você visualizar como funciona.
Em seguida, adapte o código às suas necessidades.
Range("G2:G6") representa o intervalo de células na planilha
Interior representa a cor do preenchimento das células
Font.Color representa a cor da fonte
Font.Name o tipo da fonte ( Arial, Verdana, etc )
Font.Size representa o tamanho da fonte
HorizontalAlignment define o alinhamento horizontal do conteúdo das células
VerticalAlignment define o alinhamento vertical
Faça o teste com utilizando o intervalo G2:G6 e com este código.
Em seguida, adapte-o às suas necessidades.