Bom dia!!
Para bloquear mais de uma guia (sendo que obrigatoriamente, tem que ficar uma guia visível), use..
Somente a guia de nome Plan1, ficará visível.
Option Explicit
Sub AleVBA_11624()
Dim wsLoop As Worksheet
Dim vVisible As Variant
For Each wsLoop In ThisWorkbook.Worksheets
If wsLoop.Name <> "Plan1" Then wsLoop.Visible = vVisible
Next wsLoop
End Sub
Você pode usar o evento ScrollArea, para limitar a barra de rolagem
Private Sub Worksheet_Activate()
Me.ScrollArea = "B2:O25"
End Sub
Ou ocultar a barra de rolagem.
Sub Workbook_Open()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 11/05/2014 6:08 am