Unable to select entire column or row

[Dastnai]

Good Morning Everyone,

I was given an excel file that is password protected and I have the password. However, I am unable to scroll past certain points of sheets. When I drag my scroll bar it resorts back to a certain column. I am also unable to select an entire column or row. I tried a few VBA codes but couldn't get anywhere. Any ideas on what I can do to be able to view all the information?


Regards,

Dastnai

 

[Rick Rothstein]

It sounds like there may be some event code doing that. Right click the tab for that worksheet and select View Code from the popup menu that appears. Is there any code in the code window that appears. If so, see if any of it is blocking your efforts. If there is no code there, double click the ThisWorkbook item in the Project-VBAProject window inside the VBA editor. Is there any code there? If so, see if any of it is blocking your efforts.

 

[Dastnai]

It sounds like there may be some event code doing that. Right click the tab for that worksheet and select View Code from the popup menu that appears. Is there any code in the code window that appears. If so, see if any of it is blocking your efforts. If there is no code there, double click the ThisWorkbook item in the Project-VBAProject window inside the VBA editor. Is there any code there? If so, see if any of it is blocking your efforts.

Thanks! I was able to find the code. How do I make the changes necessary to unlock?

Public Sub HideAll()


'Set worksheet to Very Hidden so that it can only be unhidden by a macro
'Worksheets("Input Data").Visible = xlSheetHidden
'ActiveWindow.DisplayWorkbookTabs = False

Dim OneBar As CommandBar
Dim Sh As Object
' First the normal screen
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With

' Hide all Command Bars
On Error Resume Next
For Each OneBar In CommandBars
OneBar.Visible = False
Next
On Error GoTo 0

' Now viewing full screen
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With

' Hide all Command Bars
On Error Resume Next
For Each OneBar In CommandBars
OneBar.Visible = False
Next
On Error GoTo 0

' Disable the Menu Bar only required once
CommandBars("Worksheet Menu Bar").Enabled = False

'Limited scroll capability
'ActiveWindow.DisplayHeadings = False
Worksheets("Contents").ScrollArea = "A1"
Worksheets("Dashboard").ScrollArea = "A1"
Worksheets("Instructions").ScrollArea = "A1:D48"
Worksheets("Order prioritization").ScrollArea = "A1"
Worksheets("Inputs").ScrollArea = "A1"
'Selection.Activate
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True

'Set window zoom
ActiveWindow.Zoom = 100


End Sub