Protect / unprotect worksheet through vba

[shanzek]

I am creating workbookA by taking a templateA and pasting in information from workbookB. The goal is to have the finished workbookA with some cells locked, and some unlocked. My code works fine until I tried to protect the worksheet in the template. Now it can't paste info into it, since it is locked.

I figure my two choices are:
(1) start with template unprotected, paste info in, then protect it
(2) start with template protected, unprotect it in vba, paste in info, protect it

Any suggestions as to the best approach? I'm not protecting it for security, just to restrict where people key in information.

Any examples would be really appreciated also.

Thanks
Steve

 

[SqtaMorda]

I recomend code:

Sub Protect(myPassword As String)
ActiveWorkbook.ActiveSheet.Protect Password:=myPassword
ActiveWorkbook.Protect Password:=myPassword
End Sub


Sub UnProtect(myPassword As String)
ActiveWorkbook.ActiveSheet.Unprotect Password:=myPassword
ActiveWorkbook.Unprotect Password:=myPassword
End Sub

Then just call the macro:

Call Protect("here enter your password") or Call UnProtect("here enter your password")

This solution prevents opening UnProtecting macro from developer tab like could happen with Smitty solution.

 

[shahsavand]

Here you go:


Sub ProtectAll()
****Dim sh As Worksheet
****Dim myPassword As String
****myPassword = "password"
****
****For Each sh In ActiveWorkbook.Worksheets
********sh.Protect Password:=myPassword
****Next sh
****
End Sub

Sub UnrotectAll()
****Dim sh As Worksheet
****Dim myPassword As String
****myPassword = "password"
****
****For Each sh In ActiveWorkbook.Worksheets
********sh.Unprotect Password:=myPassword
****Next sh
****
End Sub

Hope that helps,

Smitty

what should i do in order to only protect Active sheet