ماستر باسورد

[samycalls2020]

الفكرة هى استبدال الباس ورد فى كود للحمايه

الملف رئيسى باسم " 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

 

تم تعديل أغسطس 15, 2017 بواسطه samycalls2020