Para desproteger uma planilha via VBA basta usar o comando:

  ActiveSheet.Unprotect

Caso queira desproteger todas as planilhas basta usar o seguinte código:

Sub Desprotege()
  ActiveSheet.Unprotect
  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.Unprotect
  ActiveSheet.Next.Select
  ActiveSheet.Unprotect
  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.