جلوگیری از copy;past

[avesina1351]

با سلام خدمت اساتید عزیز و تشکر از زحمات شما
سوال :
یک سلول را با استفاده از validation به لیست خاصی مرتبط می کنیم به طوری که کاربر در هنگام استفاده فقط می تواند ازمقادیر لیست استفاده کند وصفحه را نیز protectمی کنیم
ولی کاربر می تواند با استفاده از copy;pastمقادیر دیگری را وارد لیست کند که مورد نظر ما نیست چطوری می شود از عمل copy;past جلوگیری کرد.
خیلی ممنون می شوم از پاسخ شما

[mrexcel]

با سلام
این سئوال را حدود 3 ماه پیش استاد شمس العلماء برای یکی از دوستان با کد ویبی حل نمودند خواهش میکنم در قسمت کدهای ویژوال بیسیک دنبالش بگردید

[avesina1351]

سلام
با تشکر از پاسخ داده شده هرچی گشتم نتوانستم پیدا کنم اگر امکان دارد لینک مطلب را برایم بگذار

[avesina1351]

سلام
مثل اینکه کسی نبود جواب مرا بدهد بنابراین خودم رفتم وتوی اینترنت پیدا کردم :D[/align]اینم کد مربوطه :
[/code]
Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"Cannot copy or ''drag & drop''.", 16, "For this workbook:"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub
این کد نمی دونم چرا بهم می ریزه.لینک اصلی
http://www.mrexcel.com/forum/showthread.php?t=84495
در هر حال برای مشاهده نحوه استفاده از این کد ونیز نمونه حل مسئله خواستید به وبلاگ من سر بزنید
http://www.nama.blogfa.com/

[avesina1351]

در داخل اینترنت گشتم وکدمربوطه را پیدا کردم این کد عمل cut, copy, paste, and drag & dropونیز راست کلیک را غیر فعال می کند
لینک اش اینه:
http://www.mrexcel.com/forum/showthread.php?t=84495
برای مشاهده نحوه استفاده از این کد ونیز نمونه حل مسئله فایل به وبلاگ من سر بزنید
http://nama.blogfa.com/