A
AVORIAZ
Guest
salut,
voila mon probleme :
dans mon application j'ai une feuille souche ou j'ai qqes cellules qui se remplissent via un interface userform valeur de texbox
cette feuille de souche contient via un tableau exel tout les parametres de calcul qu'il faut proteger pour eviter les modifications du calcul
cependant elle dois etre quand meme accessible a l'ecriture via la texbox qui permet de rentrer les donnees du calcul !!!
et la j'arrive a cacher la feuille souche de l'affichage et la proteger mais si elle est proteger le calcul se fais pas parce la feuille est justement proteger pour ecrire la valeur de la texbox ...
en gros si je protege j'interdit l'utilisateur de modifié mais j'interdit aussi a mon interface d'ecrire sur la feuille souche donc plus de calcul possible
Private Sub Workbook_Open()
sheets("souche").visible = false
Dim Wksht As Worksheet 'protection de toute les feuilles a l'ecriture
For Each Wksht In Me.Worksheets
Wksht.Protect UserInterfaceOnly:=True
Next Wksht
End Sub
de plus je voudrais deverouiller la protection via un bouton :
ce coe ca irai en mettant unprotect ? a la place de protect ?
merci
avo
voila mon probleme :
dans mon application j'ai une feuille souche ou j'ai qqes cellules qui se remplissent via un interface userform valeur de texbox
cette feuille de souche contient via un tableau exel tout les parametres de calcul qu'il faut proteger pour eviter les modifications du calcul
cependant elle dois etre quand meme accessible a l'ecriture via la texbox qui permet de rentrer les donnees du calcul !!!
et la j'arrive a cacher la feuille souche de l'affichage et la proteger mais si elle est proteger le calcul se fais pas parce la feuille est justement proteger pour ecrire la valeur de la texbox ...
en gros si je protege j'interdit l'utilisateur de modifié mais j'interdit aussi a mon interface d'ecrire sur la feuille souche donc plus de calcul possible
Private Sub Workbook_Open()
sheets("souche").visible = false
Dim Wksht As Worksheet 'protection de toute les feuilles a l'ecriture
For Each Wksht In Me.Worksheets
Wksht.Protect UserInterfaceOnly:=True
Next Wksht
End Sub
de plus je voudrais deverouiller la protection via un bouton :
ce coe ca irai en mettant unprotect ? a la place de protect ?
merci
avo