Como desativar a possibilidade de inserir linhas e colunas no Excel?
Normalmente, podemos inserir linhas e colunas entre dados existentes de forma rápida e fácil. Se pretender impedir que outras pessoas insiram colunas ou linhas numa folha de cálculo, pode proteger a folha para desativar essa funcionalidade. Mas como desativar a inserção de linhas e colunas sem proteger a folha?
Impedir que outras pessoas Inserir linhas e colunas com código VBA
Impedir que outras pessoas Inserir linhas e colunas com código VBA
O seguinte código VBA permite desativar a função de inserir linhas e colunas na Pasta de Trabalho do Excel. Siga os passos abaixo:
1. Prima Alt + F11 para abrir uma janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para abrir uma janela de módulo e, em seguida, copie o seguinte código VBA para essa janela.
Código VBA: impedir Inserir linhas e colunas:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar este código. Agora, ao clicar com o botão direito do rato para inserir linhas ou colunas, a opção Inserir já não estará disponível no menu de contexto. Veja a imagem:
Notas:
1. Este código VBA desativa a opção «Inserir» no menu de contexto de todos os livros ao clicar com o botão direito do rato para inserir linhas ou colunas.
2. Para repor o comando Inserir no menu de contexto, aplique o seguinte código:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos