Boa tarde!!!
Para saber mais leia: http://www.vbaexpress.com/kb/getarticle.php?kb_id=561

Option Explicit 
 
Private Sub Workbook_Activate() 
     'Macro Purpose: Disable horizontal & vertical scroll bars
     
    With ActiveWindow 
        .DisplayHorizontalScrollBar = False 
        .DisplayVerticalScrollBar = False 
    End With 
     
End Sub 
 
Private Sub Workbook_Deactivate() 
     'Macro Purpose: Restores users prior scroll bar settings
     
    With ActiveWindow 
        .DisplayHorizontalScrollBar = True 
        .DisplayVerticalScrollBar = True 
    End With 
     
End Sub 

Agradeço pela tentativa de resposta alexandrevba, porém quero fixar a rolagem vertical pela "bolinha do mouse" a barra de rolagem horizontal e vertical já está oculta.

Boa noite!!

Então use a Scroll Area

Private Sub Worksheet_Activate() 
    Me.ScrollArea = "A1:M34" 
End Sub