VBA Protect worksheet

[Rania01]

Dear All,
I'm attempting to protect the entire worksheet except for a set column "H" can be editing
I use below vba the problem is all entire worksheet is protect please help how to :

Sub Lock_data()

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets

    ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, Password:="12345"
            
    Next ws

End Sub

 

[Gasman]

Use the Macro recorder to protect a range and see what that produces, then mimic in your code.
You might have to do A:G and I:whatever separately.

See if you can protect all the sheet, then unprotect a column.

Edit: Just had a quick peek, and seems sheet only?

 

[CJ_London]

as gasman says use the macro recorder. Note that cells have the locked property set to true as the default

1. start the recorder
2. select the cells you want users to be able to access
3. on the Home ribbon select the Format button in the cells section and then select format cells
4. select the protection tab and untick the Locked option
5. select the format button again and this time select protect sheet.
6. Choose whatever options you want the user to be able to do - typically select locked and unlocked cells. They won't be able to change the values in locked cells.
7. add a password

Note that a user cannot adjust column widths or row heights in a protected worksheet so you will need to ensure columns are a suitably sized.

 

[Rania01]

Dear Gasman,

I tried to use the Macro see below, the question is where can i put a password?

Sub Macro3()
'
' Macro3 Macro
'

'
    Columns("A:G").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
End Sub

 

[Gasman]

Google is always my first point of call

How to PROTECT and UNPROTECT a Sheet using VBA in Excel

This tutorial helps you to learn to protect and unprotect a sheet using a VBA code. You have the option to protect a sheet, with or without a password.

excelchamps.com

found via

vba protect sheet with password - Google Search

However you already had the Password parameter in your first post?