KOPYA ENGELLEME?

[recep]

BİR EXCEL DOSYASININ KOPYALANMASINI ENGELLENEBİLİR Mİ? :?

 

[hamzacan]

Ã?ğrendiklerimize göre Farklı Kaydetme özellikleri falan engelleniyor ama kopyalanmasının engellenebileceğini zannetmiyorum.

 

[birol_mumcu]

merhaba;
Aşağıdaki kod kullanıcının kullanmakta olduğu dosyasını (farklı kaydet) yapmasını engeller.
'KOD Thisworkbook'a yazılacak
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Cancel = True'False farklı kaydede izin verir.
End If
End Sub
veeee
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
veee
Belli menu ve komutları (hem araç çubuğunda hem de sağ klik tuşundaki pop-up menüleri) seçilemez
sub menükomutlarıiptal()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=847)
Ctrl.Enabled = False'True menüleri aktif yapar
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=889)
Ctrl.Enabled = False'True menüleri aktif yapar
Next Ctrl
end sub
'MENÜ KOMUTLARINI AÇAR.
sub menükomutlarıaç()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=847)
Ctrl.Enabled = True'True menüleri aktif yapar
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=889)
Ctrl.Enabled = True'True menüleri aktif yapar
Next Ctrl
end sub
kodlar syn NURZİYA HİÇDURMAZ'A aittir
kolay gelsin