Unprotect selected columns permanently

[RAJESH1960]

Hello guys, I am able to hide and unhide the sheets when I run the code. The sheet (Original) I am supposed to enter a new data every time, to generate XML is protected and only the columns (A:J) where I am supposed to paste the data are unlocked. I have already unlocked the cells of those rows and protected the rest of the columns with a password. I have no idea why are the unprotected cells getting locked when I run the macro. I need your expert help to find the solution to solve this problem.

Option Explicit
Sub HideSheets()
    Dim ws As Worksheet
    ThisWorkbook.Unprotect Password:=123
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Original" 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 <> "Original" Then
            ws.Visible = xlSheetVisible
            
        End If
    Next ws
    
End Sub

 

[RAJESH1960]

The cells in Workbook "Right codes" Sheets("Original") are not unlocked in columns A:I in the file that you uploaded before I run anything, they are LOCKED. It is only Column J that has cells unlocked.

Columns("A:I") are locked at the start and so they will be locked at the finish.

I did notice that now. Maybe the first time I pasted the data and then protected the sheet. You are right. Now for the solution... Back to the drawing board....?

 

[RAJESH1960]

Thanks Mark. You really helped me find the problem. Till I find a solution, for now, I have just added one line in the ClearData code to leave the original sheet unprotected.

HideSheets
ActiveSheet.Unprotect Password:=123

End Sub

Thanks for your patience and time Mark.

 

[MARK858]

You're welcome