Protect spesific columns from deleting

[cagataybaser]

Hello,
I want to protect columns B to AA from deleting and i can edit of them but there are more columns after AA.
How can i do that?
Best Regards

[Kenneth Hobs]

Lock at least one cell in each of the columns. Protect the sheet but allow column deletion.

[MINCUS1308]

This code will lock the cells in the range. You wont be able to select, delete or edit them.


Sub Macro1()

'SET ERROR HANDELING
On Error Resume Next

'SETTING ALL CELLS TO UNLOCKED BECAUSE THE DEFAULT IS LOCKED
Cells.Select
Selection.Locked = False

'FORMATTING THE DESIRED RANGED TO LOCKED
Range( _
"B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T ,U:U,V:V,W:W,X:X,Y:Y,Z:Z,AA:AA" _
).Locked = True

'SETTING THE WORKSHEETS PROTECTION
ActiveSheet.Protect

End Sub