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.