Prevent users unfreezing panes

[SaraWitch]

Hello peeps.

Is there a way to prevent users from unfreezing panes in a shared workbook? It used to be done by selecting 'Windows' in the Protect Workbook function, but this feature has been deprecated. I also tried a vba that I found elsewhere, but this does not work either.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellreturn As String
cellreturn = ActiveCell.Address
Application.EnableEvents = False
If Not ActiveWindow.FreezePanes Then
ActiveSheet.Range("A3").Select ' change address to where you want panes frozen
ActiveWindow.FreezePanes = True
ActiveSheet.Range(cellreturn).Select
End If
Application.EnableEvents = True
End Sub

If this can be done, any help would be appreciated

 

[Joe4]

That VBA should work, but has the following requirements for it to work automatically.
1. It MUST be placed in the Sheet module in VBA of the sheet you want to apply it to. If you place it in a general or workbook module, it will NOT work
2. You CANNOT change the name of this procedure - it MUST be named "Private Sub Worksheet_SelectionChange(ByVal Target As Range"
3. VBA MUST be enabled in your workbook in order for it to work

Regarding item #1, the easiest way to ensure you put it in the proper place is to go to the sheet you want to apply it to, right-click on sheet tab name at the bottom of the screen, select "View Code", and paste the VBA code in the VBA module that pops up.

 

[SaraWitch]

Thank you, @Joe4. All that was true. But... ...you know what I was doing?!? Scrolling down and across without moving into another cell!!!! Doh! It does work, and works perfectly - thank you again for your time

 

[Joe4]

You are welcome.
Glad you got it all worked out!