J'aimerais protéger mes cellules contre la saisie manuelle, mais pas contre
l'écriture par vba. Comment faire ?
J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la feuille)
et qui la re-verrouille après modif, mais c'est long et pas très élégant !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour MP,
Dans le ThisWorkbook de ton classeur, insère cette procédure. Celle-ci s'exécute à l'ouverture du classeur. toto -> mot de passe '-------------------- Private Sub Workbook_Open()
With Worksheets("Feuil1") ' Nom onglet feuille à adapter .Protect "toto", Contents:=True, Userinterfaceonly:=True End With
End Sub '--------------------
Salutations!
"MP" a écrit dans le message de news: du3vh7$imc$ Bonjour,
J'aimerais protéger mes cellules contre la saisie manuelle, mais pas contre l'écriture par vba. Comment faire ? J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la feuille) et qui la re-verrouille après modif, mais c'est long et pas très élégant !
Merci pour vos réponses.
Marc
Bonjour MP,
Dans le ThisWorkbook de ton classeur, insère cette procédure.
Celle-ci s'exécute à l'ouverture du classeur.
toto -> mot de passe
'--------------------
Private Sub Workbook_Open()
With Worksheets("Feuil1") ' Nom onglet feuille à adapter
.Protect "toto", Contents:=True, Userinterfaceonly:=True
End With
End Sub
'--------------------
Salutations!
"MP" <moip@tiscali.fr> a écrit dans le message de news: du3vh7$imc$1@news.tiscali.fr...
Bonjour,
J'aimerais protéger mes cellules contre la saisie manuelle, mais pas contre
l'écriture par vba. Comment faire ?
J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la feuille)
et qui la re-verrouille après modif, mais c'est long et pas très élégant !
Dans le ThisWorkbook de ton classeur, insère cette procédure. Celle-ci s'exécute à l'ouverture du classeur. toto -> mot de passe '-------------------- Private Sub Workbook_Open()
With Worksheets("Feuil1") ' Nom onglet feuille à adapter .Protect "toto", Contents:=True, Userinterfaceonly:=True End With
End Sub '--------------------
Salutations!
"MP" a écrit dans le message de news: du3vh7$imc$ Bonjour,
J'aimerais protéger mes cellules contre la saisie manuelle, mais pas contre l'écriture par vba. Comment faire ? J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la feuille) et qui la re-verrouille après modif, mais c'est long et pas très élégant !
Merci pour vos réponses.
Marc
MP
Bonjour michdenis,
Merci, mais ça ne marche pas. Si j'ai bien compris, cette instruction verrouille l'accès de l'utilisateur aux macros, mais n'autorise pas la macro à écrire ou à modifier le classeur.
Marc
"michdenis" a écrit dans le message de news:
Bonjour MP,
Dans le ThisWorkbook de ton classeur, insère cette procédure. Celle-ci s'exécute à l'ouverture du classeur. toto -> mot de passe '-------------------- Private Sub Workbook_Open()
With Worksheets("Feuil1") ' Nom onglet feuille à adapter .Protect "toto", Contents:=True, Userinterfaceonly:=True End With
End Sub '--------------------
Salutations!
"MP" a écrit dans le message de news: du3vh7$imc$
Bonjour,
J'aimerais protéger mes cellules contre la saisie manuelle, mais pas contre
l'écriture par vba. Comment faire ? J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la feuille)
et qui la re-verrouille après modif, mais c'est long et pas très élégant !
Merci pour vos réponses.
Marc
Bonjour michdenis,
Merci, mais ça ne marche pas. Si j'ai bien compris, cette instruction
verrouille l'accès de l'utilisateur aux macros, mais n'autorise pas la macro
à écrire ou à modifier le classeur.
Marc
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eGLTO7TPGHA.3936@TK2MSFTNGP10.phx.gbl...
Bonjour MP,
Dans le ThisWorkbook de ton classeur, insère cette procédure.
Celle-ci s'exécute à l'ouverture du classeur.
toto -> mot de passe
'--------------------
Private Sub Workbook_Open()
With Worksheets("Feuil1") ' Nom onglet feuille à adapter
.Protect "toto", Contents:=True, Userinterfaceonly:=True
End With
End Sub
'--------------------
Salutations!
"MP" <moip@tiscali.fr> a écrit dans le message de news:
du3vh7$imc$1@news.tiscali.fr...
Bonjour,
J'aimerais protéger mes cellules contre la saisie manuelle, mais pas
contre
l'écriture par vba. Comment faire ?
J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la
feuille)
et qui la re-verrouille après modif, mais c'est long et pas très élégant !
Merci, mais ça ne marche pas. Si j'ai bien compris, cette instruction verrouille l'accès de l'utilisateur aux macros, mais n'autorise pas la macro à écrire ou à modifier le classeur.
Marc
"michdenis" a écrit dans le message de news:
Bonjour MP,
Dans le ThisWorkbook de ton classeur, insère cette procédure. Celle-ci s'exécute à l'ouverture du classeur. toto -> mot de passe '-------------------- Private Sub Workbook_Open()
With Worksheets("Feuil1") ' Nom onglet feuille à adapter .Protect "toto", Contents:=True, Userinterfaceonly:=True End With
End Sub '--------------------
Salutations!
"MP" a écrit dans le message de news: du3vh7$imc$
Bonjour,
J'aimerais protéger mes cellules contre la saisie manuelle, mais pas contre
l'écriture par vba. Comment faire ? J'ai aussi pensé ajouté un code qui déverrouille la cellule (ou la feuille)
et qui la re-verrouille après modif, mais c'est long et pas très élégant !
