قفل گزاری بر روی تمام شیت ها در اکسل

ماکرو ذیل تمامی شیت های اکسل را با پسورد 123 قفل می نماید :

Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = "123" 
For Each ws In Worksheets
   ws.Protect password:=password
Next ws
End Sub