Discussion :

[MAHB34]

Bonsoir,

Je souhaite protéger une feuille, sauf certaine cellule (B4, C4, D4 et B6).

Je pense qu'un code pour cette manipulation est obligatoire puisque la protection par le clique-droit sur l'onglet empêche l’exécution du code de la feuille

Je n'ai aucune idée du code à composer ni ou le mettre.

[Docmarti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Proteger_La_Feuille()
 
'Verrouiller toutes les cellules
    ActiveSheet.Cells.Locked = True
    ActiveSheet.Cells.FormulaHidden = False
'Déverrouiller certaines cellules
    ActiveSheet.Range("B6").Locked = False
    ActiveSheet.Range("B6").FormulaHidden = False
 'Protéger la feuille
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
End Sub
Sub Modifier_la_feuille_par_Code()
'Déprotéger
 ActiveSheet.Unprotect
 'Modifier
 ActiveSheet.Cells(1, 2).Value = "Mon texte"
 'Reprotéger
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

[MAHB34]

Merci pour cette réponse, mais jai besoin de quelque info sup

Ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("B6").Locked = False
    ActiveSheet.Range("B6").FormulaHidden = False

doit être répété pour chaque cellules à déverrouiller?

A la place de "Mon texte" je doit mettre le mot de passe de modification?

Et enfin Comment déprotéger et re-protéger la feuille ( ou taper le code ) ?

Merci

[Docmarti]

En fait si tu veux simplement protéger la feuille sans passer par du code, fais un clic droit sur l'onglet de la feuille et un clic gauche sur "Protéger la feuille". Et Excel va te demander ton mot de passe.
Pour déprotéger, c'est la même manoeuvre.

[MAHB34]

Sa je sais faire mais en passant par cette manipulation, tous les codes de la feuille ne peuvent plus s’exécuter.

Je cherche à protéger ma feuille par du code mais pouvoir la déprotéger lorsque je doit modifier des données.

[Docmarti]

En fait si tu veux simplement protéger la feuille sans passer par du code, fais un clic droit sur l'onglet de la feuille et un clic gauche sur "Protéger la feuille". Et Excel va te demander ton mot de passe.
Pour déprotéger, c'est la même manoeuvre.

J'oubliais. Pour déverrouiller certaines cellules, un clic droit sur les cellules à déverrouiller et choisir "Format de cellule" puis "Protection". Enlever le crochet pour déverrouiller la cellule.
Ensuite il faut obligatoirement protéger la feuille.

[Docmarti]

Sa je sais faire mais en passant par cette manipulation, tous les codes de la feuille ne peuvent plus s’exécuter.

Je cherche à protéger ma feuille par du code mais pouvoir la déprotéger lorsque je doit modifier des données.

Fais un clic droit sur l'onglet de la feuille à protéger, puis "Visualiser le code"
Ca te conduit directement là où doit se trouver le code de cette feuille.
Tu peux y taper ou y coller le code suivant en y mettant le mot de passe que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Deproteger_Cette_Feuille_Pour_Pouvoir_Y_Faire_Des_modifications()
Me.Unprotect Password:="TonMotDePasse"
End Sub
Sub ReProteger_Cette_Feuille()
Me.Protect Password:="TonMotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub