| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment désactiver sur Supprimer dans une feuille de calcul dans VBA
    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é.

    Previous :

    next :
      articles connexes
    ·Comment faire l'authentification NT en VB.Net 
    ·Comment définir des valeurs dans Silverlight 
    ·Comment faire un bouton sur VB 
    ·Comment faire pour vérifier les fonctions de VB6 à co…
    ·Comment convertir des nombres en texte dans Visual Basi…
    ·Visuels Outils de réseau de base 
    ·Comment lancer Adobe partir de Visual Basic 6 
    ·Comment calculer les jours ouvrables en Visual Basic 
    ·Comment remplacer les tirets dans Visual Basic 
    ·Comment programmer dans Access 2007 
      articles en vedette
    ·Comment trouver un intérêt dans un code en XML sur un…
    ·Comment créer un wrapper PHP 
    ·Comment mettre à jour colonne GridView Largeur 
    ·Comment formater nombres de Fibonacci en C + + 
    ·Comment obtenir un Modal jQuery show 
    ·Comment utiliser un fichier EXE dans Visual Basic Avec …
    ·Comment faire un appel API 
    ·Comment faire pour accéder aux variables d'un autre fi…
    ·Comment obtenir appuie sur la touche en Python 
    ·Comment exécuter un fichier PHP externe 
    Copyright © Connaissances Informatiques http://fr.wingwit.com