Notifications
Clear all

Abrir planilha com as barras de ferramentas minimizadas

5 Posts
2 Usuários
0 Reactions
1,286 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!
Uso o excel 2007 e gostaria de: ao abrir uma planilha específica as barras de ferramenta já estejam minimizadas
pois nesta planilha o usuário já terá todas as ferramentas necessárias.
Espero ter sido claro.
Agradecido.

Francisco

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

Teria que ser em VBA... pode ser?

 
Postado : 14/07/2011 2:56 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá JPerez. Obrigado por responder.
Pode ser sim em VBA. Inclusive ocultar as abas das planilhas também.
Estou no aguardo.
Grande abraço
Francisco

 
Postado : 14/07/2011 5:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alt+f11
Esta pasta de trabalho

Cole abaixo...

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim barras
On Error Resume Next
Senha = "123456"
For Each barras In Application.CommandBars
barras.Enabled = False
Next
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
MsgBox " Bem vindo"
Application.DisplayFullScreen = True
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.Protect Password:=Senha, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.MoveAfterReturnDirection = xlDown
Range("g7").Select
ScrollArea = "$A$100:$az$500"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("MENU").Select
MsgBox "Obrigado por usar, volte sempre"
RpTela
Application.DisplayAlerts = False
Application.Quit
End Sub
Sub RpTela()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Range("A1").Select
End Sub

---------------------------------------------
Aceito "melhoras" rsrsrsr

Abraços

 
Postado : 15/07/2011 8:26 am
(@sergio-vilar)
Posts: 11
Active Member
 

JPerez,

Não tenho conhecimento o sulficiente para melhorar seu código, porem tenho um que utilizo aqui que ta mais simples.
Nele tem como desativar os menus sem que o usuário consiga habilita-los novamente.
Tem como configurar o Caption para trocar o "Microsoft Excel" na barra de titulo.
Ao invés de desabilitar o botão fechar, consegui remover a exibição dos botões.

Creio que se juntar as 2 deve ficar algo bem completo e transformar a planilha em um visual de sistema.

 
Postado : 25/09/2012 9:12 pm