Notifications
Clear all

Senha Proteger Nome da Planilha

6 Posts
3 Usuários
0 Reactions
1,244 Visualizações
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Fiz algumas macros para deslocar de uma planilha para outra, porém se for alterado o nome da planilha não irá mais funcionar.

Deve existir uma maneira de bloquear (evitando) a alteração do nome da planilha.

 
Postado : 14/02/2017 4:02 am
(@mprudencio)
Posts: 2749
Famed Member
 

Se tem a macro para navegar entre as guias.

Oculte o nome das guias.

Agora se isso esta acontecendo verifique o usuario que esta realizando a alteração no nome e de um bom puxao de orelha.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 14/02/2017 5:39 am
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Amigo MPrudencio

Vou ocultar as planilhas, na verdade já tinha pensado nisto.

Mas gostei do puxão de orelha (kkk)

Pensei que teria uma maneira de bloquear isto.

Obrigado

 
Postado : 14/02/2017 5:41 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Neri,

Veja o código que coloquei na 'Planilha 1', toda vez que você alterar o nome da planilha o código vai fazer com que o nome anterior seja colocado de volta.

Teste e veja se atende.

att,

 
Postado : 14/02/2017 11:44 am
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Amigo
é isto mesmo que procuro, mas está dando um erro ao abrir:

Erro de Tempo de Execução 91 - coloquei em anexo.

obrigado

 
Postado : 14/02/2017 4:28 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite,

Vou colocar o código aqui. Abra um novo arquivo, chame a planilha de 'Exemplo' e depois cole o seguinte código no editor:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'Coloque o nome da sua planilha no lugar da palavra Exemplo
    If ActiveSheet.Name <> "Exemplo" Then
        ActiveSheet.Name = "Exemplo"
    End If
    
End Sub

Para testar vá na planilha e altere o nome.

att,

 
Postado : 14/02/2017 7:42 pm