|
désactivation des options de suppression en vous Microsoft Office Excel demande l'aide de Visual Basic pour Applications, ou VBA , peut protéger les données dans les feuilles de calcul qui ne devraient pas être modifiés. Utilisez l'événement " Workbook_SheetBeforeRightClick " pour désactiver l'option "Supprimer" dans la barre de menu. Dans VBA, vous pouvez également protéger la feuille de calcul en ne permettant pas à l'utilisateur de supprimer tout contenu en utilisant la touche "Suppr " sur leur clavier. Instructions
1 lancement de Microsoft Office Excel , et tapez " 1" à " A1 ", "2 " à "A2 ", " 3" à " A3 ", " 4" à "A4 " et "5" dans " A5 ". Cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l'éditeur VB .
2 Double -cliquez sur " ThisWorkbook " dans le volet de l'Explorateur de projet pour ouvrir le module de code .
3 Copiez et collez le code suivant pour désactiver "Supprimer" sur la feuille de calcul :
Private Sub Workbook_SheetBeforeRightClick ( ByVal Sh As Object , ByVal Target As Range, Cancel As Boolean) < br > Dim cmdBCntrl Comme CommandBarControl
Dim pos As Integer
On Error Resume Next
Sh.Protect UserInterfaceOnly : = True
application . . . CommandBars ( "Cell" )
pos = Controls ( " Supprimer ... " ) Index de
Set cmdBCntrl = Controls.Add . ( Avant: = pos , Temporary : = True) Photos . Controls ( " Supprimer ... " ) . Supprimer
End With
On Error GoTo 0
End Sub
4 Revenez à Microsoft Excel , et essayer clic droit sur n'importe quelle cellule. Le menu ne comprendra pas l'option "Supprimer" . Appuyez sur la touche "Suppr " de votre clavier et vous obtiendrez un message indiquant que la cellule est protégé.
|
