How to protect sheets in excel workbook

[Arpanakumar]

Hello Everybody.

Iam new to forum and to vba...i have quick question and struck with project work..what i need is to protect all sheets in excel workbook.


Thanks

Arpana

 

[Monty]

Hello Arpana.

Welcome to forum..

Try this.

Sub Protect_Sht()

Dim I As Integer

For I = 1 To Sheets.Count
    Sheets(I).Protect Password:="arpana"
Next I

End Sub

 

[Monty]

Arpana.

You may also required to unprotect them...So here is the code..

Sub Unprotect_Sht()

Dim I As Integer

For I = 1 To Sheets.Count
    Sheets(I).Unprotect Password:="arpana"
Next I

End Sub

Hope this will help you.

 

[Arpanakumar]

Hello Monty

Thank you so much...You are master.

it was really so quick response...

both macros are working fine...i have more question to ask..hope you don't mind..

 

[Monty]

Dear Arpana.

Am also learning with this forum..and we should thanks to Chandoo and Hui..who made this possible and it's not only mee going to help you there are so many professionals on this forum...

Monty.