Come disattivare Eliminazione di un foglio in VBA

Disattivazione opzioni di eliminazione a voi l'applicazione di Microsoft Office Excel utilizzando Visual Basic, Applications Edition , o VBA , in grado di proteggere i dati in fogli di lavoro che non possono essere modificati . Utilizzare l'evento " Workbook_SheetBeforeRightClick " per disattivare l'opzione "Elimina" dalla barra dei menu . In VBA , è anche possibile proteggere il foglio di lavoro , non consentendo all'utente di eliminare qualsiasi contenuto con il tasto " Canc " sulla loro tastiera . Istruzioni
1

lancio di Microsoft Office Excel , e digitare " 1 " a " A1 ", "2" a " A2 ", "3" a " A3 ", "4" in " A4 " e "5" a " A5 ". Fare clic sulla scheda "Sviluppatore " , e fare clic su " Visual Basic " per lanciare il VB Editor .
2

doppio clic su " ThisWorkbook " dal riquadro Esplora progetti per aprire il modulo di codice .


3

Copia e incolla il seguente codice per disattivare "Cancella " sul foglio di lavoro :

private Sub Workbook_SheetBeforeRightClick ( ByVal Sh As Object , ByVal target As Range, Cancel As Boolean )

Dim cmdBCntrl Come CommandBarControl

Dim pos As Integer

On Error Resume Next

Sh.Protect UserInterfaceOnly : = True

Con Application . . . CommandBars ( "Cell " ) per

pos = Controls ( "Elimina ... " ) Indice

cmdBCntrl = Controls.Add . ( Prima: = pos , Temporary : = True )

. Controls ( "Elimina ... " ) . Elimina

End With

On Error GoTo 0

End Sub
4

tornare a Microsoft Excel , e cercare il pulsante destro del mouse su qualsiasi cella . Il menu non includerà l'opzione "Elimina" . Premere il tasto " Canc " sulla tastiera e si otterrà un messaggio che indica che la cella è protetta .

• Come utilizzare GetSetting in VB6 
• Come compilare un campo in VB Accesso