Come impedire l'eliminazione di righe o colonne in una cartella di lavoro non protetta condivisa?

Quando condividi una cartella di lavoro con altri, come puoi impedire ad altri di eliminare le colonne o le righe della cartella di lavoro condivisa senza proteggere la cartella di lavoro? Qui trovo un codice VBA che può impedire ad altri di eliminare le colonne e le righe in una cartella di lavoro condivisa.

Impedisci l'eliminazione di righe o colonne in una cartella di lavoro condivisa con VBA

Impedisci l'eliminazione di righe o colonne in una cartella di lavoro condivisa con VBA

1. Stampa Alt + F11 aprire a Microsoft Visual Basic per l'applicazione finestra.

2. Clic inserire > Moduli per aprire una finestra del modulo, quindi copiare il seguente VBA nella finestra.

VBA: impedisce l'eliminazione di righe o colonne.

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3. Clic Correre pulsante o F5 tasto sulla tastiera per eseguire questo codice.

Quindi, quando gli altri fanno clic con il pulsante destro del mouse per eliminare le colonne o le righe selezionate, l'opzione Elimina non può essere applicata nel menu contestuale. Vedi screenshot:

Inoltre, impedisce agli utenti di utilizzare i tasti di scelta rapida Ctrl + - per eliminare righe o colonne.

Nota:

(1) Se hai condiviso la tua cartella di lavoro con Review > Condividi cartella di lavoro, non puoi più aggiungere macro VBA. Pertanto, è meglio aggiungere il VBA prima di condividere la cartella di lavoro.

(2) Questo VBA disabiliterà l'estensione Elimina nel menu contestuale in tutte le cartelle di lavoro quando fai clic con il pulsante destro del mouse su colonne o righe selezionate.

(3) Per ripristinare il file Elimina nel menu contestuale, sostituire entrambi Falso con I veri nel VBA sopra ed eseguire nuovamente VBA.