hücre taşımayı iptal etme

[mehmetemintatli]

Merhabalar

Sayfada hücreler satır ve sütunların korunmasını ve taşıma yapılmamasını istiyorum nasıl yapmalıyım ?

Mehmet Emin TATLI

 

[mehmetemintatli]

Sayfada hücreler satır ve sütunların korunmasını ve taşıma yapılmamasını istiyorum nasıl yapmalıyım ?

Mehmet Emin TATLI

 

[ECYavuz]

Selam,

VBA da aşağıdaki kodları kullanıyorum. Belki işine yarar...

Sub DisableCutAndPaste() ' Kes-kopyala pasif
EnableControl 21, False ' kes
EnableControl 19, False ' kopyala
EnableControl 22, False ' yapıştır
EnableControl 755, False ' özel yapıştır
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
Application.CellDragAndDrop = False
End Sub

Sub EnableCutAndPaste() ' Kes-kopyala Etkin
EnableControl 21, True ' kes
EnableControl 19, True ' kopyala
EnableControl 22, True ' yapıştır
EnableControl 755, True ' özel yapıştır
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
Application.CellDragAndDrop = True
End Sub

Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub