Discussion :

[MrCMTueurx]

Bonjour à tous

J'ai un soucis sur ma macro au niveau de la protection,

Voici ma macro en dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ThisWorkbook.Unprotect Password:="admin"
 
ChDir ThisWorkbook.Path
Workbooks.Open Filename:=Application.GetOpenFilename()
 
 
    Cells.Select
    Selection.Copy
 
 Windows("exemple.xlsm").Activate
    Sheets("exemple").Visible = True
 
Cells.Select
    ActiveSheet.Paste
 
Sheets("exemple").Visible = xlSheetHidden
 ThisWorkbook.Protect Password:="admin"

Quand je viens chercher mon fichier a copier :



Et si je fais annuler ma macro s'arrete et mes pages sont de nouveau visible par le biais " Afficher "



Il y a t-il une solutions pour ce problème ?

Merci de vos réponses

Cordialement

[unparia]

Bonjour
La vraie question (du moins celle que je te pose) est : quelle est la nécessité d'afficher cette feuille (puis de la masquer dans la foulée), voire tout simplement de la sélectionner, pour simplement en copier les cellules ? -->> aucune

[MrCMTueurx]

c'était un exemple,

Je travail dans une entreprise et plusieurs personne auront accès a cette macro, mais je ne veux pas qu'il puisse accéder a cette page, c'est pour ça que dans la macro on viens copier les cellules dans autre tableau excel pour les coller dedans, je reprend ensuite ces donnée pour les mettre en forme dans un tableau

[unparia]

Ta réponse ne correspond pas à ma question.