Passer au contenu principal

Comment rendre la cellule en lecture seule dans Excel?

Dans de nombreux cas, vous devrez peut-être empêcher les autres de modifier certaines cellules spécifiées dans votre feuille de calcul. Cet article fournit deux méthodes pour vous aider à rendre les cellules spécifiées en lecture seule, afin que d'autres ne puissent pas modifier ces cellules sauf pour la lecture.

Rendre la cellule en lecture seule en protégeant la feuille de calcul
Rendre la cellule en lecture seule par le code VBA sans protéger la feuille de calcul


Rendre la cellule en lecture seule en protégeant la feuille de calcul

Vous ne pouvez verrouiller que les cellules que vous souhaitez rendre en lecture seule, puis protéger cette feuille de calcul pour y parvenir. Veuillez faire comme suit.

1. Cliquez sur l' bouton dans le coin supérieur gauche de la feuille de calcul actuelle pour sélectionner toutes les cellules.

2. appuie sur le Ctrl + 1 touches simultanément pour ouvrir le Format de cellule boite de dialogue. Dans la boîte de dialogue, décochez la case Fermé boîte sous la Directory onglet, puis cliquez sur le OK bouton. Voir la capture d'écran:

3. Sélectionnez maintenant les cellules que vous souhaitez rendre en lecture seule (ici, je sélectionne les cellules de la plage A1: C18). appuie sur le Ctrl + 1 touches simultanément pour ouvrir le Format de cellule boîte de dialogue, vérifiez le Fermé boîte sous la Directory onglet et cliquez sur le OK .

4. Allez-y pour cliquer Avis > Protéger la feuille. Voir la capture d'écran:

5. Spécifiez et confirmez votre mot de passe pour protéger la feuille de calcul comme illustré ci-dessous.

Les cellules de la plage verrouillée sont désormais en lecture seule. Lorsque vous essayez de modifier ces cellules spécifiques à l'intérieur de la plage, vous obtiendrez une boîte de dialogue comme ci-dessous.


Protégez plusieurs / toutes les feuilles de calcul avec un mot de passe en même temps dans le classeur actuel:

Microsoft Excel vous permet de protéger une feuille de calcul avec un mot de passe à la fois. Ici, vous pouvez utiliser le Protéger la feuille de travail et Déprotéger la feuille de travail utilitaires de Kutools for Excel pour protéger ou déprotéger rapidement plusieurs feuilles de calcul ou toutes les feuilles de calcul du classeur actuel avec un mot de passe en même temps.
Téléchargez et essayez-le maintenant! (essai gratuit de 30 jours)


Rendre la cellule en lecture seule par le code VBA sans protéger la feuille de calcul

Si vous ne souhaitez pas protéger la feuille de calcul pour rendre la cellule en lecture seule. Le script VBA de cette section vous aidera à résoudre ce problème facilement.

1. Cliquez avec le bouton droit sur l'onglet de feuille dont vous avez besoin pour rendre la cellule en lecture seule, puis cliquez sur Voir le code dans le menu contextuel.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA ci-dessous dans la fenêtre Code.

Code VBA: rendre la cellule en lecture seule dans Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 4 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
            MsgBox Cells(Target.Row, Target.Column).Address & " cannot be selected and edited as it is a read-only cell", _
            vbInformation, "Kutools for Excel"
        End If
    End If
End Sub

Notes: Ce code peut simplement créer des cellules spécifiées dans une colonne en lecture seule. Dans ce code, il rendra les cellules A3, A4 et A5 en lecture seule dans la feuille de calcul actuelle.

3. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

En cliquant sur la cellule A3, A4 ou A5 dans la feuille de calcul actuelle, vous obtiendrez un Kutools for Excel boîte de dialogue comme illustré ci-dessous, et le curseur se déplacera automatiquement vers la cellule adjacente droite.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very useful!!
This comment was minimized by the moderator on the site
Hi! How about if i want to just make 1 column editable and the rest uneditable? Thanks!
This comment was minimized by the moderator on the site
Hi Jac,
Please click on the column header to select the whole column, then do the steps mentioned in the post to unlock the column cells then protect the worksheet.
This comment was minimized by the moderator on the site
every usefull, thank you with gratitude
This comment was minimized by the moderator on the site
Thanks for the quick guidance.
This comment was minimized by the moderator on the site
Hi



I have mulipe sheets Menu ( option A1& A2) , A1 and A2 and VIEW work sheets ( where i will have BROWSE button) .



1. In menu i will select A1..

2. it will go to VIEW sheet ( which is working fine) till now ..

3. when i click on the BROWSE in the VIEW sheet A1 shee shoulf get displayed and the content present in the cells should be non editable..



Could you please help..
This comment was minimized by the moderator on the site
Good day,
Supposing there is a Command Button (ActiveX Control) in the View sheet. After inserting the below VBA into the worksheet code window, click on the button, in a popping up Kutools for Excel dialog box, specify a password to protect the sheet A1. Then sheet A1 is opened and non editable.

Private Sub CommandButton1_Click()
Dim xSheet As Worksheet
Dim xStr As String
On Error Resume Next
Set xSheet = Sheets("A1")
If xSheet Is Nothing Then Exit Sub
xSheet.UsedRange.Locked = True
xStr = Application.InputBox("Please specify a password to protect the sheet A1", "KuTools for Excel", , , , , , 2)
If xStr = False Or xStr = "" Then Exit Sub
xSheet.Protect xStr
xSheet.Activate
End Sub
This comment was minimized by the moderator on the site
i just want to make few cells of a book locked for input, only they shows the result as i programmed them to do so
This comment was minimized by the moderator on the site
Hey, Thanks a lot for this steps.


However, what if I want to copy the values in the cells that I have locked?
This comment was minimized by the moderator on the site
Dear Yahia,
The locked cells in a protected worksheet can't be copied.
This comment was minimized by the moderator on the site
Very Helpful. Thanks ! :D
This comment was minimized by the moderator on the site
Dear i want to protect the hidden cells from by copying to the new sheet, is there any option in the excel sheet for that. Means no can able to view the formulaes after copying from one sheet to other sheet.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations