Preciso bloquear uma celular no excel para que ela não possa ser arastada

Question

Preciso bloquear uma celular no excel para que ela não possa ser arastada, mas nas seguintes condições: Eu protejo a planilha e deixo essa celula como desprotegida, e as demais ficarão protegidas, ai essa celular que está desprotegida e aceita edição não pode ser recortada ou arastada,. Como fazer essa proteção? Resumindo, não quero que a celula possa ser arastada, porem ela precisa estar desbloqueada para edição e tudo isso com a planilha protegida

Answer 1

Bem-vindo à Comunidade Microsoft 365 e Office

Tudo bem, Fábio? Para proteger sua planilha e bloquear a movimentação (recorte ou arrastar) de uma célula enquanto ela continua editável, o Excel não oferece uma opção nativa para isso. No entanto, é possível alcançar esse resultado utilizando macros (VBA), que permitem bloquear ações como recortar ou arrastar células que foram deixadas desbloqueadas para edição.

Assim, você pode manter a célula livre para edição, mas impedir que ela seja movida ou recortada, garantindo que a estrutura da planilha permaneça intacta. Segue o passo à passo:

1. Desbloquear a célula para edição:
   • Selecione a célula desejada.
   • Clique com o botão direito, escolha Formatar Células.
   • Na aba Proteção, desmarque Bloqueada e clique em OK.
2. Proteger a planilha:
   • No menu Revisão, clique em Proteger Planilha.
   • Deixe a célula desbloqueada para edição, enquanto protege as demais.
   • Insira uma senha, se necessário.
3. Impedir recorte ou movimentação (com VBA):
   • Pressione Alt + F11 para abrir o Editor VBA.
   • Dê um duplo clique em EstaPasta_de_Trabalho.
   • Cole o seguinte código no editor:

     	Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) <br> Dim Cell As Range <br> Set Cell = Sh.Range("A1") ' Substitua "A1" pela célula que deseja proteger <br> If Not Intersect(Target, Cell) Is Nothing Then <br> Application.Undo <br> MsgBox "Você não pode mover ou recortar esta célula.", vbExclamation <br> End If <br>End Sub

   • Substitua "A1" pela célula que deseja bloquear contra arrastar/recortar e Salve o arquivo como .xlsm.