Déprotection Feuilles par VBA

famu · 21 Janvier 2011

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 · 21 Janvier 2011

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 😕

Code:

Sub Macro5()
'
' Macro5 Macro
'

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

Pierrot93 · 21 Janvier 2011

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 · 21 Janvier 2011

Re : Déprotection Feuilles par VBA

Pierrot93 à dit:
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.

Déprotection Feuilles par VBA

famu

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

famu

XLDnaute Occasionnel

Discussions similaires

Déprotection Feuilles par VBA

famu

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

famu

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency