Lock and Unlock

[#1]

I need to know how to Lock and Unlock all the sheets that I have executing a macro.

I have

Sub Lock
Set q = ActiveDocument
q.LockAll
end sub

And this Lock the active document

How I do to block the rest of the sheets that I have???