protection de feuille non active sur autre pc

[pascal21]

For Each Worksheet In Sheets
Worksheet.Protect Password:="tp", UserInterfaceOnly:=True
Next Worksheet

bonsoir
j'ai mis ce code pour protéger les cellules qui contiennent des formules
hors cet après midi, en faisant un test de mon application sur un autre pc, je me suis aperçu que la protection n'était pas activée
connaissez-vous ce phénomène et comment y remedier
merci

 

[chris]

Re : protection de feuille non active sur autre pc

Bonjour

Des pistes :
Les macros sont bien activées sur le poste ?
N'y a t'-il pas un autre mot de passe ?

 

[thomlau]

Re : protection de feuille non active sur autre pc

Bonsoir pascal21, chris, le forum.

Personnellement, j'utilise ce code pour chaque application que je créé. J'ai bien entendu déniché ce code sur ce magifique forum...

Il s'agit d'un code qui protège ou déprotège les classeurs à votre gré.

Sub ProtegeTout()
Dim feuil

For Each feuil In Application.Sheets

feuil.Protect Password:="tp", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True

Next feuil

End Sub
Sub DeprotegeTout()
Dim feuil

For Each feuil In Application.Sheets

feuil.Unprotect Password:="tp"

Next feuil

End Sub

Je l'utilise ainsi :
Avant chaque macro, je fais un Call DeprotegeTout et comme vous l'avez compris, en fin d'exécution de la macro, un Call ProtegeTout...

Bonne soirée à vous.

 

[Staple1600]

Re : protection de feuille non active sur autre pc

Bonsoir


L'autre PC doit avoir sa sécurité macro réglé sur Haute, peut-être?

Si oui, cela les macros ne sont pas exécutées.

 

[pascal21]

Re : protection de feuille non active sur autre pc

bonsoir à tous merci pour vos réponses
chris non il n'y a pas d'autre mot de passe
staple: je ne saurais dire à quel niveau est le réglage des macros, toujours est-il que il est demandé l'activation ou non des macros à l'ouverture
celles-ci sont bien exécutées à part celle de la protection des feuilles.
je vais essayer le code proposé par Thomlau pour voir
ou alors ça vient de sa version excel ce n'est pas du excel 2007 c'est sur
mais si c'est du 2003 il n'a pas la même présentation que chez moi
par defaut les barres d'outils sont bleues
il n'y a pas eu de version entre la 2003 et la 2007 il me semble
pourtant une ancienne version de l'application car j'ai essayé fonctionne bien et il n'y a rien (à mon sens) de nouveau qui pourrait venir perturber les protections de feuilles
ça vous dit quelque chose,

edit; au alors un niveau de sécurité trop bas ne pourrait-il pas créer ce problème

 

[Staple1600]

Re : protection de feuille non active sur autre pc

Rebonsoir


Pour protéger /déprotéger avec une seule macro:

Sub prot_deprot()
Dim f As Worksheet
ion = (Chr(109) + Chr(100) + Chr(112))
For Each f In ThisWorkbook.Worksheets
If f.ProtectContents = True Then
f.Unprotect ion
Else
f.Protect ion
End If
Next f
End Sub