Ir para o conteúdo principal

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


seta azul bolha direita 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:

doc-desativar-excluir-linha-coluna-1

Além disso, evita que os usuários usem as teclas de atalho Ctrl + - para excluir linhas ou colunas.

Nota:

(1) Se você compartilhou sua pasta de trabalho com Análise > 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 com Verdadeiro no VBA acima e execute o VBA novamente.

Melhores ferramentas de produtividade de escritório

Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

guia kte 201905


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Está genial el código! Gracias! Pero esto no bloquea el poder eliminar la fila haciendo CTRL- .....
Sabrías cómo poder bloquearlo también?

Gracias!
This comment was minimized by the moderator on the site
Hi, I have updated the code in the article, you can try again, now it prevent the shortcuts and the delete command.
This comment was minimized by the moderator on the site
Bonjour

Je n'arrive plus à supprimer le fait de supprimer des lignes maintenant que j'ai créer ce code VBA.
Comment se traduit "les Vetitables" en français j'ai essayé "true" mais ça ne fonctionne pas

Merci de votre réponse
This comment was minimized by the moderator on the site
Sorry, Sand, I do not understand French.
This comment was minimized by the moderator on the site
Nice piece of code, but it doesn't prevent the user from using {ctrl} - to delete rows...
This comment was minimized by the moderator on the site
Vba code to disable delete, cut and insert option in Excel hoe ribbon
This comment was minimized by the moderator on the site
Can you Please share the vba code to disable Cut,Insert and Delete option in Home ribbon??? However i know thw vba code to disable it through right click and keyboard. But here i need code to disable cut, insert and delet option in excel home ribbon.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations