Este fórum está sendo desativado

[AlanBC]

ola pessoal...
preciso da ajuda de vcs pra ajustar os codigos vba e complementar minha planilha
nela tenho 3 macros "inserir linhas", "excluir linhas" e "limpar planilha" que precisam de ajustes e estou tendo dificuldade para concluir...
anexei a planilha e fiz as observações dos ajustes da forma que preciso no próprio corpo da planilha
muito obrigado

[osvaldomp]

Experimente:

Código: Selecionar todos

Option Explicit
Public LinhaTotal As Long
Sub Inserir()
 ActiveSheet.Protect Password:="123", UserInterFaceOnly:=True
 LinhaTotal = Range("A" & Rows.Count).End(xlUp).Row
 Rows(LinhaTotal - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Sub LimparPlanilha()
 If MsgBox("DESEJA LIMPAR OS DADOS DA TABELA?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
 LinhaTotal = Range("A" & Rows.Count).End(xlUp).Row
 Range("A5:L" & LinhaTotal - 2).ClearContents
End Sub
Sub ExcluirLinha()
 ActiveSheet.Protect Password:="123", UserInterFaceOnly:=True
 LinhaTotal = Range("A" & Rows.Count).End(xlUp).Row
  If Application.CountA(Cells(LinhaTotal - 2, 1).Resize(, 12)) > 0 Then
   If MsgBox("A LINHA " & LinhaTotal - 2 & " CONTÉM DADOS" & vbLf & "DESEJA EXCLUIR?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
  End If
  Rows(LinhaTotal - 2).Delete
End Sub

obs.
1. embora esses códigos funcionem no módulo da planilha, onde você os colocou, é recomendável que eles sejam instalados em módulos comuns (no editor de VBA menu Inserir / Módulo) deixando assim o módulo da planilha para receber somente os códigos referentes a eventos de planilha; se mudar, altere o vínculo dos botões
2. coloquei a senha "123", altere se quiser, lembrando que a senha será de livre acesso se o projeto VBA não for protegido (Ferramentas / Propriedades / Proteção)

[AlanBC]

osvaldo...
muito obrigado.
era isso mesmo que queria. e tudo funcionando perfeitamente.
vlw msm amigo.
abraço

[AlanBC]

ola.. boa noite
osvaldomp
nesta msm planilha, gostaria de um codigo, ao inves de simplesmente "inserir linha", que permitisse inserir os dados como um formulario mesmo com a tabela protegida, semelhante a opcao "formulario" no excel, mas com a opcao de clicar "SIM" ou "NAO" para incluir ou nao a linha com os novos dados;
a opcao "formulario" do excel nao permite usar com a planilha protegida.
muito obrigado
abraços.