Est ce possible???

[aeque]

Bonjour le fofo

Cela fait un moment que je cherche une réponse à ma question mais malheureusement je n'arrive pas à la trouver, j'espère que vous pourrez m'aider.

Voici mon problème:

J'aimerai que lorsque j'utilise une macro dans une feuille quelconque toutes les autres feuilles se déprotègent.



voici le code que j'ai dans WorkBook Open

Private Sub Workbook_Open()
Sheets("RH").Protect "toto", UserInterfaceOnly:=True
Sheets("Tracking TBT").Protect "toto", UserInterfaceOnly:=True
Range("toutes_tbt").EntireColumn.Hidden = True
Sheets("Tracking Safety Meeting").Protect "toto", UserInterfaceOnly:=True
Sheets("Tracking Safety Meeting").Range("toutes_sf").EntireColumn.Hidden = True

Donc cela fonctionne très bien lorsque les macros agissent dans la feuille où elles sont programmées mais cela se complique quand elle agissent sur les autres.

Cela me met comme erreur : Impossible de définir la propriété Hidden de la classe Range

à cette ligne là :

Private Sub UserForm_Activate()
Sheets("tracking tbt").Range("toutes_tbt").EntireColumn.Hidden = False

Notez que l'USF se lance via la feuille RH


J'espère que vous pouvez comprendre car je n'arrive pas à uploader mon fichier, même réduit et zipper il dépasse grandement la taille maximale


Merci pour le coup de main

 

[Guest]

Bonjour,

Déprotéger la feuille
Travailler sur la feuille
Re-Protégéer la feuille

Private Sub UserForm_Activate()
Sheets("Tracking TBT").Unprotect "toto"
Sheets("tracking tbt").Range("toutes_tbt").EntireColumn.Hidden = False
Sheets("Tracking TBT").Protect "toto", UserInterfaceOnly:=True
End Sub

Normalement avec UserInterFaceOnly:= True tu ne devrais pas avoir à déprotéger avant.

A+

 

[aeque]

Re : Re: Est ce possible???

merci pour ta réponse mais j'ai beaucoup de macros qui agissent sur plusieurs feuille à la fois (notamment des USF) il n'y a pas un moyen de faire cela dans workbook open??

 

[Guest]

Re,


??????? perdu ma boule de cristal.

A+

 

[aeque]

Re : Est ce possible???

comment puis je envoyer mon fichier pour que vous le récupériez?

 

[Guest]

Re,

En descendant dans la page d'édition avancée des posts tu as un bouton "Manage Attachments". Tu cliques et te laisse guider.

A+

 

[aeque]

Re : Est ce possible???

mon fichier fais plus que 293 Ko ....

 

[JCGL]

Re : Re: Est ce possible???

Bonjour à tous,
Salut Hasco,

En descendant dans la page d'édition avancée des posts tu as un bouton "Manage Attachments". Tu cliques et te laisse guider.

Well if you write in English now ...

N'apporte rien à la discussion si ce n'est l'immense de pouvoir croiser l'ami Ges...
A++
A+ à tous

 

[Guest]

Re,

@aeque: nous n'avons pas forcément besoin du fichier complet. Purge le pour ne garder que ce qui nous permettra de comprendre. Ou reproduit un exemple parlant dans un nouveau fichier.(avec explications détaillées de ce que tu souhaites)

Hey JC, tu m'inquietes là, chez moi tous les intitulés internes du forum sont en anglais depuis une semaine? Je pensais que David avait du faire quelque chose.
koi esse que sait sa tencor?

A+

 

[aeque]

Re : Est ce possible???

Voilà j'ai fait au mieux j'espère que cela va aller

 

[Guest]

re,

Manque plus que les explications claires.

Dans ton premier post tu disais

J'aimerai que lorsque j'utilise une macro dans une feuille quelconque toutes les autres feuilles se déprotègent.

Dans ce que tu donnes c'est l'inverse, les feuilles sont déprotégées.

Alors voici deux macros, l'une pour proteger toutes les feuilles, l'autre pour déprotéger les feuilles.:

Option Explicit
Sub DeprotegerToutesFeuilles(mdp As String)
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.ProtectContents Then sh.Unprotect mdp
    Next sh
End Sub
Sub ReprotegerToutesFeuilles(ByVal mdp As String)
    Dim sh As Worksheet
    For Each sh In Worksheets
        If Not sh.ProtectContents Then sh.Protect mdp, userinterfaceonly:=True
    Next sh
End Sub

Au besoin tu appelles l'un ou l'autre en lui passant le mot de passe entre guillemets
ex:

Sub LaMacroQuiTravailleSurLesFeuilles() 
    DeprotegerToutesFeuilles "lemotdepasse"
    '
    '.... lignes de codes qui travaillent sur les feuilles
    '
    ReprotegerToutesFeuilles "lemotdepasse"
End Sub

où tu remplaces "lemotdepasse" par ton mot de passe réel.

A+

 

[aeque]

Re : Est ce possible???

Hasco, je ne comprends pas, chez moi les feuilles sont toutes protégées dès l'ouverture et quand je clique sur le bouton "ajouter un employé" le message d'erreur apparait.

Corriges moi si je me trompe il n'y a rien dans Workbook open???

 

[Guest]

Re : Est ce possible???

Bonjour,

Dans WorkBook_Open mettre l'appel à la macro de déprotection:

DeprotegerToutesFeuilles "lemotdepasse"

Et appeler la macro de protection au besoin.

A+

 

[aeque]

Re : Est ce possible???

Merci Hasco pour ta réponse mais justement je souhaite que les feuilles soient protégées tout le temps exepté pendant l'utilisation des macros. Le problème sur le fichier et quand j'execute une macro. J'ai l'impression que l'option userinterfaceonly n'est valable que sur une seule feuille. Donc comment faire pour qu'à chaque fois que j'exécute une macro toutes les feuilles se déprotègent ou sinon comment utiliser userinterfaceonly dans le fichier pour ne plus que le message d'erreur s'affiche

 

[Guest]

Re : Est ce possible???

Re,

Mets dans workbook_open:

Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Protect MotDePasse, userinterfaceonly:=True
    Next sh

En remplaçant MotDePasse par ton mot de passe réel.

Enregistre le fichier -> ferme le -> rouvre le

Cela devrait le faire.

A+