How to Protect Sheet from editing in Multiple Workbooks at once?

[VinodKrishnappa]

Hi,

I would like to protect a particular sheet from editing in various work book files available in particular folder.

In the sheet i need to enable editing option only particular cells which. Rest all i want to protect

For Ex:
File Name: workbook1.xlsx
Sheet Name: sheet1

In a folder i have multiple workbooks like "workbook1.xlsx", "workbook2.xlsx" and so on... In each work book i want to protect sheet1 from editing/formatting/ except few cells which are unlocked.

Please help me on this. Thanks in advance.

Regards,
VK

 

[navic]

Please help me on this. Thanks in advance.

You can see this the instructions for protection in Excel

 

[mumps]

Try the following macro:

 Sub ProtectSheet()
    Application.ScreenUpdating = False
    Dim wkbSource As Workbook
    Const strPath As String = "C:\Test\" 'change folder path to suit your needs
    ChDir strPath
    strExtension = Dir("*.xlsx")
    Do While strExtension <> ""
        Set wkbSource = Workbooks.Open(strPath & strExtension)
        With wkbSource
            .Sheets("Sheet1").Protect Password:="mypassword" 'change "mypassword" to suit your needs
            .Close savechanges:=True
        End With
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Change the folder path to match yours and change the password to one of your choosing.

 

[VinodKrishnappa]

Thank you.... Please let me know how to un protect the sheets in the same folder path...

 

[mumps]

In the code, just change the word Protect to Unprotect.