Como desativar a capacidade de inserir linhas e colunas no Excel?
Normalmente, podemos inserir linhas e colunas entre os dados existentes de forma rápida e fácil, se você evitar que outras pessoas insiram colunas ou linhas em uma planilha, pode ser que você possa proteger a planilha para desativar a função de inserir linhas ou colunas. Mas, como você poderia desativar a função de inserção de linha e coluna sem proteger a planilha?
Impedir que outras pessoas insiram linhas e colunas com código VBA
Impedir que outras pessoas insiram linhas e colunas com código VBA
O seguinte código VBA pode ajudá-lo a desabilitar a função de inserção de linha e coluna na pasta de trabalho do Excel, faça o seguinte:
1. pressione Alt + F11 para abrir um Microsoft Visual Basic para aplicativos janela.
2. Clique inserção > Módulo para abrir uma janela de módulo, copie o seguinte VBA para a janela.
Código VBA: evita 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 F5 chave para executar este código, agora quando você clica com o botão direito para inserir linhas ou colunas, o inserção opção não pode ser aplicada no menu de contexto. Veja a imagem:
Observações:
1. Este 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 de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!