Boa tarde,

Você pode proteger a pasta de trabalho:

Menu Revisão / Proteger Pasta de Trabalho

Abraço

JValq, eu pedi ajuda para fazer via VBA justamente pq não posso proteger a pasta de trabalho, foi a primeira coisa que falei.

Apague os dados de suas planilhas e mande o arquivos para que possamos te ajudar...

pode tbm proteger a pasta de trabalho e colocar uma linha de codigo nas macros para des proteger antes de atuar, e para proteger quando terminar

Desculpe... Acho que passei batido pelo trecho que você disse que não consegue proteger a pasta de trabalho.
Acho que uma opção seria cada macro, ao ser executada, desproteger e proteger a pasta de trabalho:

Sub Macro()
    ActiveWorkbook.Unprotect "SENHA"
    '
    'Código original da macro
    '
    ActiveWorkbook.Protect "SENHA"
End Sub

É só substituir "SENHA" pela senha que você vai utilizar.

Abraço

abra o vba e vá em ( esta pasta de trabalho )
coloque o código abaixo:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
If ActiveWorkbook.Worksheets.Count = 5 Then 'conte quantas planilhas vc tem e coloque a quantidade mais 1
                                                                      'se vc tem 10 planilhas coloque 11 no lugar do 5
MsgBox "Não foi possivel adicionar uma planilha, fale com o administrador!"
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
End Sub

Esse código impede de adicionar planilhas.

abra o vba e vá em ( esta pasta de trabalho )
coloque o código abaixo:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
If ActiveWorkbook.Worksheets.Count = 5 Then 'conte quantas planilhas vc tem e coloque a quantidade mais 1
                                                                      'se vc tem 10 planilhas coloque 11 no lugar do 5
MsgBox "Não foi possivel adicionar uma planilha, fale com o administrador!"
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
End Sub

Esse código impede de adicionar planilhas.

Muito boa essa ja vai para meus arquivos.

Boa tarde pessoal,

Pesquisando em sites gringos, encontrei uma macro que de certa forma impedi o usuário de renomear as planilhas:

Public flg As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
flg = Sh.Name
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> flg Then
Sh.Name = flg
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> flg Then
Sh.Name = flg
End If
End Sub

Está juntamente com a macro que o messiasmbm passou ficaram perfeitas.

Obrigado pela ajuda de todos