Hi Pravin,
Yes you can do it.Please find the aatchment.
Regards
Priti verma
On Fri, Apr 26, 2013 at 7:15 PM, Pravin Gunjal wrote:
> Hi Preeti,
>
> Can we do "Unprotect All" also?
>
> But system should ask the password as usual for protect & unprotect.
>
> Regards
> Pravin.
>
>
> On Tue, Apr 2
Hi Pravin,
i have just add inputbox for value input and replace sheet.protect
with sheet.unprotect for Unprotect all sheets
for protect all sheets
Sub ProtectAll()
Dim sheet As Worksheet
Dim myPassword As String
myPassword = InputBox("Enter password")
For Each sheet In ActiveWorkbook.Worksheet
Hi Preeti,
Can we do "Unprotect All" also?
But system should ask the password as usual for protect & unprotect.
Regards
Pravin.
On Tue, Apr 23, 2013 at 9:29 PM, priti verma wrote:
> Hi Kuldeep,
> Please use the following code
>
> Sub ProtectAll()
> Dim sheet As Worksheet
> Dim myPassword As S
Thanks Paul & Preeti.
Regards,
Kuldeep Singh
Info Edge India Limited (naukri.com)
Phone.: +91-0120-4841100, Extn.: 2467, 9716615535
naukrikuld...@gmail.com || www.naukri.com
*Please* *Consider the environment. Please don't print this e-mail unless
you really need to.*
*
*
On Tue, Apr 23, 2013 at 9
Hi Kuldeep,
Please use the following code
Sub ProtectAll()
Dim sheet As Worksheet
Dim myPassword As String
myPassword = "password"
For Each sheet In ActiveWorkbook.Worksheets
sheet.Protect Password:=myPassword
Next
End Sub
Regards,
Priti verma
On Tue, Apr 23, 2013 at 9:16 PM, Kuldeep Singh wr
try:
Sub prot()
Dim sht
For Each sht In Sheets
sht.Protect
Next sht
End Sub
Paul
-
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you c
