Notifications
Clear all

Proteger e Desproteger todas as planilhas

5 Posts
2 Usuários
0 Reactions
2,871 Visualizações
(@maublues)
Posts: 50
Trusted Member
Topic starter
 

Galera, achei várias Macros pra proteger e desproteger todas as planilhas. Gostaria que adequassem essa para não mostrar os caracteres e que só deixasse a opção "SELECIONAR CÉLULAS DESBLOQUEADAS DISPONÍVEIS". Apenas essa opção pode estar disponível no bloqueio, pois os professores conseguem bagunçar a planilha toda. Além disso gostaria que a macro fosse junto da planilha, pois eu não sei se a macro vai. Além disso um atalho de teclado pra bloquear e desbloquear. Aqui na escola tem vários PCs e alguns com Office 2007 e não sei porque algumas planilhas voltam desbloqueadas depois que insiro o meu pendrive nelas, pois uso o 2010. O código é esse:

Sub Proteger()
    Dim Planilha As Worksheet
    Dim Senha As String
    
    Senha = InputBox("Digite a Senha:", "Senha de Proteção")
    For Each Planilha In Worksheets
        Planilha.Protect Senha
    Next
End Sub

Obrigado desde já.
Sub Desproteger()
    Dim Planilha As Worksheet
    Dim Senha As String
    
    Senha = InputBox("Digite a Senha:", "Senha de Proteção")
    For Each Planilha In Worksheets
        Planilha.Unprotect Senha
    Next
End Sub
 
Postado : 19/04/2012 5:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Maublue,

Se você salvou seu arquivo com extensão ".xlsm". as macros acompanham, mas se salvar como ".xlsx", vai sem as macros.

Quanto ao arquivo voltar sem a senha, nas duas rotinas é solicitado a Senha, então se quem a utilizar souber a senha, Desproteger e salvar sem Proteger novamente a mesma estrá desprotegida, sendo assim, o ideal é colocar a chamada para a Proteção da planilha no Evento "Workbook_BeforeClose", logicamente ao fechar será solicitado a Senha, então temos outra questão de saber quem tem a senha, se não for para ninguem alem de você Proteger e Desproteger a planilha, o ideal seria : ou ter a Senha definidia diretamente na rotina, ou em uma célula, e ao fechar buscar esta senha e proteger.

Para definir teclas de atalhos, no excel 2007, vá na guia Desenvolvedor, clique em Macros, selecione a que quer definir as teclas e clique em "opçoes".

Quanto a questão da proteção de celulas, no link abaixo coloquei todas as propriedades que podemos utilizar :
viewtopic.php?f=16&t=2569

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/04/2012 6:28 pm
(@maublues)
Posts: 50
Trusted Member
Topic starter
 

Mauro, você testou o código que te passei? Olhando no VB não aparece a senha em lugar nenhum nos testes que fiz aqui. Veja se você consegue desbloquear o arquivo que estou postando sem saber a senha. Os professores aqui são muito curiosos, querem fazer alterações onde não pode e só eu posso alterar. Eles só usam onde está liberado.

 
Postado : 20/04/2012 3:55 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Maublue, vamos por parte :

O arquivo está com as abas protegidas e algumas celulas com Proteção para edição e outras não, lógicamente pelo modo convencional utilizando o Menu Desproteger, se não souberem a senha não tem como deprotege-las, então a não ser que no excel 2010, versão que não possuo exista alguma possibilidade, com certeza alguem sabe qual é a senha;

Nas Rotinas que postou, as mesmas ao serem executadas é solicitada atraves do ImputBox a digitação da Senha, então mais uma vez frizo que se digitarem a senha errada dará erro, e se estão desprotegendo pela rotina é porque alguem sabe da senha.

Eu citei da "Forma Convencional", uma vez que não sei até onde vai o conhecimento dos professores em relação a VBA ou excel, mas se persquisar na net verá que existem algumas maneiras de se quebrar senhas de arquivos, tambem é uma outra possibilidade, outro porem, que já foi discutido aqui e em outros foruns é a questão do BrOffice e o OpenOffice abrirem arquivos do excel possibilitando salva-los sem senhas, não cheguei a testar na v 2010, mas 2007 já consegui realizar varias vezes isto, verificando este impasse que temos entre a briga MS e BrOffice.

Tanto a rotina para Proteger como a Desproteger estãp corretas, e farão o que se destinam somente se souberem a senha.

Quanto a questão que comentou no post anterior, se as macros acompanham, conforme eu expliquei, depende de como está salvando o arquivo, mas vendo seu arquivo, percebemos que as mesmas não são executadas ao abrir o arquivo, então em que momento as mesmas são executadas ?

Sendo assim sugiro :
Verificar quem mais lida com o arquivo e se alguem tem a senha;
Você efetuar os testes passo a passo desde o primeiro instante em que envia o arquivo aos professores até a finalização e no retorno verificar se estão desprotegidos.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/04/2012 8:30 am
(@maublues)
Posts: 50
Trusted Member
Topic starter
 

Ninguém sabe a senha, só eu. Eu repasso para o coordenador e ele repassa para os professores do seu turno. O conhecimento dos professores em excel é mínimo e eles sabem que não é para alterar a planilha, ou seja, se alteram a planilha eu não me responsabilizo.

Quando eu tenho que fazer alguma correção pra melhorar a planilha ou verificar algum erro eu tenho que desproteger todas as planilhas e/ou apenas uma. Isso é chato pra caramba, por isso queria um modo rápido de fazê-lo. Eu posso deixar as matrizes com a macro e repassar aos professores o arquivo sem macro. Isso já resolve meu problema.

 
Postado : 23/04/2012 10:43 am