كود لقفل الفولدرات (لا يفتح الا برقم سري)

[ابايوسف]

السلام عليكم

محتاج كود لقفل الفولدرات (البارتيشن)

إلا برقم سري

 

 

[Ali Mohamed Ali]

وعليكم السلام-حاول استخدام هذا الكود

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?

[ابايوسف]

السلام عليكم

اين احفظ الكود

في ملف اكسل واحفظه في البارتيشن ؟؟؟

اعلمنا يرحمكم الله

[Ali Mohamed Ali]

وعليكم السلام -طبعا اخى الكريم فى ملف اكسيل