É possível fazer funcionar no Excel 2000 ?

2024 - VBA & Macros

Post Recente por luizhcosta 9 anos atrás

4 Posts

3 Usuários

0 Reactions

858 Visualizações

RSS

luizhcosta

(@luizhcosta)

Posts: 420

Honorable Member

Topic starter

Olá,

Boa noite.

Tive a idéia de montar uma planilha e restringir ao máximo as alterações realizadas pelos usuários "criativos". Então uma solução seria ocultar barras de ferramentas.
Encontre na internet um código que exibia a planilha em tela cheia, mas que ao teclar ESC a planilha retornava ao modo normal.
Buscando um pouco mais encontrei outro código que resolve as duas situações. Porém, não funciona no excel 2000. Então minha dúvida, é possível reescrever para que rode no Excel 2000 :

Abaixo o código:

Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
End Sub

Agradeço !

Postado : 15/01/2016 10:59 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Tenta esse

http://dicasdeexcelevba.blogspot.com.br ... as-de.html

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 16/01/2016 9:28 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Em versões anteriores, creio eu; ao 2003 workbook_open (ou Close) não é reconhecido deve ser utilizado Auto_Open (ou Close).
Tambem "Ribbon" e valido à partir do 2007 anteriores deve ser utilizado "CommandBars"

Sub ListCommandBars()
  Dim cBar As Office.CommandBar
Caminho = ThisWorkbook.Path & Application.PathSeparator
Arquivo = "Barras.txt"
Open Caminho & Arquivo For Output As #1
  For Each cBar In CommandBars
    Debug.Print "Name: " & cBar.Name
    Debug.Print "Local name: " & cBar.NameLocal
    Debug.Print "Is Visible: " & cBar.Visible
    Debug.Print "Index: " & cBar.Index
    Debug.Print "Is Built-In: " & cBar.BuiltIn
    Debug.Print "# Of Controls: "; cBar.Controls.Count
    Debug.Print "Enabled: " & cBar.Enabled
    Debug.Print "Type: " & cBar.Type
    Debug.Print "---"
  nua = cBar.Index & "/" & cBar.Name & "/" & cBar.NameLocal & "/" & cBar.Visible & "/" & cBar.BuiltIn & "/" & cBar.Enabled & "/" & cBar.Type
Print #1, nua
  Next

Close #1
End Sub

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

Postado : 16/01/2016 4:29 pm