PARA APRESENTAÇÃO EM PÚBLICO ONDE A PLANILHA FICA POR INTEIRA NA TELA SEGUE INSTRUÇÃO; Sub Sair() 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 = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.DisplayWorkbookTabs = True End Sub Sub Entrar() Dim barras, nTela, Cont On Error Resume Next 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 APROVEITEM FOR PUBLIC PRESENTATION WHERE THE BILL ...
VAGAS, EMPREGOS, DIARISTAS, AGÊNCIAS DE EMPREGOS, CONCURSOS, SERVIÇOS INDIVIDUAIS, SALÁRIO, HORA EXTRA, MÉDIA DE GANHO, CONTRATO, CONTRATAÇÕES.