Unrestrict restricted scroll area

Dear Experts:

below macro restricts the user to a specific area of a worksheet.

I inserted this sub into the sheet module of the sheet on which I would like to limit the scroll area.

I wonder which code undoes this, i.e. the scroll area is to be 'unrectricted' for the active worksheet.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas


Private Sub Worksheet_Activate()
RestrictUser Range("A1:EO44")
End Sub


Sub RestrictUser(WhichRange As Range)

With WhichRange.Worksheet
.ScrollArea = WhichRange.Areas(1).Address
End With
End Sub

Open in new window

Andreas HermleTeam leaderAsked:
Who is Participating?
 
Rory ArchibaldConnect With a Mentor Commented:
Private Sub Worksheet_Activate()
Me.Scrollarea = ""
End Sub

Open in new window


would do it.
0
 
Andreas HermleTeam leaderAuthor Commented:
Hi rorya:

ok, thank you very much for your quick and professional help.

Regards, Andreas
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.