Notifications
Clear all

Abrir planilha com as barras de ferramentas minimizadas

5 Posts
2 Usuários
0 Reactions
1,301 Visualizações
Fernando Fernandes
(@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

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

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

Teria que ser em VBA... pode ser?

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

 
Postado : 14/07/2011 2:56 pm
Fernando Fernandes
(@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

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

 
Postado : 14/07/2011 5:35 pm
Fernando Fernandes
(@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

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

 
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