استاذ Kemas
جرب هذا الماكرو
Sub TestUnprotectProject()
With Application
'Go to the VBE
.SendKeys "%{F11}", True
'Activate Project Explorer window
.SendKeys "^r", True
.SendKeys "~", True
'Enter your password - - this example is "Password"
.SendKeys "11"
'Enter again
.SendKeys "~", True
End With
End Sub
اشتغل معايا كويس