knippen en kopieren

[jan excel]

Beste experts,

Onderstaande code heb ik van internet geplukt en in het workbook geplaatst.
De code doet wat het doen moet, namelijk er kan uit een werkblad geen kopieën worden gemaakt naar een ander werkblad etc.

Echter mijn project haalt gegevens uit een data base en gebruik hierbij de kopieer functie om gegevens in mijn project te plakken. Echter nu lukt dit niet als ik onderstaande code in het workbook laat staan.

Het zal best mogelijk zijn denk ik om een bepaalde code aan betreffende commandobutton te hangen die deze beveiliging tijdelijk kan om zeilen, weet iemand of dat mogelijk is en hoe ?


alvast bedankt

Private Sub Workbook_Activate()
kopieer_knip (False)
End Sub

Private Sub Workbook_Deactivate()
kopieer_knip (True)
End Sub

Sub kopieer_knip(blnWat As Boolean)
Dim ctrlKnop As CommandBarControl

For Each ctrlKnop In Application.CommandBars.FindControls(ID:=21)
ctrlKnop.Enabled = blnWat
Next ctrlKnop

For Each ctrlKnop In Application.CommandBars.FindControls(ID:=19)
ctrlKnop.Enabled = blnWat
Next ctrlKnop

Application.CellDragAndDrop = blnWat

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Application
.CellDragAndDrop = False
.CutCopyMode = False 'Clear clipboard
End With
End Sub

 

[Elsendoorn2134]

Jan Excel,

Simpel, je gebruikt de bestaande code, zet alleen aan het begin van je code de kopieerbeveiliging uit: Kopieer_knip(True)
Daarna gewoon je code laten uitvoeren, en zet tenslotte de beveiliging weer aan: Kopieer_knip(False).
Klaar.

Veel Succes.

 

[jan excel]

hoi ElsenDoorn,

Bedankt voor het antwoord, hier kan ik weer verder mee expermiteren.

groet,
jan e