طريقة اتلاف شيت الاكسيل في حالة نقله لجهاز اخر

[hesham.rezk]

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

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

[Ali Mohamed Ali]

وعليكم السلام-يمكنك وضع هذا الكود فى حدث Thisworkbook بملفك ... فقط عليك بوضع اسم جهازك بالكود مكان ("Computername") بين القوسين .. وشكرا

وهذا كود بسيط لمعرفة اسم جهاز الكمبيوتر لديك .عند وضع بمديول عادى

Sub know()
Msgbox ENVIRON("Computername")
End Sub

Private Sub Workbook_Open()
Dim ChkName As String
ChkName = MY - PC
If Environ("Computername") <> ChkName Then
    MsgBox "File is only available to PC: " & ChkName, _
        vbCritical + vbOKOnly, "Cannot Open File"
    Application.DisplayAlerts = False
    ThisWorkbook.Close
    Exit Sub
Else
    MsgBox "PC security check passed.", vbOKOnly + _
        vbInformation, "File Open Succesful"
End If
End Sub