بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'ماستر باسورد'.
تم العثور علي 2 نتائج
-
الفكرة هى استبدال الباس ورد فى كود للحمايه الملف رئيسى باسم " control " المطلوب .. استبدال الباس ورد 123 بالقيمة الموجوده فى الخليه A1 فى الورقة SS فى ملف " عملاء" والملف " عملاء " وغيره مرتبطين بالملف الرئيسى " control " وخلية A1 فى الورقة SS فى ملف " عملاء " تأخذ قيمتها من الملف الرئيسى " control " وبتغير الباس ورد قى ملف " control " يتغير فى الخلية A1 فى الورقة SS فى ملف " عملاء" وكذلك فى جميع الملفات الأخرى المرتبطة . فيكون باسورد رئيسى هذا الكود يوضع فى كل الملفات Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub فهل يصلح هكذا Sub AUTO_OPEN() MyPassword = Sheets("SS").Range("A1") For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub
-
الفكرة هى استبدال الباس ورد فى كود للحمايه الملف رئيسى باسم " control " المطلوب .. استبدال الباس ورد 123 بالقيمة الموجوده فى الخليه A1 فى الورقة SS فى ملف " عملاء" والملف " عملاء " وغيره مرتبطين بالملف الرئيسى " control " وخلية A1 فى الورقة SS فى ملف " عملاء " تأخذ قيمتها من الملف الرئيسى " control " وبتغير الباس ورد قى ملف " control " يتغير فى الخلية A1 فى الورقة SS فى ملف " عملاء" وكذلك فى جميع الملفات الأخرى المرتبطة . فيكون باسورد رئيسى هذا الكود يوضع فى كل الملفات أعتزر لقد تكرر عرض السؤال وللأسف لم أعرف الطريقة لحزف هذا التكرار Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub فهل يصلح هكذا Sub AUTO_OPEN() MyPassword = Sheets("SS").Range("A1") For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub
