Déprotection Feuilles par VBA

[famu]

Bonjour,

Cette macro ne fonctionne pas si dans mon classeur depuis que j'ai inséré des "feuils" Graphiques au lieu de "feuils" de calcul :

'Déprotection Feuils
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
For h = 1 To nombre
Worksheets(h).Unprotect Password:="admin"
Next h

Je ne sais pas comment faire pour la modifier.
Merci pour votre aide.

 

[MJ13]

Re : Déprotection Feuilles par VBA

Bonjour Famu

Bizarre. Avec Henry, cela donne:

Ce n'est peut-être pas considéré comme une feuille classique 😕

Sub Macro5()
'
' Macro5 Macro
'

'
  MsgBox ActiveWorkbook.Sheets.Count
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Graph1").Select
End Sub

 

[Pierrot93]

Re : Déprotection Feuilles par VBA

Bonjour famu, Re Michel🙂
petite info au passage, la collection "sheets" contient toutes les types de feuilles, ci-dessous les types :

xlChart
xlDialogSheet
xlExcel4IntlMacroSheet
xlExcel4MacroSheet
xlWorksheet

alors que la collection "worksheets" ne contient elle, que les feuilles de calcul, type "xlWorksheet".

bonne journée
@+

 

[famu]

Re : Déprotection Feuilles par VBA

Bonjour famu, Re Michel🙂
petite info au passage, la collection "sheets" contient toutes les types de feuilles, ci-dessous les types :


alors que la collection "worksheets" ne contient elle, que les feuilles de calcul, type "xlWorksheet".

bonne journée
@+

Bonjour Michel, bonjour Pierrot,

Tout est OK. J'ai remplacé Worksheet par Scheets et là ça fonctionne nickel. Encore appris quelque chose de plus grace à vous.
Un grand merci pour votre aide !
Bon W.E.
Francis.