Özel Yapıştır Özelliğini Geri Açmak

[CRAYZLOVEIS]

Arkadaşlar benim bir dosyamda aşağıdaki Thisworkbook bölümünde aşağıda yazılı olan kodlar var. Bu nedenle bu sayfada mousenin sağ tuşu kullanılmamaktadır. Acaba bu sayfada kopyala ve özel yapıştır bölümünü kullanmak için hangi kodları eklememiz gerekmektedir. Tşk.

Private Sub Workbook_Open()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False

End With
End Sub

 

[ECYavuz]

Elimde mevcut Kesme-Kopyalama ve Yapıştırma komutlarıyla ilgili kodlar aşağıda..
Sub DisableCutAndPaste() ve Sub EnableControl(Id As Integer, Enabled As Boolean) yi Thisworkbook bölümünde kullanırsanız engellersiniz;
Sub EnableCutAndPaste() ile Sub EnableControl(Id As Integer, Enabled As Boolean) yi Thisworkbook bölümünde kullanırsanız tekrar aktif hale getirirsiniz.

'Kullanıcıların çalışma kitabını açtıklarında kesme/kopyalama ve yapıştırma komutlarını kullanamaz.
Sub DisableCutAndPaste()
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
Application.CellDragAndDrop = False
End Sub

' BU KOD KISITLAMALARI AKTİF YAPAR
Sub EnableCutAndPaste()
EnableControl 21, True ' cut
EnableControl 19, True ' copy
EnableControl 22, True ' paste
EnableControl 755, True ' pastespecial
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

 

[CRAYZLOVEIS]

Kardeş sağol sanırım bu kodlar işime yarayacak ama hangisini ve nerede kullanacağımı bilemedim

 

[ECYavuz]

Thisworkbook bölümünde kullanırsanız aktif hale getirirsiniz.


' BU KOD KISITLAMALARI AKTİF YAPAR
Sub EnableCutAndPaste()
EnableControl 21, True ' cut
EnableControl 19, True ' copy
EnableControl 22, True ' paste
EnableControl 755, True ' pastespecial
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