How to lock hidden columns from end user

[fvisions]

Hello, I found these two from another post here and I was wondering if it would be possible to hide the given columns then lock them somehow so the person that receives the spreadsheet can not unhide them then when they fill out their columns it comes back to me and I unhide them for the final process of the data?

Sub UnHide_Cells()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:C").EntireColumn.Hidden = False
Next ws
End Sub

Sub Hide_Cells()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:C").EntireColumn.Hidden = True
Next ws
End Sub

 

[Trixterz]

Try using the code below to lock...

ActiveSheet.Protect Password:="Trixterz"

and unlock...

ActiveSheet.UnProtect Password:="Trixterz"

More settings...
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:=TokenKey, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFiltering:=True, AllowSorting:=True, AllowDeletingRows:=True, _
AllowInsertingRows:=True, AllowUsingPivotTables:=True, userinterfaceonly:=True
Sheets(SheetName).EnableSelection = xlNoRestrictions

 

[fvisions]

The project worked, the unproject I received an error 400

 

[fvisions]

The project worked, the unproject I received an error 400

I want the end user to be able to fill out the columns AB:AJ how to only hide and project from unhiding but allow them to enter information in the columns mentioned. You probably have it in the reference to your reply but I am a bit lost could you educate me a bit on this?

 

[fvisions]

I think I figured it out.

Sub Hide_Cells()
Dim ws As Worksheet
Range("B1").Select
    ActiveCell.FormulaR1C1 = "."
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "."
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Current Equipment"
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "."
    Range("A1").Select
    
    Columns("B:AC").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Columns("AD:AK").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
       
    
For Each ws In ActiveWorkbook.Worksheets
ws.Range("B:f,H:j, L:O, Q:T").EntireColumn.Hidden = True
Next ws
ActiveSheet.Protect Password:="12121212"
End Sub