Boa tarde,
estou com um problema ao chamar as sub's que criei, e não sei onde estou errando.
Em "planilha1" eu fiz as sub's, como na imagem "tela0" e coloquei o código:
"Sub TelaMenu()
With Application
.ScreenUpdating = False
.EnableEvents = False
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
.DisplayFormulaBar = False
.DisplayStatusBar = False
.Caption = "XXX"
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayGridlines = False
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Sub TelaNormal()
With Application
.ScreenUpdating = False
.EnableEvents = False
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
.DisplayFormulaBar = True
.DisplayStatusBar = True
.Caption = ""
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub"
Compilo ele, e é sucesso, este está rodando!
o problema é quando vou chamar essas subs.
Em "EstaPastaDetrabalho", como mostra a imagem "tela3", eu coloco o seguinte código:
"Private Sub Workbook_Activate()
Call TelaMenu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TelaNormal
ThisWorkbook.Save
End Sub
Private Sub Workbook_Deactivate()
Call TelaNormal
End Sub
Private Sub Workbook_Open()
Call TelaMenu
End Sub"
E este da o erro: "Erro de compilação: 'Sub' ou 'Function' não definida", alguém consegue me ajudar?
Segue a planilha em anexo também.
Qual é o meu objetivo com esta planilha? Quero que fique visível somente a planilha, sem menus, gridelines, statusbar e afins. Quero fazer um formulário onde a pessoa possa somente preencher os campos que deixei desbloqueado e nao veja mais nada, nem as ferramentas do excel.
teste.rar