PASTE(YAPIŞTIR) YASAKLAMA

[hgenc545]

merhaba,

A dan D ye sınırsız satırlı dosyam için başka dosyalardan alınmış bilgilerin yapıştırılmasını istemiyorum... yani paste yapılmak istendiğinde yapıştırma yapılamasın.

böyle bir makro lazım bana. yardımcı olursanız sevinirim

 

[netzone]

Merhaba,
Şöyle bir kod buldum test ettim Excel içinde CTRL tuşuyla yapılanları engelliyor fakat dışarıdan bir bilgiyi panoya aldığınızda yapıştırmaya müsade ediyor.

Belki işini görür diyerekten:

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_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

İyi çalışmalar.