Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
É possível fazer fu...
 
Notifications
Clear all

É 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
836 Visualizações
RSS
 luizhcosta
(@luizhcosta)
Posts: 0
New 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: 0
New Member
 

Tenta esse

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

 
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
 
Postado : 16/01/2016 4:29 pm
 luizhcosta
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Reinaldo,

Retornou "Erro de acesso a caminho/arquivo".

 
Postado : 17/01/2016 5:22 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico