Discussion :

[jijie]

Bjrs à tous,

Pour que l'utilisateur ne change pas la cellule d'une feuille je la fait protéger
et je cache les autres feuille lorsqu'il sort de l'userform

Code :

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

1
2
3
4
5
6
7
Sheets("Factures").Visible = False 'rendre la feuille invisible
 
 
Worksheets("Factures").Select
Range("b5").Select
 
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' protége la feuille

. Pour retourner au menu je l'oblige à appuyer sur un bouton placer en haut de la feuille et je marque dans mon code

Code :

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

1
2
3
4
ActiveSheet.Unprotect 'ôté la protection de la feuille
 
 
UserForm8.Show ' je vais sur le menu de l'useform

Jusque la tout va bien, mais lorsque je fait faire des écritures via 1 userform il me trouve tjrs une feuille protégée.
Alors je voudrais trouver la solution pour afficher toute les feuilles du classeur et déprotéger toutes ces feuilles? Cela est-il possible sur une ligne?

jy

[ouskel'n'or]

Code :

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

1
2
3
4
Dim LaFeuille as worksheet
For each LaFeuille in ActiveWorkbook.Worksheets
      LaFeuille.unprotect
Next

Tu dis
A+

[Gorfael]

Code :

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

1
2
3
4
Dim LaFeuille as worksheet
For each LaFeuille in ActiveWorkbook.Worksheets
      LaFeuille.unprotect
Next

Tu dis
A+

Salut
ou autre possibilté, ta macro d'écriture, tu la commences par une déprotection et tu la finis par une protection
A+

[jijie]

OK ça roule merci lles CHEF!!

jy