Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro et ouverture fichier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

ced91300

XLDnaute Occasionnel
Bonjour à tous,

j'ai un classeur Excel planning d'une équipe avec macro mdp utilisateur afin qu'ils n'accèdent qu'a leur propre service
mon problème c'est que si il n'active pas les macros, il peuvent arrivé à voir tout le classeur.
ils peuvent utiliser n'importe quel pc de la boite, et le classeur se trouve dans un serveur

userform ils rentre leur nom + MDP et accès à leur service (une feuil = 1 service)

le classeur comporte 7 feuils dont la feuil01 ou s'affiche l'userform

je souhaiterais que le classeur soit bloquer de toute lecture si ils n'activent pas les macros? ou si il y a à une autre solution?

ThisWorkbook :

Private Sub Workbook_open()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil1" Then Ws.Visible = xlSheetVeryHidden
Next Ws
Load UserForm1
UserForm1.show
End Sub

merci
cordialement.

PS: j'ai trouvé cela sur le net mais ne sait pas l'adapté à mon bva

une solution possible serait de créer une feuille affichant le message "Vous devez activer les macros".
Puis :
> à la fermeture du classeur, tu caches toutes les feuilles sauf celle-là
Code (Text):
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets("FeuilleActivationDesMacros").Visible = xlSheetVisible
Dim curSheet As Worksheet
For Each curSheet In ThisWorkbook.Sheets
If curSheet.Name <> "FeuilleActivationDesMacros" Then curSheet.Visible = xlSheetVeryHidden
Next curSheet
ThisWorkbook.Save
End Sub
> à l'ouverture, tu cache cette feuille et affiche les autres
Code (Text):
Private Sub Workbook_Open()
Dim curSheet As Worksheet
For Each curSheet In ThisWorkbook.Sheets
If curSheet.Name <> "FeuilleActivationDesMacros" Then curSheet.Visible = xlSheetVisible
Next curSheet
ThisWorkbook.Sheets("FeuilleActivationDesMacros").Visible = xlSheetVeryHidden
End Sub
si les macros ne sont pas activées, la seule feuille affichée du classeur sera celle contenant le message "Vous devez activer les macros".
 
Dernière édition:
Trier par date Trier par votes
Bonjour à tous,

en pièce jointe un petit exemple
si les macros ne sont pas activées à l'ouverture du fichier, il n'est pas possible de voir les feuilles

le code est protégé avec le mot de passe ---> azerty

............ mais pour quelqu'un qui sait s'y prendre, la protection ne tient pas longtemps 🙁
à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif

bonjour philippe

merci pour ton fichier c'est bien ce que je souhaite, mais comment l'adapter à mon fichier?

cordialement
 
Vote positif 0 Vote négatif
Bonjour Philippe 🙂

@Ced: il faut mettre ceci dans le code du bouton du formulaire login et mot de passe

VB: 
For i = 2 To 5
Sheets(i).Visible = -1
Next i

Et dans Thisworkbook

VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 2 To 5
Sheets(i).Visible = 2
Next i
End Sub
 
Vote positif 0 Vote négatif

Bonjour, merci pour la réponse, mais je ne saisi pas trop ou devoir les insérer (je ne suis pas tres doué en bva j'ai suivi des tutos sur le net pour la realisation

dans Thisworkbook j'ai cela:

Private Sub Workbook_open()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil1" Then Ws.Visible = xlSheetVeryHidden
Next Ws
Load UserForm1
UserForm1.show
End Sub

Et le code bouton (userform) login mot de passe j'ai cela:

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Saisie du nom d'utilisateur obligatoire.", vbInformation
Exit Sub
End If
'Même chose avec TextBox2
If TextBox2 = "" Then
MsgBox "Saisie du mot de passe obligatoire.", vbInformation
Exit Sub
End If
'Lance la fonction VerifMDP en utilisant :
'- TextBox1 comme paramètre "utilisateur"
'- TextBox2 comme paramètre "MdP"
'Si la fonction renvoie FAUX :
If VerifMDP(TextBox1, TextBox2) = False Then
'c'est que le mot de passe ou l'utilisateur est faux donc
'Message à l'utilisateur
MsgBox "Erreur Mot de passe et/ou utilisateur. Merci de saisir à nouveau.", vbInformation
'on vide les 2 textbox
TextBox1 = ""
TextBox2 = ""
'on sort de la procédure
Exit Sub
End If
'A partir d'ici, le code ne se déroule que lorsque mdp et nom sont corrects.
'On peut donc afficher les feuilles correspondant à l'utilisateur saisi
AfficheFeuilles TextBox1
'masque l'UserForm
UserForm1.Hide
Application.Visible = True
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox2_Change()
End Sub
'code se déclenchant à l'ouverture de Userform1
Private Sub UserForm_Initialize()
Application.Visible = False
TextBox1 = ""
TextBox2 = ""
'réglage des propriétés Caption
'de l'Userform :
Me.Caption = "Saisie du Mot de Passe"
'des labels :
Label1.Caption = "Utilisateur"
Label2.Caption = "Mot de Passe"
'du bouton
CommandButton1.Caption = "VALIDER"
'Remplace les caractères saisis dans le textbox2 par des astérisques
Me.TextBox2.PasswordChar = "*"
End Sub


Si tu peux me dire ou combiner le tout

merci

cordialement
 
Vote positif 0 Vote négatif
Re,

un autre exemple un peu plus abouti en pièce jointe
chaque retour vers la feuille d'Accueil masque automatiquement les autres feuilles

@ Lone Wolf, la procédure est à mettre dans le BeforeSave et surtout pas dans le BeforeClose car cela permettrait de faire une sauvegarde du fichier en ayant des feuilles visibles

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Re

@ Philippe: ahhh! Daccord. Merci pour l'explication.

@ ced: si tu as un formulaire de ce style



Tu met la 1ère macro dans le code du bouton(Login). L'autre tu l'insère ici (en image)



Mais à la place de WorkBook_Open() tu met

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
For i = 2 to 5
Sheets(i).Visible = 2
Next i
End Sub

comme l'a suggeré Philippe
 
Dernière édition:
Vote positif 0 Vote négatif

Re bonjour

merci pour tes explications, effectivement j'ai bien oui j'ai bien un formulaire de ce style, mais je ne vois toujours ou placé le 1 code car en plaçant le premier code je n'ai plus l'userform

mon bva c'est ca:
Private Sub CommandButton1_Click()

If TextBox1 = "" Then
MsgBox "Saisie du nom d'utilisateur obligatoire.", vbInformation
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "Saisie du mot de passe obligatoire.", vbInformation
Exit Sub
End If
If VerifMDP(TextBox1, TextBox2) = False Then
MsgBox "Erreur Mot de passe et/ou utilisateur. Merci de saisir à nouveau.", vbInformation
TextBox1 = ""
TextBox2 = ""
Exit Sub
End If

AfficheFeuilles TextBox1

UserForm1.Hide
Application.Visible = True
End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox2_Change()

End Sub


Private Sub UserForm_Initialize()
Application.Visible = False
TextBox1 = ""
TextBox2 = ""
Me.Caption = "Saisie du Mot de Passe"
Label1.Caption = "Utilisateur"
Label2.Caption = "Mot de Passe"
CommandButton1.Caption = "VALIDER"
Me.TextBox2.PasswordChar = "*"

End Sub


merci cordialement
 
Vote positif 0 Vote négatif
Re Philippe

Ajout d'un (faux lien) retour à Accueil et masquage de la feuille Accueil dans les autres feuilles. Bon là je m'arrête, c'est vrai que c'est l'automne et que les feuilles tombent mais... ça commence à faire beaucoup de feuilles LOL 😀
 

Pièces jointes

Vote positif 0 Vote négatif
Re
Ajout ceci dans la macro du bouton

VB: 
If VerifMDP(TextBox1, TextBox2) = True Then
For i = 2 to ThisWorkbook.Sheets.Count
'Nom de la feuille à modifier
If Sheets(i).Name <> "Accueil" then Sheets(i).Visible = -1
Next i
End If
 
Vote positif 0 Vote négatif

merci, mais je suis pas un pro du bva, et je ne vois pas ou mettre cela par apport à mon BVA (ce que je dois enlever)

voici mon fichier qui pose problème login ADMIN mdp ADMIN

merci

cordialement
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonsoir ced,

si tu aurais mit dès le début le fichier, tu nous aurais épargné tout ce travail. Dans le module 3 tu as cette macro pour afficher les feuilles correspondant au nom de l'utilisateur.

VB: 
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer

With Sheets("parametrage") 'dans la feuille paramétrage
    'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
    Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
    For i = 3 To Col
        If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
            Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
        Else
            Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
        End If
    Next i
End With
End Sub

Et dans le bouton du formulaire tu as ceci: AfficheFeuilles TextBox1

Je ne comprends pas dans ce cas, ce que tu veux au juste. Le principe des macro que l'on t'as fournit est quasi le même. Je viens de faire un test et la macro m'affiche bien les feuilles correspondantes au X de la feuille parametrage.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
47
un internaute
U
S
  • Question Question
XL 2016 Pilotage TCD via Textbox dynamique
2
Réponses
22
Affichages
836
goube
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
269
vgendron
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
736
laurent950
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
92
sylvanu
  • Question Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
762
patricktoulon
D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
107
Daniel200666
D
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
603
Corentin26270
C
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
1 K
GClaire
G
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
151
Phil69970
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
538
chaelie2015
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
573
ChTi160
A
  • Résolu(e)
Microsoft 365 Suppression espace indésirable et avoir une date courte
Réponses
11
Affichages
583
AD95
A
D
  • Question Question
Microsoft 365 Macro pour enlever les filtres mais laisser la possibilité de filtrer avant fermeture
2
Réponses
25
Affichages
1 K
TooFatBoy
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
  • Résolu(e)
XL 2013 (RESOLU)Nombre de cellule non vide et sans doublon
Réponses
2
Affichages
637
chaelie2015
T
  • Question Question
XL 2019 Macros désactivées mais la macro WorkBook_Open est exécutée
Réponses
2
Affichages
515
ThierryP
T
S
  • Question Question
XL 2021 macro VBA excel
Réponses
1
Affichages
468
crocrocro
C
V
  • Question Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
1 K
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
583
un internaute
U
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…