beveiligen tegen plakken in werkblad

[alphen]

Hallo,

Ik heb een registartie tool gebouwd voor mijn collega's. Echter wat nu gebeurd is dat men hier info in kopieerd van uit andere bronnen. Dit verminkt de layout en de cellen welke een validatie hebben.

Wie heeft er een idee hoe ik er voor kan zorgen dat men niets meer kan plakken en verslepen.

BVD

Gr Henjo

 

[peter59]

Het e.e.a. beveiligen??

Of is dit te kort door de bocht??

Mvg Pie

 

[alphen]

Beste Peter,

beveiligen kan en heb ik al gedaan maar er zijn cellen waar men iets inmoet vullen. Daarin plakt men nu de info met alle gevolgen van dien.

Gr henjo

 

[alphen]

bestaat er de mogelijkheid om alleen plakken als waarden toe te staan en dat men niet kan sleppen met cellen?

Gr henjo

 

[Roncancio]

Onderstaande code vond ik op internet.
Zet de code in ThisWorkbook en sla je bestand op.

Private Sub Workbook_Activate()

Dim oCtrl As Office.CommandBarControl
    For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
           oCtrl.Enabled = False
    Next

    For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
           oCtrl.Enabled = False
    Next
    Application.CellDragAndDrop = False

End Sub

Private Sub Workbook_Deactivate()

Dim oCtrl As Office.CommandBarControl
    For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
       oCtrl.Enabled = True
    Next
    
    For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
       oCtrl.Enabled = True
    Next oCtrl
    Application.CellDragAndDrop = True

End Sub

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

End Sub

Bij het openen van het bestand kan men in het bestand geen waardes slepen of kopiëren.
Ik heb een bestand bijgevoegd waarin de code al is geplaatst.

Met vriendelijke groet,



Roncancio

 

[alphen]

Beste Roncancio

Dit is wat ik zoek. Mijn vraag is hoe krijg ik deze code in mijn bestand. En hoe kan ik het uitzetten als ik iets wil verbouwen in het bestand.

Gr Henjo

 

[Roncancio]

De code kan je plaatsen in ThisWorkbook.
Dat kan je vinden door in het werkblad Alt-F11 te klikken en vervolgens CTRL-R.
Links zie je vervolgens een lijst van tabbladen en onder meer ook ThisWorkbook dat voor het gehele bestand geldt.

Wat betreft je 2e vraag zou je een knop aankunnen brengen die het kopiëren tijdelijk aan- en uitschakelt.

Met vriendelijke groet,


Roncancio

 

[alphen]

Beste Roncancio

Bedankt volgens mij is het gelukt. Ctrl -R werkt niet.

Hoe zou ik een deregelijk knop kunnen maken. ik het getracht om deactivet te gebriuken maar dat haalde niets uit

Gr henjo

 

[peter59]

Hallo alphen

2 stuks knoppen toegevoegd in het voorbeeld van Roncancio

mvg Pie

 

[alphen]

Heren,

Met verbasing zie ik wat er allemaal mogelijk is binnen excel.

Mijn vraag hoe kan ik de knoppen toevoegen en hoe kan ik deze beveiligen. Ik heb de codes van Roncancio al toegevoegd.

De sheet is te groot om mee te sturen

Gr Henjo

 

[alphen]

Heren,

ik zie dat het nu in al mijn bestande zit. hoe kan ik deze code uit zetten / uit mijn bestanden halen?

Gr henjo

 

[Roncancio]

Je kunt inderdaad 2 knoppen gebruiken maar je zou ook gebruik kunnen maken van een wisselknop (aan- en uitknop).
In het bestand heb ik een wisselknop toegevoegd en bovendien de code aangepast.
Zo heb je ook minder code nodig.

Het is maar net wat je prettig vindt werken.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Heren,

ik zie dat het nu in al mijn bestande zit. hoe kan ik deze code uit zetten / uit mijn bestanden halen?

Gr henjo

Je kunt bij VBA de module waar de code instaat, slepen naar je bestand.
Je hoeft dan alleen de knoppen nog aan te maken.

Met vriendelijke groet,


Roncancio

 

[alphen]

Beste Roncancio

Ik zie dat ik nu zelfs in mijn blanko excel document niet meer kan plakken. Hoe kan ik dit uitzetten.?? hoe kom ik terug naar de orginele staat?

Gr henjo

 

[Roncancio]

Volgens mij klopt het zo beter.

Met vriendelijke groet,


Roncancio

 

[alphen]

Beste Roncancio

hoe kan ik er weer voor zorgen dat ik in alle sheet gewoon weer kan knippen en plakken??

Help!

Ik heb het idee dat ale mijn excell sheets zijn aangepast?

Gr henjo

 

[alphen]

Heren,

nu snap ik het niet meer. In mijn blanco sheet kan ik niet weer alles.

Hoe kan / moet ik dergelijke knop maken

Gr Henjo

 

[alphen]

Help
Heren,

ik begin nu echt aan mij zelf te twijfelen. in mijn blanco execl sheet kan ik niet plakken. Is ook uitgegrijsed.

Hoe krijg ik de boel weer terug naar de orginele staat?

Gr henjo

 

[Roncancio]

Beste Roncancio

hoe kan ik er weer voor zorgen dat ik in alle sheet gewoon weer kan knippen en plakken??

Help!

Ik heb het idee dat ale mijn excell sheets zijn aangepast?

Gr henjo

De code is inderdaad voor het gehele bestand.
Met onderstaande code kan je weer knippen en plakken.

Dim oCtrl As Office.CommandBarControl
    For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
       oCtrl.Enabled = True
    Next
    
    For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
       oCtrl.Enabled = True
    Next oCtrl
    Application.CellDragAndDrop = True

Ik denk overigens dat het beter is als je (een gedeelte van) het bestand hier plaatst zodat we het kunnen aanpassen.

Met vriendelijke groet,


Roncancio

 

[alphen]

Beste Roncancio

de andere excel sheet / bestanden zijn toch niet aangepast.

Zou ik je het bestand kunnen mailen?


Gr Henjo