اخفاء مجلد

[TQTHAMI]

السلام عليكم ورحمة الله وبركاتة 

هناك امثله لتشفير المجلد 

وسؤال ؟

هل يوجد كود يخفي اي مجلد احددة مثلا ؟

 

[kanory]

4 ساعات مضت, TQTHAMI said:

السلام عليكم ورحمة الله وبركاتة 

هناك امثله لتشفير المجلد 

وسؤال ؟

هل يوجد كود يخفي اي مجلد احددة مثلا ؟

 

اعتقد اني رأيت مواضيع في المنتدى تتحدث عن ذلك ....

اما باخفاء المجلد أو تحويله الى ملفات نظام ... والله اعلم .... ابحث عنها اخي الكريم

[TQTHAMI]

السلام عليكم ورحمة الله وبركاته

دائما اقوم بالبحث قبل طرح سؤالي 

فقد استخدمت البحث ب

أخفاء ملف

أخفاء مجلد

أخفاء مجلدات

أخفاء ملفات 

تقريبا مررت على اكثر من 1103 موضوع تخص الاخفاء لم اجد طلبي فيها 

ولم اصل الى نتيجة واحدة 

واذا كان هناك ف يبدو  اني لم استطيع العثور عليها 

 

[kkhalifa1960]

هل هذا ماتبغاه 

SecretFolder.rar

[Ahmed_J]

16 ساعات مضت, TQTHAMI said:

هل يوجد كود يخفي اي مجلد احددة مثلا ؟

 

السلام عليكم

جرب الملف المرفق لاخفاء  او اظهار  المجلد مع التاكد من مسار المجلد

تحياتي

 

hide_show.accdb

تم تعديل فبراير 3, 2023 بواسطه Ahmed_J

[TQTHAMI]

السلام عليكم ورحمة الله وبركاتة

يسعد لي مساءكم بالخير

الاخ kkhalifa1960

اشكرك على تجاوبك ولكن قمت بتسبيط الملف التنفيذي ولا اعلم هل تم تسبيطه ام لا ولكن حصلت معي مشكله حيث ظهرت لي هذي الرسالة 

 

الاخ Ahmed_J

مثال رائع لكن للاسف قمت بغير مسار الملف ولكنة لم يعمل معي وجربته بجهاز اخر ونفس الشي ومرفق لك التغير وقد يكون الخطاء من 

Private Sub cmd_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objFolder = objFSO.GetFolder("C:\Users\tf\Desktop\myfolder")
Set objFolder = objFSO.GetFolder("C:\Users\tf1\OneDrive\Desktop\myfolder")
If Me![cmd].Caption = "hide" Then
Me.cmd.Caption = "show"
If objFolder.Attributes = objFolder.Attributes And 2 Then
    objFolder.Attributes = objFolder.Attributes Xor 2
End If
ElseIf Me![cmd].Caption = "show" Then
Me.cmd.Caption = "hide"
If objFolder.Attributes = objFolder.Attributes And 2 Then
    objFolder.Attributes = objFolder.Attributes Xor 2
End If
End If
End Sub

 

[Moosak]

وهنا صولات وجولات حول هذا الموضوع 🙂 

 

[AbuuAhmed]

17 دقائق مضت, TQTHAMI said:

مثال رائع لكن للاسف قمت بغير مسار الملف ولكنة لم يعمل معي

هذا الكود أنا وجدته قبل مشاركات الزملاء ليعمل من خلال الاكسل وأنا عدلت عليه ليعمل من خلال الأكسس ولكن بعد تجربتي له لم يعمل بشكل صحيح وتوقفت عن وضعه لكم.

[TQTHAMI]

السلام عليكم ورحمة الله وبركاتة

اسعدني مرورك 

مريت علية ولكن وجدت انه اكبر من امكانياتي البسيطة وحاولت قبل طرح سؤالي تجربة على الطريقه وبكل امتياز فشلت 

[AbuuAhmed]

نظمت لك الكود بدون محرر الفيجوال
جرب يمكن يشتغل معك.

Private Sub cmd_Click()
    set objFSO As Object, objFolder As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Users\tf1\OneDrive\Desktop\myfolder")

    If Me.cmd.Caption = "hide" Then
        Me.cmd.Caption = "show"
      If objFolder.Attributes = objFolder.Attributes And 2 Then
          objFolder.Attributes = objFolder.Attributes Xor 2
      End If
    Else
        Me.cmd.Caption = "hide"
        If objFolder.Attributes = objFolder.Attributes Xor 2 Then
            objFolder.Attributes = objFolder.Attributes And 2
        End If
    End If

    Set objFSO = Nothing
    Set objFolder = Nothing
End Sub

 

تم تعديل فبراير 3, 2023 بواسطه AbuuAhmed
التعديل في الكود

[TQTHAMI]

9 دقائق مضت, AbuuAhmed said:

هذا الكود أنا وجدته قبل مشاركات الزملاء ليعمل من خلال الاكسل وأنا عدلت عليه ليعمل من خلال الأكسس ولكن بعد تجربتي له لم يعمل بشكل صحيح وتوقفت عن وضعه لكم

يسعد لي مساءك ابو احمد ياليت تكمل مشوارك في التعديل عليه

[TQTHAMI]

للاسف لم تنجح 

[AbuuAhmed]

1 دقيقه مضت, TQTHAMI said:

للاسف لم تنجح 

أنا عدلت على الكود جرب مرة أخرى ، وهذا ما عندي عزيزي.

[Moosak]

جرب هذا الكود أخي @TQTHAMI 🙂 

شغله مباشرة واختر المجلد المطلوب ..

Sub SetFolderAttributesToHidden()
  Dim fso As Object
    Dim fldr As Object
    Dim folderPath As String
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  
    
    Set fldr = Application.FileDialog(4)
    
    If fldr.Show = -1 Then
        folderPath = fldr.SelectedItems(1)
    End If
  
  If folderPath <> "" Then
    fso.GetFolder(folderPath).Attributes = fso.GetFolder(folderPath).Attributes + 2
    MsgBox "Folder attributes set to hidden."
  Else
    MsgBox "No folder was selected."
  End If
  
Set fldr = Nothing
Set fso = Nothing
End Sub

 

[TQTHAMI]

عندي لم تنجح 

هل تم تجربته على اجهزتكم لان يمكن يكون مشكله عندي في الجهاز 

[محمد احمد لطفى]

أيوه اشتغلت عندى بتختار الملف بيختفى 

 

[TQTHAMI]

ممكن ترفق المتال بالملف 

[محمد احمد لطفى]

تفضل

Hide.mdb

[TQTHAMI]

اعتذر من الجميع يبدو ان المشكلة في الاجهزة عندي طالما انها تعمل عندكم 

سوف اقوم كالعادة بفرمتت الاجهزة عندي والتجربة 

[ابو عبد الرحمن اشرف]

 اخواني الكرام 

جربت الملف اللي بيخفي المجلد وتم اخفاءه فعلا وذهبت الي خصائص العرض لاظهار الملفات والمجلدات المخفية ولكنه لم يظهر 

والحدث الموجود بالملف اللي شغلته هو :

  Dim fso As Object
    Dim fldr As Object
    Dim folderPath As String
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  
    
    Set fldr = Application.FileDialog(4)
    
    If fldr.Show = -1 Then
        folderPath = fldr.SelectedItems(1)
    End If
  
  If folderPath <> "" Then
    fso.GetFolder(folderPath).Attributes = fso.GetFolder(folderPath).Attributes + 2
    MsgBox "Folder attributes set to hidden."
  Else
    MsgBox "No folder was selected."
  End If
  
Set fldr = Nothing
Set fso = Nothing
 

 

 

فارجو عمل كود للاخفاء والاظهار وليس الاخفاء فقط وشكرا

 

[محمد احمد لطفى]

حضرتك لو كررت هيعكس هيظهر

ويرجى تطوير الكود أن يكون مكان الملف فى الكود وليس اختياره من شاشة الويندوذ واختيار الاظهار و الاخفاء من النموذج 

و السبب أنه اذا كان مخفى يجب اظهار ملفات النظام لاختيار مرة ثانية و والسبب الاخر اذاى كان هناك الكثير من السجلات (الملفات) يمكن التحكم بها من خلال النموذح فى عرض السجل 

 

تم تعديل فبراير 4, 2023 بواسطه محمد احمد لطفى

[ابو عبد الرحمن اشرف]

اخي الكريم 

عند الضغط على زر إخفاء تظهر لي شاشه أخرى داخل الويندوز لكي اختار المجلد المراد اخفاءه 

قمت باختيار مجلد ما 

بالفعل تم اخفاءه 

الان اقوم بعمل العكس كيف 

فعند الضغط على زر إخفاء اذهب للبحث على المجلد فلم أجده 

ذهبت لخيارات العرض وعملت إظهار ملفات النظام المخفيه 

ظهر لي المجلد ولكنه مخفي اي بلون باهت وعلى خصائص المجلد موجود علامه مخفي ولا أستطيع تغييرها 

المطلوب إلغاء الاخفاء وان يعود المجلد كما كان 

شاكر لاهتمام حضرتك 

[محمد احمد لطفى]

بعد أن تقوم باظهار ملفات النظام أختر الملف مرة ثانية من البرنامج سيظهر لهذا أقول 
* أن يكون مكان الملف فى الكود وليس اختياره من شاشة الويندوذ واختيار الاظهار و الاخفاء من النموذج

لأن الملف بعد الاخفاء لن تستطيع اظهاره مرة ثانية إلا بعد السماح باظهار ملفات النظام

تم تعديل فبراير 4, 2023 بواسطه محمد احمد لطفى

[ابو عبد الرحمن اشرف]

تم الامر كما قلت اخي الفاضل وبفضل الله عاد المجلد كما كان بدون اخفاء

مشكور جدا اخي 

والمطلوب التعديل في النموذج كما قلت انت اخي الفاضل واليك النموذج بالمرفقات

 

Hide.mdb

[Eng.Qassim]

بناء على اقتراخ الاستاذ @محمد احمد لطفى..قمت بعمل مربع نص لادخال المسار

 

Hide.mdb