Comment empêcher la sélection de plusieurs feuilles de calcul dans Excel ?

Lorsque vous sélectionnez accidentellement plusieurs feuilles de calcul et que vous effectuez des modifications, tout le contenu sera appliqué à toutes les feuilles sélectionnées. Nous vous présentons ici une méthode pour éviter de sélectionner plusieurs feuilles en même temps, afin d'éviter que le même contenu n'apparaisse sur ces feuilles.

Empêcher la sélection de plusieurs feuilles avec du code VBA

Empêcher la sélection de plusieurs feuilles avec du code VBA

Veuillez suivre les étapes ci-dessous pour empêcher la sélection simultanée de plusieurs feuilles de calcul.

1. Dans la feuille de calcul que vous devez modifier, faites un clic droit sur l'onglet de la feuille et sélectionnez Affichage du code dans le menu contextuel.

2. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code de la fenêtre Microsoft Visual Basic for Applications qui s'affiche.

Code VBA : Empêcher la sélection multiple de feuilles dans Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
 On Error GoTo err_handler
    If ActiveWindow.SelectedSheets.Count > 1 Then
        If ActiveSheet Is Target.Parent Then
            Application.EnableEvents = False
            MsgBox "Please don't make changes with multiple sheets selected.", _
            vbInformation, "Kutools for Excel"
            Application.Undo
            ActiveSheet.Select
        End If
    End If

err_handler:
Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

3. Appuyez ensuite simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

4. Lorsque vous sélectionnez plusieurs feuilles de calcul avec la feuille actuelle, entrez du contenu et appuyez sur la touche Entrée, une boîte de dialogue Kutools for Excel apparaîtra comme indiqué dans la capture d'écran ci-dessous pour vous rappeler la sélection de plusieurs feuilles de calcul. Cliquez sur le bouton OK.

Après avoir cliqué sur le bouton OK, toutes les feuilles sélectionnées seront immédiatement dissociées.

Articles connexes :

• Comment supprimer toutes les feuilles sauf celle spécifiée/actuelle dans Excel ?
• Comment créer de nouvelles feuilles pour chaque ligne dans Excel ?
• Comment supprimer une feuille de calcul sans avertissement ni invite dans Excel ?