اذهب الي المحتوي
أوفيسنا

تشفير المرفقات


النجاشي
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

السلام عليك احبتي

وجدت هذا الكود للاستاذ جعفر ما عرفت الطريقه لتطبيقه على مثالي لكي يعرض لي المرفق المشفر

اريد تطبيقه علي المثال شاكرين احبتي

Source_File_Path = Me.Parent!pate & "\" & Me.name_morfke

.

يعني كودي في اول مشاركة يصبح بعد التعديل :

Private Sub name_morfke_Click()

    Dim Source_File_Path As String, Destination_File_Path As String
    
    Source_File_Path = me.parent!pate & "\" & Me.name_morfke
    Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke
    FileCopy Source_File_Path, Destination_File_Path
    
    Application.FollowHyperlink (Destination_File_Path)
    EcryptDcryptImage (Destination_File_Path)
End Sub

Private Sub Form_Close()
On Error Resume Next

    Dim Srst As DAO.Recordset
    Set Srst = Me.RecordsetClone
    Do Until Srst.EOF
        Kill Environ("Temp") & "\" & Srst!name_morfke
        Srst.MoveNext
    Loop
End Sub

 

RR.rar

رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم 🙂

 

انا متعمد ما ارد عليك ، لأني خايف عليك من موضوع التشفير !!

اذا لأي سبب كان ، وصارت عند الزبون مشكلة ، فلن يستطيع رؤية مرفقاته ، وجنت على نفسها براقش !!

وش لك بالبحر واهواله ورزق الله على السِيف 🙂

 

التشفير لن يزيد ولا يُنقص في برنامجك شيء ، فهو للمؤسسات اللي تخاف من المشاكسين ان يروا الممنوع 🙂

 

جعفر

رابط هذا التعليق
شارك

11 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

انا متعمد ما ارد عليك ، لأني خايف عليك من موضوع التشفير !!

اذا لأي سبب كان ، وصارت عند الزبون مشكلة ، فلن يستطيع رؤية مرفقاته ، وجنت على نفسها براقش !!

وش لك بالبحر واهواله ورزق الله على السِيف 🙂

 

التشفير لن يزيد ولا يُنقص في برنامجك شيء ، فهو للمؤسسات اللي تخاف من المشاكسين ان يروا الممنوع 🙂

 

جعفر

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

استاذي الفاضل  ابو الجعافر😂 ليس لزبون الموضوع وانما لصديق عزيز طلب مني هذا

ما دام وانت متعمد ما ترد راح ارفع عليك دعوه قضائيه بمحكمه سلطنه عمان ياصديقي العزيز هههههههههه

حفظك الله ورعاك استاذنا الغالي

تحياتي اليكم احبتي

رابط هذا التعليق
شارك

13 ساعات مضت, jjafferr said:

خلاص اقنعتني 😁

كيف احصل على مسار وطريقة حفظك للمجلدات والملفات ، فالمعلومات في الجدول لا علاقة لها بمسار واسماء الملفات اللي ارسلتها !!

 

جعفر

الله يعطيك العافيه استاذي الفاضل صحيح كان خطاء في الملفات وهي A001 وA002 والصحيحA0001 وA0002 بالجدول وعملت تصحيح لها

وشوف بالوحده النمطيه لداله من عمل استاذنا ابو ابراهيم تتحسس الملفات بجوار القاعده وهي

Public Function GetFileDirectory(MainPath As Object, Optional FileName As Variant)
   Dim OFIL As Scripting.File, OFILS As Scripting.Files
   Dim OMFD As Scripting.Folder, OSFD As Scripting.Folder
   Static XFileName As String, FilePath   '.. Static Declaration reserved value when function recoll
   
   '-- get filename in first time call and reserved value
   If Not IsMissing(FileName) Then
    XFileName = FileName
   End If
   
   '-- loop for subfolders in his parent folder
   For Each OSFD In MainPath.SubFolders
      
      Set OMFD = FSO.GetFolder(OSFD.Path)
      Set OFILS = OSFD.Files
      
      '-- loop for file in each folder
      For Each OFIL In OFILS
         If OFIL.Name = XFileName Then
            FilePath = OFIL.Path
            GoTo TheEnd
         End If
      Next
      '-- Function recoll himself with subfolder
      GetFileDirectory OSFD
   Next
TheEnd:
   '-- Function return filepath if file found
   GetFileDirectory = FilePath
End Function


واذا لم تتضح لك الفكره راح ارفق لك مثال مصغر بحيث تضيف منه الصوره وتعرضها ولكن بطريقه غير مشفره

تحياتي يالغالي

تم تعديل بواسطه jjafferr
لتنسيق الكود: استعمل <> القائمة ، ووضع الكود في نافذته
رابط هذا التعليق
شارك

هذا المرفق الاخير به الاضافه والعرض 

بدون _تشفير.rar

تم تعديل بواسطه النجاشي
رابط هذا التعليق
شارك

في 31‏/1‏/2023 at 23:24, jjafferr said:

تفضل 🙂Encode_Decode.zip

رفع الله قدرك وزادك علما ممتاز جدا

هو المطلوب  مليار تحيه للاستاذ جفر حفظه الله ومشكورررررررررررر

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information