يمكنك فعل هذا أولا بدون اكواد بتتبع الشرح فى هذا الرابط :
https://academy.hsoub.com/apps/productivity/office/microsoft-excel/حماية-ملفات-microsoft-excel-من-التعديل-بكلمات-سر-r62/
او بوضع هذا الكود لحماية كل اوراق العمل
Sub Protect()
Dim ws As Worksheet
Dim pwd As String
pwd = "" ' Put your password here
For Each ws In Worksheets
ws.Protect Password:=123, UserInterfaceOnly:=True
Next ws
End Sub
وكود اخر لفك الحماية
Sub UnProtect()
Dim ws As Worksheet
Dim pwd As String
pwd = "" ' Put your password here
For Each ws In Worksheets
ws.UnProtect Password:=123
Next ws
End Sub
بارك الله فيك