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

 

[MARK858]

and I have just downloaded it again and the line is still there

 

[RAJESH1960]

Sorry Mark. Last 3 Days I am going mad trying to solve this. I am sharing the right code link now.

Right codes.xlsm

drive.google.com

 

[MARK858]

I get no error running that file if I run the ClearContents macro then click the GenerateXLM button and Bank.XLM was created

 

[RAJESH1960]

Exactly. Now copy the data in original to another sheet, clear the contents of Original and try to paste back the data, it will show that the sheet is protected. Add additional rows in the new data before pasting. It won't accept.

 

[MARK858]

Your cells are locked when I download it so of course they remain the same later. I am going to have to leave this thread now as being Xmas Eve I have things to get on with.

 

[RAJESH1960]

Your cells are locked when I download it so of course they remain the same later. I am going to have to leave this thread now as being Xmas Eve I have things to get on with.

That is what I want to know. Why are the unlocked cells getting locked. Have a Merry Christmas Mark. Till then I will wait for the solution.

 

[MARK858]

That is what I want to know. Why are the unlocked cells getting locked. Have a Merry Christmas Mark. Till then I will wait for the solution.

They are Not unlocked in the download, they are locked, the only unlocked column is column J

 

[RAJESH1960]

They are Not unlocked in the download, they are locked, the only unlocked column is column J

How do I overcome this problem? I tried every possible way to keep the cells in Column A:J unlocked. I don't know where I have gone wrong.

 

[RAJESH1960]

Only way I see it is I will have to keep the macro button in another sheet and protect that sheet. The original sheet will stay like a normal sheet.

 

[MARK858]

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.