وعليكم السلام-اهلا بك فى المنتدى
كان عليك استخدام خاصية البحث بالمنتدى فبه ما تطلب , فيمكنك الإستعانة بهذا الرابط
جعل برنامج الاكسيل يتوقف بعد زمن معين
أو هذا
منع المستخدم من فك حماية الشيت
او يمكنك الإستعانة بهذا الرابط فبه كود من أعمال استاذنا الجليل ياسر خليل
حماية محرر الأكواد من فك الحماية حتى لو عرف الهاكر كلمة السر
أحسنت استاذ جعفر .. وهو ده دائما ما ننوه له واعتقد ان هذا اقل ما يقدم لصاحب الفضل بعد ربنا فى حل المشكلة التى تواجهك
أكرمك الله وفتح عليك للتنويه لهذا الموضوع الهام جدا
وعليكم السلام-حاول استخدام هذا الكود
Sub ProtectAll()
Dim wBk As Workbook
Dim sFileSpec As String
Dim sPathSpec As String
Dim sFoundFile As String
sPathSpec = "C:\MyPath\"
sFileSpec = "*.xls"
sFoundFile = Dir(sPathSpec & sFileSpec)
Do While sFoundFile <> ""
Set wBk = Workbooks.Open(sPathSpec & sFoundFile)
With wBk
Application.DisplayAlerts = False
wBk.SaveAs FileName:=.FullName, _
Password:="swordfish"
Application.DisplayAlerts = True
End With
Set wBk = Nothing
Workbooks(sFoundFile).Close False
sFoundFile = Dir
Loop
End Sub
أو جرب هذا
Add password to all Excel workbook in folder
او تلك
Lock a Folder – In Windows – Excel Folder Lock Code
أو هذا
How to protect all workbooks in a folder at once in Excel?