Logo Hardware.com.br
Doors
Doors Super Participante Registrado
612 Mensagens 0 Curtidas

Renomear Planilha

#1 Por Doors 23/03/2010 - 13:56
E ae galera, tudo bem?

Eu preciso de uma ajuda, estou criando uma planilha no excel com várias planilhas dentro, gostaria de saber se é possível eu bloquear para que não possam renomear as planilhas. Por exemplo, o usuário pode digitar as informações dentro da Plan1 porem não pode renomear a Plan1 para um outro nome. Alguem sabe me dizer se isto é possível?

abraços
rrogerioo
rrogerioo Membro Senior Registrado
247 Mensagens 46 Curtidas
#2 Por rrogerioo
23/03/2010 - 16:37
Doors disse:
E ae galera, tudo bem?

Eu preciso de uma ajuda, estou criando uma planilha no excel com várias planilhas dentro, gostaria de saber se é possível eu bloquear para que não possam renomear as planilhas. Por exemplo, o usuário pode digitar as informações dentro da Plan1 porem não pode renomear a Plan1 para um outro nome. Alguem sabe me dizer se isto é possível?

abraços


Blz Doors

Eu achei esta macro na net.
Ela funciona se o usuário clicar com o botão direito do mouse,
mas tem uma falha, se der dois clicks na aba ela altera!
Eu não manjo de macro, vamos esperar que alguem se pronuncie quanto
ao duplo click!

Abraço

Anexos

"Ficar rico não é um objetivo de vida, mas um meio de viver bem" - Henry Ward Beecher
Peskz
Peskz Super Participante Registrado
482 Mensagens 15 Curtidas
#4 Por Peskz
24/03/2010 - 08:40
rrogerioo disse:
Blz Doors

Eu achei esta macro na net.
Ela funciona se o usuário clicar com o botão direito do mouse,
mas tem uma falha, se der dois clicks na aba ela altera!
Eu não manjo de macro, vamos esperar que alguem se pronuncie quanto
ao duplo click!

Abraço


Esta macro pode ser interessante mas é preciso de mais elaboração, pois ao executá-la ela irá desabilitar o "rename" do excel como um todo e não do arquivo especifico...

Para quem executou a macro segue o código para retornar ao normal:


Sub NoRename()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=889)
Ctrl.Enabled = True
Next Ctrl
ActiveWorkbook.Protect "", Structure:=True, Windows:=False
ActiveWorkbook.Unprotect
End Sub
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal