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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • avesina1351

    • 2011/03/06
    • 8
    #1

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

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

      • 2010/02/03
      • 436
      • 81.00
      #2
      RE: جلوگیری از copy;past

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

        کامنت

        • avesina1351

          • 2011/03/06
          • 8
          #3
          RE: جلوگیری از copy;past

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

            کامنت

            • avesina1351

              • 2011/03/06
              • 8
              #4
              RE: جلوگیری از copy;past

              سلام
              مثل اینکه کسی نبود جواب مرا بدهد بنابراین خودم رفتم وتوی اینترنت پیدا کردم :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

                  • 2011/03/06
                  • 8
                  #5
                  RE: جلوگیری از copy;past

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


                    کامنت

                    قبلی template بعدی
                    چند لحظه..