Notifications
Clear all

protect e unprotect

21 Posts
1 Usuários
0 Reactions
3,118 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal bom dia,

Tenho uma planilha que somente eu e outra pessoa preenchemos os dados e para a empresa inteira ela fica disponível, gostaria de protegê-la de edição.

Que ao acessar a plan as pessoas somente visualizem, e que eu e a outra pessoa ao digitar uma letra por ex.: CTRL+M ela ficasse desprotegida e fosse possível editá-la.
Sei que existe o comando protect e unprotect, já fucei na net e nas minhas apostilas mas não consegui entender exatamente como funciona.

Alguém poderia me ajudar?

 
Postado : 28/07/2011 8:02 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Porque você só não usa um senha de proteção na planilha?

Excel 2003
>Ferramentas
>Opções
>Segurança
>Senha de gravação. Aqui você coloca a senha, toda ver que o arquivo for aberto ele vai pedir se quer abrir como somente leitura, se você por a senha o arquivo pode ser alterada se não, abre como somente leitura mesmo.

 
Postado : 28/07/2011 8:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Caio,

Tb pensei nisso, mas essa planilha Tb vai para a diretoria, e os diretores não gostam “dessas tecnologias”, sendo assim tenho que pensar em outras alternativas....

 
Postado : 28/07/2011 8:17 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então,
Acho que nesse caso você vai ter que proteger a planilha de qualquer forma, você pode usar um comando "CTRL+M" que vai ativar um Desbloqueio da planilha, porém se não tiver uma senha qualquer pessoa pode ir lá em Ferramentas e desproteger e comprometer o seu arquivo.

A diretoria edita esse arquivo tbm ou não? só leitura mesmo?

 
Postado : 28/07/2011 8:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Um exemplo bem trivial... que vale apenas para proteger e desproteger a planilha ativa, sem senha...

Ctrl+k para proteger e Ctrl+o para desproteger...

Sempre lembrando que proteção no Excel é pouco segura...

 
Postado : 28/07/2011 8:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

No caso da diretoria é somente visualizar mesmo.

 
Postado : 28/07/2011 8:50 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Edson, uma dúvida como vc determinou que “Ctrl+k” seria para proteger e “Ctrl+o” para desproteger?

 
Postado : 28/07/2011 8:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Dayana,
Quando você vai em gravar macro tem essa opção Tecla de Atalho, é só você colocar a letra que você quiser.

 
Postado : 28/07/2011 9:01 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ah tá, não me toquei que era isso,rsrsr
Obrigada galera! :)

 
Postado : 28/07/2011 9:34 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Além disso, caso a macro já esteja gravada, é possível atribuir a tecla de atalho em:

Ferramentas/Macros/Macro/Opções...
(Excel2003)

 
Postado : 28/07/2011 10:30 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Meninos uma dúvida,

Neste exemplo de planilha que o Edson mandou, a macro só funciona na planilha atual e não na pasta inteira.
Sabem como fazer a proteção na pasta inteira?

Tks

 
Postado : 28/07/2011 11:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se essa 'pasta inteira' você quer dizer todas as planilhas que forem abertas, você precisa criar essa macro e salvar na suas macros pessoais, ai qualquer arquivo de excel que for aberto você podera executar.

T++

 
Postado : 28/07/2011 11:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

OI Caio,

Não me expressei direito, qdo disse “pasta” quis dizer todas as “abas” das planilha
Entendeu?

 
Postado : 28/07/2011 12:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tente isso.

Sub Proteger()

For Each Plans In ThisWorkbook.Worksheets
Plans.Protect
Next Plans

End Sub

Sub Desproteger()

For Each Plans In ThisWorkbook.Worksheets
Plans.Unprotect
Next Plans

End Sub
 
Postado : 28/07/2011 12:38 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,

A planilha tá legal, coloquei ctrl+k para desproteger, porem qdo dou o comando ela faz a leitura da macro passando pelas planilhas.
Sabem se há como evitar isso?

Tks

 
Postado : 28/07/2011 2:27 pm
Página 1 / 2