Problème d'affichage de mes feuilles
Bonjour à tous,
j'ai un classeur Excel que j'utilise pour la compta du travail. j'avais masqué certaines feuilles par macro et il y a eu un petit bug au moment d'afficher une feuille suite au mot de passe.
j'ai tenté d'enlever les macros et les modules pour retrouver l'affichage de toutes mes feuilles, mais cela ne fonctionne toujours pas.
Que puis je faire ??
je vous joins mes macros pour voir ce qu'il peut être fait ? Lorsque j'essaye d'ouvrir mon fichier qui s'appelle normalement "Budget_Prévisionnel_PôleEducatif2011", il s'ouvre comme classeur1, alors que dans le VBA il porte la bonne appellation, je n'y comprend rien ?
Feuille sommaire
Private Sub Worksheet_Activate()
Sheets("Privé").Visible = xlSheetVeryHidden
End Sub
Private Sub ComboBox1_Change()
NomFeuille = ComboBox1.Value
Worksheets(NomFeuille).Select
End Sub
Private Sub ComboBox2_Change()
NomFeuille = ComboBox2.Value
Worksheets(NomFeuille).Select
End Sub
Feuille woorbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Privé").Visible = xlSheetVeryHidden
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
End Sub
Private Sub Workbook_SheetActivate(ByVal sh As Object)
Application.EnableCancelKey = xlDisabled
If sh.Name = "Budget Général Total" Then
ActiveWindow.Visible = False
Dim MotDepasse As String
MotDepasse = InputBox("Entrez votre mot de passe.", _
"Mot de passe requis")
If Not MotDepasse = "DG" Then
MsgBox "Le mot de passe saisi est incorrect !!", _
vbOKOnly + vbInformation, "Mot de passe incorrect"
ThisWorkbook.Sheets("Sommaire").Activate
End If
Windows("Budget_Prévisionnel_PôleEducatif2011").Visible = True
End If
End Sub
Module programme
Sub DemandePasswordFonctionnement()
i = 1
For NbEssai = 1 To 3 Step 1
DlgPassword.Show
Password = DlgPassword("MotDePasse").Value
If Password = "callas" Then
DlgPassword("MotDePasse").Value = ""
Sheets("Privé").Visible = xlSheetVisible
Sheets("Privé").Activate
Range("A1").Select
' MsgBox (" Le mot de passe est correct")
Exit Sub
Else
MsgBox ("Vous tentez une intrusion répréhensible (" & i & "/3) ...")
i = i + 1
DlgPassword("MotDePasse").Value = ""
End If
Next NbEssai
DlgPassword("MotDePasse").Value = ""
End Sub
Sub DemandePasswordInvestissement()
i = 1
For NbEssai = 1 To 3 Step 1
DlgPassword.Show
Password = DlgPassword("MotDePasse").Value
If Password = "callas" Then
DlgPassword("MotDePasse").Value = ""
Sheets("Privé").Visible = xlSheetVisible
Sheets("Privé").Activate
Range("A67").Select
' MsgBox (" Le mot de passe est correct")
Exit Sub
Else
MsgBox ("Vous tentez une intrusion répréhensible (" & i & "/3) ...")
i = i + 1
DlgPassword("MotDePasse").Value = ""
End If
Next NbEssai
DlgPassword("MotDePasse").Value = ""
End Sub
Bonjour Chti59 le forum
si tu veux que l'on puisse t'aider c'est avec un petit fichier que l'on pourra le faire
dans cette attente
a+
papou
Bonjour,
Voici une macro pour rendre toutes tes feuilles visibles
Sub ToutVisible()
For i = 1 To Worksheets.Count
Sheets(i).Visible = xlSheetVisible
Next
End SubA+
Bonjour Galopin01 Chti, le forum
oui mais s'il a une macro dans le Thisworkbook qui lui masque à l'ouverture tu ne régleras pas le problème ou bien?
c'est pour cela que je voulais voir le fichier, car lancer la macro va sans aucun doute rendre visible les feuilles, mais après!!!
a+
Papou
Bonjour,
On est bien d'accord, mais chti59 n'est pas un petit nouveau, il sait très bien joindre un fichier si nécessaire.
Il dit qu'il a "tenté d'enlever les macros et les modules pour retrouver l'affichage de toutes mes feuilles"
Donc je lui permet de retrouver l'affichage de toutes ses feuilles ce qui dans le titre et dans les explications était bien l'objet du fil.
Après s'il y a lieu de modifier cette macro de gestion des accès, il est assez grand pour faire son diagnostic et présenter son problème différement...
A+