Como evitar a exclusão de linhas ou colunas em uma pasta de trabalho desprotegida compartilhada?
Quando você compartilha uma pasta de trabalho com outras pessoas, como pode impedir que outras pessoas excluam as colunas ou linhas de sua pasta de trabalho compartilhada sem protegê-la? Aqui, encontro um código VBA que pode impedir que outras pessoas excluam as colunas e linhas de uma pasta de trabalho compartilhada.
Impedir a exclusão de linhas ou colunas em uma pasta de trabalho compartilhada com o VBA
Impedir a exclusão de linhas ou colunas em uma pasta de trabalho compartilhada com o VBA
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.
VBA: impede a exclusão de linhas ou colunas.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub
3. Clique Execute botão ou F5 tecla no teclado para executar este código.
Então, quando outras pessoas clicarem com o botão direito para excluir as colunas ou linhas selecionadas, a opção Excluir não poderá ser aplicada no menu de contexto. Veja a imagem:
Além disso, evita que os usuários usem as teclas de atalho Ctrl + - para excluir linhas ou colunas.
Observação:
(1) Se você compartilhou sua pasta de trabalho com Avaliações > Compartilhar pasta de trabalho, você não pode mais adicionar macros VBA. Portanto, é melhor você adicionar o VBA antes de compartilhar a pasta de trabalho.
(2) Este VBA desativará o Apagar no menu de contexto em todas as pastas de trabalho ao clicar com o botão direito do mouse nas colunas ou linhas selecionadas.
(3) Para restaurar o Apagar no menu de contexto, substitua ambos Falso de Verdadeiro no VBA acima e execute o VBA novamente.
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!