Para proteger uma planilha via VBA basta usar o comando:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Caso queira proteger todas as planilhas basta usar o seguinte código:
Sub
Protege()
Call listaplanilhas Range("A1").Select Selection.End(xlDown).Select Linha = ActiveCell.Row primeirasheet = Range("A1").Value Sheets(primeirasheet).Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Do While ActiveSheet.Name <> Sheets(primeirasheet).Range("A" & Linha).Value ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.Next.Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Loop Sheets(primeirasheet).Select
End Sub
A macro listaplanilhas você encontra aqui.
Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com