Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Todas as Planilhas ...
 
Notifications
Clear all

Todas as Planilhas do Documento Excel.

 
2024 - VBA & Macros
5 Posts
1 Usuários
0 Reactions
1,099 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal ..

Estou retomando um desafio e gostaria de um help de vocês gurus do excel. rsrsrs

Bom dei uma pesquisada na net e no fórum e fiz um apanhado de coisas muito boas e interessantes com as quais estou aprendendo muito.

Mas ainda tenho muito que aprender e queria ver se voces poderiam me auxiliar nessa.

Bom vejam só oque estou tentando fazer.

Desafio :ugeek:

Tenho uma planilha com 31 abas.... e quero que em todas as abas, SOMENTE O RANGE E3:F5000 POSSA SER DESBLOQUEADO, onde os usuarios possam fazer alterações.

Pesquisei, gravei a macro ... mas não sei como me referenciar a todas as Abas da planilha.

Sei que voces feras tem isso na ponta dos dedos.... rsrsrs :P

Obrigadão
Acp.Lacerda

 
Postado : 28/02/2012 12:12 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde,

Veja se este exemplo te ajuda:

Sub BloquearPlanilhas()
    Dim Pl As Worksheet
    
    For Each Pl In Worksheets
        Pl.Select
        Pl.Unprotect "SENHA"
            Cells.Locked = True
            [E3:F5000].Locked = False
        Pl.Protect "SENHA"
    Next
End Sub

É só substituir a expressão "SENHA" pela senha utilizada nas suas planilhas.

Abraço

 
Postado : 28/02/2012 1:44 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

JValq

Sim funcionou bem ... massssss

Olha estou usando um FORM onde será informado Usuário e senha.

Então dependendo do usuário e senha tudo estará liberado ou bloqueado.... Entendeu ?!?

Eu até tentei utilizar sem senha mas ele pede senha ...

Posso até usar dessa forma se não tiver outro modo...

Vou ficar no aguardo...

Obrigadão

ACP.Lacerda

 
Postado : 28/02/2012 2:00 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não sei se entendi bem...
Veja se é isso:

Sub DesbloquearPlanilhas(ByVal Usuario As String, ByVal Senha As String)
    Dim Pl As Worksheet
        
    If Usuario = "Eu" Then
        For Each Pl In Worksheets
            Pl.Select
            Pl.Unprotect Senha
            Cells.Locked = True
            [E3:F5000].Locked = False
            Pl.Protect Senha
        Next
    End If
End Sub

Sub BloquearPlanilhas(ByVal Usuario As String, ByVal Senha As String)
    Dim Pl As Worksheet
        
    If Usuario = "Eu" Then
        For Each Pl In Worksheets
            Pl.Select
            Pl.Unprotect Senha
            Cells.Locked = True
            Pl.Protect Senha
        Next
    End If
End Sub

Para chamar as rotinas:

BloquearPlanilhas Usuario, Senha
DesbloquearPlanilhas Usuario, Senha

Abraço

 
Postado : 28/02/2012 2:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

JValq

Obrigado pela ajuda...
Estou tentando ver se consigo resolver com essas dicas.

Mandei um MP para voce

Obrigadão
ACP.Lacerda

 
Postado : 28/02/2012 2:33 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico