استفسار عن حماية ملف من النقل

[محمد الورفلي1]

السلام عليكم

استفسار1 : من  لدية ملف استخرج الرقم الهارد الاصلي الذي لايتغير بعد الفورمات

استفسار2 : ماهو كود الحماية للتطبيق شكراً مقدماً

[مختار حسين محمود]

أخى محمد  انظر الرابط    http://www.officena.net/ib/topic/64284-من-يريد-حماية-متميزة-لبرنامجه-يتفضل/     لأخينا ياسر العربى

وده كود منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد

' Private Sub Workbook_Open()
' Dim MyPath As String
' Dim MyFlName As String
'
'  MyPath = "Z:\SHARED GENERAL"
'  MyFlName = "TEST-1.xls"

'  If ThisWorkbook.Path <> MyPath Then
'      Application.DisplayAlerts = False
'      ThisWorkbook.Close
'  End If
 
'  If ThisWorkbook.Name <> MyFlName Then
'    Application.DisplayAlerts = False
'    ThisWorkbook.Close
'  End If
' End Sub
' Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

' Dim lReply As Long
'
' If SaveAsUI = True Then
' lReply = MsgBox("عفواً لايمكنك حفظ هذا الملف بإسم جديد .. هل تريد حفظ الملف بإسمه الحالي ؟", vbQuestion + vbOKCancel)
'     Cancel = (lReply = vbCancel)
'   If Cancel = False Then Me.Save
'     Cancel = True
'  End If
' End Sub

عدل فى الكود اسم و مسار الملف كما تشاء  فاذا كان اسم الملف  ومسار الملف غير المثبت فى الكود  لن يفتح الملف

تم تعديل أكتوبر 23, 2015 بواسطه مختار حسين محمود

[محمد الورفلي1]

شكراَ استاذ مختار