Discussion :

[Niko77]

Bonjour
Il s'agit d'un document qui est accessible depuis Internet, un nombre restreint d'utilisateurs ont le mot de passe pour changer certaines données de référence.
Le souci est que parfois ils oublient de re-protéger les feuilles avant de le fermer.
j'ai fait une macro qui fonctionne mais par manque de connaissance en VBA très (trop) compliqué. Pourriez-vous svp m'aider à le simplifier par ex. avec une boucle?
Un GRAND merci pour votre aide!
Salutations
Niko

voici le code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Protectok

End Sub


Public Sub Protectok()

If Sheets(1).ProtectContents = False Then
Sheets(1).Protect ("daien.bs")
End If

If Sheets(2).ProtectContents = False Then
Sheets(2).Protect ("daien.bs")
End If

If Sheets(3).ProtectContents = False Then
Sheets(3).Protect ("daien.bs")
Else
Exit Sub
End If

End Sub

[Gado2600]

Bonjour,

Tu as cette possibilité-ci qui reprend ton code, mais il en existe pleins d'autres.

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Protectok()
dim i as integer
dim strMdp as string
strMDP = "daien.bs"
 
for i =1 to 3
     if thisworkbook.sheets(i).protectcontents = false then thisworkbook.sheets(i).protect strmdp
next
End Sub

Cordialement,

[Menhir]

Plus élégant (mais pas plus efficace)

Code :

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

1
2
3
4
5
6
7
Public Sub Protectok()
   dim WS as Worksheet
 
   for each WS in thisworkbook.sheets
      if WS.protectcontents = false then WS.protect ("daien.bs")
   next WS
End Sub

[kiki29]

Salut, en espérant que les "autres" ne tombent pas sur qqch comme ceci.

[joe.levrai]

Bonjour kiki29,

cela signifie qu'on peut écraser le mdp en place en reprotégeant une feuille déjà protégée ??

c'est bluffant, testé à l'instant

par ailleurs, les arguments True sur contents et AllowUsingPivotTable sont arbitraires ou nécessaires ?

[Niko77]

merci beaucoup pour vos réponses!
j'apprécie que vous ayez pris le temps d'y jeter un oeil (avisé)
en effet kiki le mdp ne sert plus à grand chose avec ce code
au plaisir et meilleures salutations
Nicolas

[Marc-L]

Bonjour,

je ne sais plus si c'est avec Libre Office ou Open Office mais l'ouverture d'un classeur Excel fait sauter directement les verrous !



_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Denis la Malice]

Bonjour,
protéger des feuilles avec un mot de passe sans protéger le projet n'a pas beaucoup de sens.
Et de toute façon, les protections "Office" ne sont pas très résistantes, même à une attaque en brute force.