Como desativar a capacidade de inserir linha e coluna no Excel?
Normalmente, podemos inserir linhas e colunas entre os dados existentes de forma rápida e fácil. Se você deseja evitar que outras pessoas insiram colunas ou linhas em uma planilha, talvez possa proteger a planilha para desativar a função de inserção de linhas ou colunas. Mas como desativar a função de inserção de linhas e colunas sem proteger a planilha?
Impedir que outros insiram linhas e colunas com código VBA
Impedir que outros insiram linhas e colunas com código VBA
O seguinte código VBA pode ajudá-lo a desativar a função de inserção de linhas e colunas na pasta de trabalho do Excel; por favor, siga estas instruções:
1. Pressione Alt + F11 para abrir uma janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para abrir uma janela Módulo, depois copie o seguinte código VBA para a janela.
Código VBA: impedir a inserção de 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. Pressione a tecla F5 para executar este código. Agora, ao clicar com o botão direito para tentar inserir linhas ou colunas, a opção Inserir não estará disponível no menu de contexto. Veja a captura de tela:
Observações:
1. Este código VBA desativará a função Inserir no menu de contexto em todas as pastas de trabalho quando você clicar com o botão direito para inserir linhas ou colunas.
2. Para restaurar 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
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins