Alt+f11
Esta pasta de trabalho
Cole abaixo...
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim barras
On Error Resume Next
Senha = "123456"
For Each barras In Application.CommandBars
barras.Enabled = False
Next
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
MsgBox " Bem vindo"
Application.DisplayFullScreen = True
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.Protect Password:=Senha, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.MoveAfterReturnDirection = xlDown
Range("g7").Select
ScrollArea = "$A$100:$az$500"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("MENU").Select
MsgBox "Obrigado por usar, volte sempre"
RpTela
Application.DisplayAlerts = False
Application.Quit
End Sub
Sub RpTela()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Range("A1").Select
End Sub
---------------------------------------------
Aceito "melhoras" rsrsrsr
Abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/07/2011 8:26 am