Macro de protection

Version imprimable

Macro de protection

Bonjour à tous & à toutes,
J'ai monté une macro pour figer certaines plages de cellule dans ma feuille, après on saisi des données et après je voudrais protéger totalement le feuille mais la ça coince
La macro de protection des plages de cellules est celle ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub Protec_grille() ' ' Protec_grille Macro ' ' Touche de raccourci du clavier: Ctrl+f ' Range("AR33:AT33").Select ActiveCell.FormulaR1C1 = "1" Range("AR33:AT33").Select Selection.ClearContents Range("BQ32:BU32").Select ActiveCell.FormulaR1C1 = "2" Range("BQ32:BU32").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=165 Range("AE205:AG205").Select ActiveCell.FormulaR1C1 = "-10" Range("AE205:AG205").Select Selection.ClearContents Range("AO213:AS213").Select ActiveCell.FormulaR1C1 = "2" Range("AO213:AS213").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-255 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
Qui pourrai me dire quelle macro mettre car si je fais protéger la feuille les parties saisissables le reste
Par avance merci
Chantal

bonsoir
j'ai trouver ça sur ce site si c'est ce que tu cherche

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim LigDeb, LigFin, ColDeb, ColFin
    LigDeb = 2: LigFin = 12
    ColDeb = 3: ColFin = 10
    Sheets("feuil1").Unprotect
    Range(Cells(LigDeb, ColDeb), Cells(LigFin, ColFin)).Locked = False
    Sheets("feuil1").Protect
 
End Sub

https://www.developpez.net/forums/d7...-via-userform/

16/03/2017, 07h52
chantaltreize

Merci

Merci ça fonctionne très bien
Chantal
16/03/2017, 08h23
eriiic

Bonjour,

pour info beaucoup de mauvaises pratiques sur ces quelques lignes.

1) .select inutiles qui ralentissent, mettre directement :

Code:

Range("AR33:AT33").FormulaR1C1 = "1"

2) pourquoi = "1" et non = 1 ?
"1" est du texte et ne sera pas pris en compte dans Somme()

3) pourquoi .FormulaR1C1 = "1" pour l'effacer aussitôt après avec .ClearContents ?
eric
16/03/2017, 08h32
chantaltreize

Merci beaucoup pour la réponse

Merci beaucoup pour la réponse