Erreur d'exécution '1004' sur propriété visible de la classe worksheet

[guigui971]

Bonjour à tous,

J'ai ce message :
"Erreur d'exécution '1004':
Impossible de définir la propriété visible de la classe worksheet"

Le deboguage me renvoie à : (avec en rouge la ligne fléchée)

Private Sub HideAllSheets()
'Hide all worksheets except the macro welcome page
Dim ws As Worksheet

Worksheets(WelcomePage).Visible = xlSheetVisible

For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = WelcomePage Then ws.Visible = xlSheetVeryHidden
Next ws

Worksheets(WelcomePage).Activate
End Sub​

Ce message est en rapport avec une macro qui oblige à ce que les macro soient activées pour voir les feuilles.

Merci

PS : je précise que je suis débutant complet. Donc je baigne pour l'instant!

 

[Pierrot93]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Bonjour,

Si WelcomePage est le nom d'une feuille, manque les guillemets...

Worksheets("WelcomePage").Visible = xlSheetVisible

bonne journée
@+

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Salut,

A un endroit j'ai Const WelcomePage = "Macros"

Donc je pense que le nom de la feuille est Macro et non Welcomepage.

Merci

 

[Pierrot93]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,

A un endroit j'ai Const WelcomePage = "Macros"

faudrait connaitre cet endroit.... et as tu bien une feuille nommée "Macros"...

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

En fait je réalise une chose :
Ce problème d'erreur 1004 ne se pose que quand je désactive le "protéger le classeur" (structure)
PAr contre quand j'active cette protection de classeur, la macro ne fonctionne plus.
Or, je veux protéger le classeur pour ne pas que l'utilisateur supprime par erreur des feuilles.

Merci

 

[Pierrot93]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,
bah il faut déprotéger ton classeur et le re-protéger...

ThisWorkbook.Unprotect "toto"
'ton code
ThisWorkbook.Protect "toto"

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,



faudrait connaitre cet endroit.... et as tu bien une feuille nommée "Macros"...

J'ai bien une feuille nommée "macros" : sur celle-ci il y a simplement écrit : tableur inactif, veuillez activer les macro pour pouvoir l'utiliser.

Et au début du code on a donc çà:

Option Explicit
Const WelcomePage = "Macros"
Private Sub Workbook_Activate()
Call ToggleCutCopyAndPaste(False)
End Sub​

Merci

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,
bah il faut déprotéger ton classeur et le re-protéger...

ThisWorkbook.Unprotect "toto"
'ton code
ThisWorkbook.Protect "toto"

Intéressant!
Mais j'insère ton bout de code où?

Merci

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,
bah il faut déprotéger ton classeur et le re-protéger...

ThisWorkbook.Unprotect "toto"
'ton code
ThisWorkbook.Protect "toto"

Intéressant!
Mais j'insère ton bout de code où?

Merci

 

[Pierrot93]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,

regarde le post #6

 

[Pierrot93]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,

au début et à la fin de la procédure qui pose problème...

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Désolé je ne comprend pas où. Je suis débutant total...
Quand tu mets "ton code" çà veut dire que je mets tout mon code entre tes lignes?
Merci

 

[Pierrot93]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,

bah si tu es débutant, peut être commencer par éviter les protections de feuilles et du classeur....

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Ce que tu appelles procédure, c'est bien ce qui commence par Private Sub HideAllSheets() et se finit par end sub?

 

[guigui971]

Re : Erreur d'exécution '1004' sur propriété visible de la classe worksheet

Re,

bah si tu es débutant, peut être commencer par éviter les protections de feuilles et du classeur....

Sauf que cela me semble indispensable de le mettre...