Interdire accès feuille

[Windfly]

Bonjour à tous,

Je souhaiterai interdire l'accès à une feuille (lecture et écriture) par un mot de passe.
Par contre, toutes les autres feuilles doivent être accéssibles en lecture et écriture à tous les autres.

Auriez vous des astuces ou des codes VBA svp?

Merci beaucoup d'avance.

 

[aubelix]

Re : Interdire accès feuille

Bonjour à tous les amis du Forum. 🙂

Ci-joint une réponse de JB que m'avait fait sur une question similaire
Cordialement.


Voici une solution simple mais tu devras protéger le code VBA de ton classeur.

Tu mets dans le module de la feuille en question:

Private Sub Worksheet_Activate()
Sheets("Feuil3").Activate
End Sub

Ainsi à chaque essai pour sélectionner la feuille en question
c'est la feuille 3 qui s'ouvrira à la place.

J'espère que çà t'aidera.

 

[pierre31270]

Re : Interdire accès feuille

je te remercie de ton aide précieuse. Aurais-tu une autre suggestion concernant l'affichage des feuilles lorsque les macros sont désactivées?

Merci beaucoup

Pierre

 

[pierre31270]

Re : Interdire accès feuille

En fait j'ai réussi à me débrouiller tout seul mais il y a toujours un probleme qui persiste:

comment faire pour qu'à l'ouverture du document quand les macros sont désactivées pour que TOUS les onglets sauf celui d'accueil soient masqués?

Grâce au code de Pascal dans le workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Suivi_Frais").Visible = xlVeryHidden
End Sub

comment inclure les autres feuilles en liste? car la méthode ci-dessous ne marche pas pour la feuille "AM":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Suivi_Frais", "AM").Visible = xlVeryHidden
End Sub

J'ai ajouté
Sheets("AM").Visible = xlVeryHidden
dans mes macros mais vu qu'au démarrage de Excel elle ne sont pas activées, on peut toujours la consulter.

Je vous remercie par avance de votre aide.

Cordialement,

Pierre

 

[pierre31270]

Re : Interdire accès feuille

En fait j'ai réussi à me débrouiller tout seul mais il y a toujours un probleme qui persiste:

comment faire pour qu'à l'ouverture du document quand les macros sont désactivées pour que TOUS les onglets sauf celui d'accueil soient masqués?

Grâce au code de Pascal dans le workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Suivi_Frais").Visible = xlVeryHidden
End Sub

comment inclure les autres feuilles en liste? car la méthode ci-dessous ne marche pas pour la feuille "AM":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Suivi_Frais", "AM").Visible = xlVeryHidden
End Sub

J'ai ajouté
Sheets("AM").Visible = xlVeryHidden
dans mes macros mais vu qu'au démarrage de Excel elle ne sont pas activées, on peut toujours la consulter.

Je vous remercie par avance de votre aide.

Cordialement,

Pierre

 

[fchapuis]

Re : Interdire accès feuille

Bonjour à tous,

Merci pour le code, ça marche super bien.

J'ai un autre problème néanmoins :
J'ai 2 feuilles dans mon fichier. La Feuille 1 est accessible à tous : il s'agit d'une interface simple qui effectue des tris sur la Feuille 2 via des petites macros. Néanmoins, je voudrais protéger la Feuille 2 qui contient des infos confidentielles et la masquer via un mot de passe comme proposé dans ce forum.
PB : qd la Feuille 2 est masquée et protégée, les macros ne marchent plus.
Comment faire?

Merci d'avance.