Bloqueio de exclusão e inclusão de linhas no Excel
Para criar uma macro que bloqueie tanto a exclusão quanto a inclusão de linhas em uma planilha do Excel, você pode usar o evento Worksheet_Change e monitorar alterações na contagem de linhas da planilha. Aqui está um exemplo de como fazer isso:
Dim RowCount As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RowCount = Me.UsedRange.Rows.Count
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Dim currentRowCount As Long
currentRowCount = Me.UsedRange.Rows.Count
If currentRowCount <> RowCount Then
Application.Undo
MsgBox "A inclusão ou exclusão de linhas não é permitida nesta planilha.", vbExclamation
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Explicação do Código
Salvar o Arquivo
Certifique-se de salvar seu arquivo como um "Macro-Enabled Workbook" (.xlsm) para garantir que as macros sejam preservadas.
Testar o Código
Teste o código inserindo ou excluindo linhas na planilha para garantir que a funcionalidade esteja funcionando conforme esperado. O código deve impedir a inclusão e exclusão de linhas e exibir uma mensagem de aviso apropriada.