Need help with locking columns

[Al]

I am trying to lock columns A, F, and H on Sheet1 so that when a user opens
the workbook, these 3 columns are locked for any editing, however, I want the
user to be able to edit any thing else on the sheet. I need help with the
code.
thanks
Al

 

[Mike H]

Al,

Try this. Select all cells by clicking the box above the 1 of row 1. Right
click anywhere on the sheet

Format Cells - Protection Tab and un-check 'Locked' - OK

Select your 3 columns by holding down CTRL and clicking on the column header
of each column

Right click in one of the selected columns and repeat the formatting but
this time check 'Locked' - OK

Protect the sheet and your done.

Mike

 

[Ryan H]

You can run this code, but you really don't have too. I would just select
the Columns A,F,H and righ click, then select Format Cells, click Protection,
ensure locked cells has a check mark in it. The protect the sheet and save,
you are then done!

Sub LockColumns()

' protect worksheet
ActiveSheet.Unprotect Password:="password"

' unlock all cells
Cells.Locked = False

' lock Columns A,F,H
Range("A:A,F:F,H:H").Locked = True

' protect worksheet
ActiveSheet.Protect Password:="password"
End Sub

 

[Al]

Thank you Mike and Ryan both ways work, I just wanted to learn how to code it
as well.

 

[Ryan H]

Hey Al! Do me a favor and click "YES" next to "Was this post helpful to
you?". I'm trying to get my silver icon.