Excel Obrigar a Ativar Macros

[deejaywesley]

Como solicitado, estou postando no forum!

Ola amigo flavio...

Achei esta resposta sua em um topico...

Eu faria assim:

Ocultaria todas as planilhas que você utiliza, deixando uma planilha em branco com a mensagem: “FAVOR HABILITAR MACROS PARA TER ACESSO AO CONTEÙDO DESTE ARQUIVO”.

Protegeria o arquivo com senha a pasta para que os usuários não conseguissem reexibir planilhas ocultas.

Colocaria uma macro na inicialização que desprotegeria e exibiria a planilha desejada. Se a macro não for ativada, ele terá acesso somente a planilha com a mensagem “FAVOR HABILITAR MACROS PARA TER ACESSO AO CONTEÙDO DESTE ARQUIVO”.

Se ele habilitar, terá acesso ao arquivo normalmente, através do código que você precisar....

E como eu so fraquinho de mais em vba, como é essa macro pra desproteger a plan, mostrar as ocultas, e ocultar a que tem a mensagem "FAVOR HABIL... .. .."

desculpe por perguntar por mp, mas é que o topico e antigo, e ja estava fechado!

desde ja obrigado!

------------------------------------------------------------------------

tentei fazer assim:

Private Sub Workbook_Open()

Plan1.Visible = True

Plan2.Visible = True

Plan3.Visible = False

End Sub

"porque ai oculta a que tem a mensagem e mostra as outras"

e vou em Ferramentas / Proteger / Proteger pasta de trabalho

deixo marcado so a ESTRUTURA

e acho q é ai que ta o problema, porque como ela ta protegida,

o VBA nao funciona!

e ai?

[Flavio Soares]

Ao iniciar o Workbook_Open você já deve desproteger a planilha VBA e sempre proteger ao FECHAR o arquivo, assim se ao abrir a planilha com macros desativadas, ela vai estar travada.

Vamos supor que a senha seja TESTE:

Proteger a pasta de trabalho

ActiveWorkbook.Protect Password:="Teste", Structure:=True, Windows:=False

Desproteger a pasta de trabalho:

ActiveWorkbook.Unprotect Password:="Teste"

Ocultar PLanilha:

Sheets("Plan2").Visible = False

Reexibir Planilha:

Sheets("Plan2").Visible = True

Ai é só fazer a sequência que você desejar.....

[deejaywesley]

Opa.....

funciono beleza!!!

Valeu Flavio!

Um abração parceiro!

[deejaywesley]

:)Uma outra duvida!

vejamos:

-------A-----------B----------C---------

1-----20--------FORMULA

2-----40--------FORMULA

3-----30--------FORMULA

4-----50--------FORMULA

5

bom! minha duvida é se tem formula para me mostra o seguinte:

-------A-----------B----------C---------

1-----20--------4 <- é o 4º maior numero da coluna

2-----40--------2 <- é o 2º maior numero da coluna

3-----30--------3 <- é o 3º maior numero da coluna

4-----50--------1 <- é o 1º maior numero da coluna

5

desde já obrigado!

[Flavio Soares]

Em B4 digite =ORDEM(A4;$A$1:$A$4) e arraste para as outras células.

[deejaywesley]

valeu Flavio:lol:

era iso mesmo....

Um abraço!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.