Não permitir excluir Guias (Folhas)!!!

Pet79SP · 30 de agosto de 2012

Bom dia Féras, tranquilidade???

Me ajudem no seguinte, trabalho com uma planilha onde as guias (Folhas) representam cada dia do mes. Essas guias tem uma macro que limita os dados que imputam diariamente.

(By Jef Silveira)

Como todo brasileiro sempre arruma um jeito de burlar, já arrumaram um...

Primeiro as macros não estavam habilitada, alterei isso colocando o caminho da planilha como local seguro. Agora os "Infelizes" estão excluindo a guia dos meses que eles querem estourar o limite. Assim ela perde a macro e o cara formata para deixar iguais as que ja deixo criada.

Se tiver como não permitir excluir a guia (Folha) bem como inserir... Ficarei grato...

Desde já, obrigado pessoal...

Abraços...

Pet

31 de agosto de 2012

Instale os códigos abaixo no módulo de 'EstaPasta_de_trabalho, salve e feche o arquivo. Reabra para testar. Impede a exclusão e a inclusão de planilha. Ao tentar excluir ou incluir planilha o arquivo é fechado sem salvar.

Public k As Long

Private Sub Workbook_Open()
 k = Sheets.Count
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 If Sheets.Count <> k Then
  MsgBox "aí, mané..." & vbLf & "tentando me sacanear..."
  Me.Close SaveChanges:=False
 End If
End Sub

É recomendável proteger com senha o projeto VBA. No menu do editor:

Ferramentas >> Propriedades de VBAProject >> Proteção

Pet79SP · 6 de setembro de 2012

Bom dia Osvaldo,

Obrigado pela resposta e perdoe pela demora...

Eu tentei aqui, mas devo ter feito algo errado, pois não funcionou...

O meu Excel é 2010 e o que fiz foi criar um módulo...

Se puder passar algum email para eu enviar a planilha, pois aqui todos os sites são bloqueados, eu consegui uma liberação para esse clube e somente...

Obrigado!!!