Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Bloquear a exclusão...
 
Notifications
Clear all

Bloquear a exclusão de linhas e colunas

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
5 Posts
4 Usuários
0 Reactions
1,110 Visualizações
RSS
 igorlaur
(@igorlaur)
Posts: 1
New Member
Topic starter
 

Olá galera, tudo bem? Tenho uma funcionária que aparentemente está excluindo colunas da minha planilha do excel e gostaria de saber como bloquear a opção de exclusão através do VBA?
Eu botei o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("S1001").Value2 = "X" Then Exit Sub
MsgBox "Não é permitido excluir linhas no intervalo A1:R1000"
Application.Undo
Application.ScreenUpdating = True
End Sub

Mas infelizmente o código ainda assim não deixa inserir dados na tabela pois aparece a MsgBox "Não é permitido excluir linhas no intervalo A1:R1000".
Alguém sabe como resolver? Obrigado

 
Postado : 05/01/2018 9:52 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Selecione todas as colunas que deseja editar >>> clique com o botão direito em qualquer célula de uma dessas colunas.

siga até "Formatar Células" > Vá até a aba "Proteção" e desmarque "Bloqueadas".

Após isso execute esse código:

Sub protege_planilha(  )
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True   , AllowDeletingColumns:=False, _ 
AllowDeletingRows:=True
End sub

Espero que isso ajude... Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 05/01/2018 10:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

igorlaur

Movi teu tópico para a sala correta que é VBA & Macros, pois onde você havia postado é exclusivo para sugestões, criticas e elogios sobre o fórum.

Como você é novato, Para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/01/2018 2:12 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

https://social.msdn.microsoft.com/Forums/pt-BR/54d74330-1daa-4828-baa1-4af6ecc90ccb/bloquear-a-excluso-de-linhas-e-colunas?forum=vbapt

 
Postado : 06/01/2018 4:28 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Se quiser também impedir a exclusão de linha:

Sub protege_planilha(  )
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True   , AllowDeletingColumns:=False, _ 
AllowDeletingRows:=False
End sub
 
Postado : 06/01/2018 4:39 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico