Notifications
Clear all

Exibir somente células ao abrir a planilha

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

Boa tarde, Caros!

Estou fazendo um simulador de cálculo de bônus aqui da empresa, e pra dar um toque mais "profissa" quero que ao abrir a planilha oculte todas as barras de ferramenta, etc...

Alguém tem algum script que faça isso?

PS: Que seja pra ocultar somente esse arquivo ... Já recebi uma macro uma vez que ocultou todo o excel e depois eu nao conseguia fazer nada ...rsrs

Grande abraço!

Ricardo

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

 
Postado : 31/05/2011 12:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Coloque esta Macro em EstaPasta_de_trabalho.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Private Sub Workbook_Open()
For Each barras In Application.CommandBars
barras.Enabled = False
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
End Sub

Ob.A macro vai ocultar tudo aconselho voce criar um botão fechar na sua planilha.

Abraço.

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

 
Postado : 31/05/2011 1:05 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Inseri aqui na minha planilha, porém não funcionou... Este script serve pro Excel 2010 !?

Abraço.

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

 
Postado : 31/05/2011 1:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Já consegui fazer ... Abraço!

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

 
Postado : 31/05/2011 1:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara, como já havia acontecido anteriormente comigo, a macro fez com que a barra de ferramente sumisse em todas as planilhas. Como eu faço pra deixá-la somente na planilha do meu simulador, e não ativá-la em outras planilhas?

Abraço.

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

 
Postado : 31/05/2011 1:29 pm