Notifications
Clear all

DESABILITAR A VISUALIZAÇÃO DAS GUIAS (PLANS)

7 Posts
3 Usuários
0 Reactions
3,587 Visualizações
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Como posso desabilitar definitivamente a visuazualição das guias (Plans) e não permitir que o usuário através do opções as habilite:?

 
Postado : 10/05/2014 6:15 pm
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Desculpe, vi que a pergunta estavam incompleta...

Arquivo / Opções / Avançado / ( Rola para baixo ) / Opções de exibição desta pasta de trabalho/ Mostrar guias de Planilha ( tira o Flag )

Gostaria de desabilitar definitivamente a barra de rolagem horizontal, e para isto não achei resposta na pesquisa do fórum.

Desabilitar via Macro.

 
Postado : 10/05/2014 7:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite ericson

Coloque este código no Módulo "Esta Pasta de Trabalho" e substitua Exemplo 1,2, ... pelos nomes da tuas Abas. Depois proteja o teu projeto VBA com senha.

Private Sub Workbook_Open()
    On Error Resume Next
    Sheets("Exemplo 1").Visible = False
    Sheets("Exemplo 2").Visible = False
    Sheets("Exemplo 3").Visible = False
    Sheets("Exemplo 4").Visible = False
    Sheets("Exemplo 5").Visible = False
    
End Sub

O problema de ser com VBA é que a ocultação vai depender das macros serem habilitadas por quem abrir a planilha.
No video abaixo ensina um macetinho para dificultar um pouco mais a reexibição das planilhas feita no modo manual.:

http://www.youtube.com/watch?v=l_cm5XacBPw

Se a respota foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

[]s

 
Postado : 10/05/2014 7:50 pm
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Vlw,

Mas o problema, são vários..., é que eu estou trabalhando com 55 guias de um relatório gerencias da minha empresa e o diretor solicitou que casa gestor somente possa ver os seus resultados, mas o relatório utiliza vários dados que estão em BD em guias diferentes além de várias macros para gerar relatórios especificos, resumindo, reanalisar todas as macros já feitas para incluir um código de ocultar e reexibir várias guias fica meio inviável.

De forma que, seria mais fácil ter um código para bloquear definitivamente a barra de rolagem horizontal assim eu não teria que reanalisar todas as macros já feitas.

Alguém conhece este bendito código?

 
Postado : 10/05/2014 8:29 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Para bloquear mais de uma guia (sendo que obrigatoriamente, tem que ficar uma guia visível), use..
Somente a guia de nome Plan1, ficará visível.

Option Explicit
Sub AleVBA_11624()
    Dim wsLoop As Worksheet
    Dim vVisible As Variant
    For Each wsLoop In ThisWorkbook.Worksheets
        If wsLoop.Name <> "Plan1" Then wsLoop.Visible = vVisible
    Next wsLoop

End Sub

Você pode usar o evento ScrollArea, para limitar a barra de rolagem

Private Sub Worksheet_Activate()
Me.ScrollArea = "B2:O25"
End Sub

Ou ocultar a barra de rolagem.

Sub Workbook_Open()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub
 
Postado : 11/05/2014 6:08 am
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Para não visualizar as pastas sem ocultá-las eu utilizo o

    ActiveWindow.DisplayWorkbookTabs = False 

mas como mencionei o usuário pode solicitar para reexibir as pastas pelo opções.

Como utilizar este comando de forma que o usuário não o desbloqueie pelo menu opções?

Uma alternativa foi executar este procedimento num time mas o usuário final se estiver mexendo com mais de uma planilha é afetada também.

 
Postado : 13/05/2014 6:49 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

mas como mencionei o usuário pode solicitar para reexibir as pastas pelo opções.

Como utilizar este comando de forma que o usuário não o desbloqueie pelo menu opções?

Uma alternativa foi executar este procedimento num time mas o usuário final se estiver mexendo com mais de uma planilha é afetada também.

Talvez editando a Ribbon:

http://www.ambienteoffice.com.br/office ... e_ribbons/
http://www.microsoftexcel.com.br/index. ... otoes.html
http://www.xtremevbtalk.com/showthread.php?t=265636
http://daquidaparvonia.blogspot.com.br/ ... excel.html

 
Postado : 13/05/2014 11:40 pm