Risultati da 1 a 6 di 6

Discussione: Impedire comando taglia e incolla



  1. #1
    L'avatar di heavyduty79
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    cagliari
    Età
    38
    Messaggi
    1
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Impedire comando taglia e incolla

    Ciao a tutti, appena iscritto a questo forum e subito propongo un quesito che non sono riuscito a risolvere da solo e con l'ausilio di altri esperti.
    Ho sviluppato un file xls molto complesso caratterizzato da molti fogli e formule che dovrà essere utilizzato da molti utenti. Ho protetto il foglio ma ciò non impedisce che sia possibile fare taglia e incolla di celle, cosa che evidentemente vorrei evitare per preservare l'integrità dello stesso file.
    Sono un utente esperto ma non ho dimestichezza con vba.
    Ciò che vorrei è impedire il taglia e/o l'incolla di valori tagliati. Intendo via barra multifunzione, menu di tasto destro e combinazione di tasti. Sono riuscito per il momento solo a impedire il comando con le ultime due modalità. L'ideale sarebbe una macro che impedisce tutto insieme, ma che dia la possibilità di fare copia e incolla quanto meno di valori copiati da altri file.
    Aspetto fiducioso vostri riscontri.

  2. #2
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    863
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    63
    ciao,
    se il tuo intento è quello di preservare i dati...temo che sia impossibile o molto molto difficile...
    in ogni modo, così al volo per il semplice copia incolla prova, quando stai per proteggere i dati, nelle "operazioni consentite..." del proteggi foglio, a defleggare il primo check "seleziona cella bloccate".
    sempre che il tuo intento sia quello di limitare l'acquisizione dei dati.
    ciao
    ale

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    68
    Messaggi
    3638
    Versione Office
    2013 PC
    Likes ricevuti
    542
    Likes dati
    62
    Citazione Originariamente Scritto da heavyduty79 Visualizza Messaggio
    Ciao a tutti, appena iscritto a questo forum e subito propongo un quesito che non sono riuscito a risolvere da solo e con l'ausilio di altri esperti.
    Ho sviluppato un file xls molto complesso caratterizzato da molti fogli e formule che dovrà essere utilizzato da molti utenti. Ho protetto il foglio ma ciò non impedisce che sia possibile fare taglia e incolla di celle, cosa che evidentemente vorrei evitare per preservare l'integrità dello stesso file.
    Sono un utente esperto ma non ho dimestichezza con vba.
    Ciò che vorrei è impedire il taglia e/o l'incolla di valori tagliati. Intendo via barra multifunzione, menu di tasto destro e combinazione di tasti. Sono riuscito per il momento solo a impedire il comando con le ultime due modalità. L'ideale sarebbe una macro che impedisce tutto insieme, ma che dia la possibilità di fare copia e incolla quanto meno di valori copiati da altri file.
    Aspetto fiducioso vostri riscontri.
    Ciao Heavy non so quale sia il grado di conoscenza di excel delle persone che utilizzano il file che vuoi preservare. Ho trovato i giro questo codice che fa quanto desideri ma, naturalmente, è VBA e quindi anche se protetto gli smanettoni riescono a metterci le mani. Vedi un po' tu.

    Codice: 
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    On Error Resume Next
    
    
    With Application
        .CellDragAndDrop = True
        .OnKey "^c"
        .OnKey "^v"
        .OnKey "^x"
        .OnKey "+{DEL}"
        .OnKey "^{INSERT}"
        .CutCopyMode = False
    End With
    
    
    Dim Ctrl As Office.CommandBarControl
    
    
    For Each Ctrl In Application.CommandBars.FindControls(Id:=19) 'copy
        Ctrl.Enabled = True
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=21) ' Cut
        Ctrl.Enabled = True
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=22) ' Paste
        Ctrl.Enabled = True
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=755) ' Paste Special
        Ctrl.Enabled = True
    Next Ctrl
    
    
    End Sub
    
    
    Private Sub Workbook_Open()
        
    On Error Resume Next
        
    With Application
        .CutCopyMode = False
        .CellDragAndDrop = False
        .OnKey "^c", ""
        .OnKey "^v", ""
        .OnKey "^x", ""
        .OnKey "+{DEL}", ""
        .OnKey "^{INSERT}", ""
    End With
       
    Dim Ctrl As Office.CommandBarControl
    
    
    For Each Ctrl In Application.CommandBars.FindControls(Id:=19) ' Copy
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=21) ' Cut
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=22) ' Paste
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=755) ' Paste Special
        Ctrl.Enabled = False
    Next Ctrl
        
    End Sub
    
    
    Private Sub Workbook_Activate()
    
    
    On Error Resume Next
        
    With Application
        .CutCopyMode = False
        .CellDragAndDrop = False
        .OnKey "^c", ""
        .OnKey "^v", ""
        .OnKey "^x", ""
        .OnKey "+{DEL}", ""
        .OnKey "^{INSERT}", ""
    End With
        
        Dim Ctrl As Office.CommandBarControl
        
    For Each Ctrl In Application.CommandBars.FindControls(Id:=19) ' Copy
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=21) ' Cut
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=22) ' Paste
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=755) ' Paste Special
        Ctrl.Enabled = False
    Next Ctrl
       
    End Sub
    
    
    Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    
    
    Cancel = True
    MsgBox "Il tasto destro è disattivato per questo file", vbInformation, _
    "ATTENZIONE"
    
    
    End Sub
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
         Application.CutCopyMode = False
    End Sub
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        
    On Error Resume Next
        
    With Application
        .CutCopyMode = False
        .CellDragAndDrop = False
        .OnKey "^c", ""
        .OnKey "^v", ""
        .OnKey "^x", ""
        .OnKey "+{DEL}", ""
        .OnKey "^{INSERT}", ""
    End With
        
    Dim Ctrl As Office.CommandBarControl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=19) ' Copy
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=21) ' Cut
        Ctrl.Enabled = False
        Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=22) ' Paste
        Ctrl.Enabled = False
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=755) ' Paste Special
        Ctrl.Enabled = False
    Next Ctrl
        
    End Sub
    Private Sub Workbook_Deactivate()
    
    
    On Error Resume Next
    
    
    With Application
        .CellDragAndDrop = True
        .OnKey "^c"
        .OnKey "^v"
        .OnKey "^x"
        .OnKey "+{DEL}"
        .OnKey "^{INSERT}"
        .CutCopyMode = False
    End With
    
    
    Dim Ctrl As Office.CommandBarControl
    
    
    For Each Ctrl In Application.CommandBars.FindControls(Id:=19) ' Copy
        Ctrl.Enabled = True
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=21) ' Cut
        Ctrl.Enabled = True
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=22) ' Paste
        Ctrl.Enabled = True
    Next Ctrl
    For Each Ctrl In Application.CommandBars.FindControls(Id:=755) ' Paste Special
        Ctrl.Enabled = True
    Next Ctrl
    
    
    End Sub
    
    Ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. I seguenti 2 utenti hanno dato un "Like" a Baloon_50 per questo post:


  5. #4
    L'avatar di pazvega
    Clicca e Apri
    Data Registrazione
    Mar 2018
    Località
    brescia
    Messaggi
    16
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    5

    Re: Impedire comando taglia e incolla

    Ciao,
    ho trovato anche io la soluzione allo stesso problema utilizzando il codice proposto da baloon_50, tuttavia alla chiusura del file il asto dx del mouse non viene riabilitato e quindi anche in altre cartelle di lavoro non posso utilizzarlo.
    Specifico che il tasto destro non funziona sulle celle, nel senso che non appare il menù a tendina, mentre su grafici o tabelle funziona correttamente.
    Ho cercato diverse soluzioni in rete ma nessuna sembra funzionare.

    Potreste aiutarmi?

    Grazie mille.

  6. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    54
    Messaggi
    10112
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2587
    Likes dati
    1555

    Re: Impedire comando taglia e incolla

    Citazione Originariamente Scritto da pazvega Visualizza Messaggio
    Ciao,
    ho trovato anche io la soluzione allo stesso problema utilizzando il codice proposto da baloon_50, tuttavia alla chiusura del file il asto dx del mouse non viene riabilitato e quindi anche in altre cartelle di lavoro non posso utilizzarlo.
    Specifico che il tasto destro non funziona sulle celle, nel senso che non appare il menù a tendina, mentre su grafici o tabelle funziona correttamente.
    Ho cercato diverse soluzioni in rete ma nessuna sembra funzionare.

    Potreste aiutarmi?

    Grazie mille.
    Ciao,
    dovresti aprire una nuova discussione per la tua richiesta.

    Inoltre, come neo arrivato dovresti presentarti nella sezione "Presentati qui" (dicendo come sei arrivato al forum, le tue conoscenze di Excel e se lo usi per lavoro o per passione …..)


    Infine, dovresti mettere un'immagine come avatar sul tuo profilo
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. I seguenti utenti hanno dato un "Like"


  8. #6
    L'avatar di pazvega
    Clicca e Apri
    Data Registrazione
    Mar 2018
    Località
    brescia
    Messaggi
    16
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    5

    Re: Impedire comando taglia e incolla

    Ti ringrazio

Discussioni Simili

  1. [Risolto] Impedire cancellazione riga
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 05/02/17, 07:59
  2. [Risolto] Impedire la modifica su specifiche celle
    Di Domynix nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 07/01/17, 14:17
  3. [Risolto] Taglia _ Copia _ incolla
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 20/10/16, 17:19
  4. Taglia/Copia/Incolla Senza Indirizzi precisi
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 17/10/16, 11:10
  5. Impedire l'eliminazione di un file word
    Di CRISTIAN nel forum Domande sul Microsoft Word
    Risposte: 3
    Ultimo Messaggio: 01/06/16, 14:44

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •