Dévérouiller / Revérouiller classeur

[skun]

Bonjour !!

voilà j'utilise ce code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  For s = 2 To Sheets.Count ' on masque les feuilles
    Sheets(s).Visible = xlVeryHidden
  Next s
End Sub

il permet lors de la sauvegarde de masquer automatiquement toutes les feuilles (sauf la 1ere)

mon problème est que je viens de protéger le classeur et que du coup ca ne fonctionne plus !

j'aimerai que avant de maquer la feuille, il se dévérouille puis se revérouille aprés le masquage, comment puis je faire?

merci d'avance !


skun

 

[jeanpierre]

Re : Dévérouiller / Revérouiller classeur

Bonjour skun,

Juste avant ton for s=2, essaie avec : ActiveWorkbook.Protect ("ton mot de passe")

et juste avant le End Sub : ActiveWorkbook.UnProtect ("ton mot de passe")

Bonne journée.

Jean-Pierre

 

[skun]

Re : Dévérouiller / Revérouiller classeur

Salut jeanpierre !

c'est super ca marche !
merci beaucoup !

à tout hasard y aurait il une commande du meme style pour dévérouiller/revérouiller la protection d'accés au VBA?


merci !


skun

 

[job75]

Re : Dévérouiller / Revérouiller classeur

Bonjour skun, jeanpierre,

Peut-être que ce sont les feuilles qui sont protégées ?

For s = 2 To Sheets.Count ' on masque les feuilles
  With Sheets(s)
    .Unprotect "Mot de passe"
    .Visible = xlVeryHidden
    .Protect "Mot de passe"
  End With
Next s

En supposant que "Mot de passe" soit le même pour toutes les feuilles.

Edit : OK, je traîne... En plus complètement à coté de la plaque : la protection des feuilles n'a jamais empêché leur masquage !

A+

 

[jeanpierre]

Re : Dévérouiller / Revérouiller classeur

Re,

"y aurait il une commande du meme style pour dévérouiller/revérouiller la protection d'accés au VBA"

Je n'ai jamais cherché à le faire dans la mesure où cela ne présente vraiment aucune utilité, mais je ne le pense pas, mais comme ici c'est la maison du "tout est possible", il y a peut-être solution. A suivre donc.

Jean-Pierre

Edit : Bonjour job