Discussion :

[debdev]

Bonjour à tous,

J'ai un petit souci de over-protection :-)

J'ai un fichier excel:
- certaines cellules sont à remplir par l'utilisateur: je ne les ai pas verrouillées
- d'autres non, mais elles vont afficher un calcul fait dans vba: je les ai verrouillées

Quand je lance mon code sans avoir protégé la feuille: tout marche.
Quand je lance mon code après avoir protégé la feuille: ça ne marche plus, mon code vba ne peut plus écrire dans les cellules verrouillées.

Code :

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

1
2
3
4
'E22 est une cellule verrouillée
 
ThisWorkbook.Sheets(MyWorsksheet).Range("E22") = "abcd" 'fonctionne si feuille non protégée
ThisWorkbook.Sheets(MyWorsksheet).Range("E22") = "abcd" ' ne fonctionne pas si feuille protégée

Comment dire "protège les actions des utilisateurs mais autorise mon code vba" ?
Faut-il que je déverrouille les cellules ? Car même si l'utilisateur écrit une connerie, mon code vba écrasera sa connerie...

Merci de votre aide.

[Invité]

Salut,

Tu peux encadrer tes modification dans ce bloc:

Code :

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

1
2
3
4
5
ThisWorkbook.Sheets(MyWorsksheet).Unprotect
 
  ...
 
ThisWorkbook.Sheets(MyWorsksheet).Protect

[debdev]

ça marche nickel, j'ai juste ajouté le mot de passe pour ne pas avoir de pop up me le demandant:

Code :

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

1
2
3
4
5
Dim myPassword As String
myPassword = "xxx"
ThisWorkbook.Sheets(MyWorsksheet).Unprotect Password:=myPassword
'...
ThisWorkbook.Sheets(MyWorsksheet).Protect Password:=myPassword

Merci !
Bonne journée