Hide and Protect workbook

[RAJESH1960]

Hello code experts,
I have this code which runs correctly. But when I run the code after protecting the workbook it is showing the wrong results. I need your expertise to help me to edit the code.
In the Data sheet, I want to keep columns B2:G51 unhidden and unprotected. The rest of the rows and columns I want to hide. I also want to hide the Extract and Import sheets. The user has to just enter the data in columns B2: G51 only and get the xml generated. I also want the code to be protected in the VBA project Properties.
Password 123
Hide and protect sheet.xlsm

 

[RAJESH1960]

Option Explicit

Sub HideSheets()
'shared by Alana
    Dim ws As Worksheet
    ThisWorkbook.Unprotect Password:=123
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Data" Then
            ws.Protect Password:=123
            ws.Visible = xlSheetVeryHidden
        End If
    Next ws
    ThisWorkbook.Protect Password:=123
End Sub

Sub UnHideSheets()
    Dim ws As Worksheet
    ThisWorkbook.Unprotect Password:=123
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Data" Then
            ws.Visible = xlSheetVisible
            ws.Unprotect Password:=123
        End If
    Next ws
    'ThisWorkbook.Protect Password:=123
End Sub

This code is unprotecting the workbook but I have some cells in the data sheet Locked and Hidden in the Data sheet. It is not unlocking the hidden cells and getting the data from the data sheet to the Extract sheet.
In short, I am able to get data till 51 rows whereas I have to get data from 365 rows.
How do I edit the code to unprotect in the beginning and protect again in the end.?

 

[RAJESH1960]

The above issue is solved now.

 

[rlv01]

The above issue is solved now.

FYI, you can mark the thread as "Solved" by clicking the the "Mark as solution" (checkmark) button to the right of the post which answers the question.

 

[Fluff]

There is no post that contains a solution, so there is nothing to mark.