ابايوسف قام بنشر مارس 4, 2020 مشاركة قام بنشر مارس 4, 2020 السلام عليكم محتاج كود لقفل الفولدرات (البارتيشن) إلا برقم سري رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر مارس 4, 2020 أفضل إجابة مشاركة قام بنشر مارس 4, 2020 وعليكم السلام-حاول استخدام هذا الكود 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? 2 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر مارس 4, 2020 الكاتب مشاركة قام بنشر مارس 4, 2020 السلام عليكم اين احفظ الكود في ملف اكسل واحفظه في البارتيشن ؟؟؟ اعلمنا يرحمكم الله رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مارس 4, 2020 مشاركة قام بنشر مارس 4, 2020 وعليكم السلام -طبعا اخى الكريم فى ملف اكسيل 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها