Re : ERREUR DE cOMPILATION ?????
Merci bcp BrunoM45, Bh²,
je pense que je ne vous ai pas donné l'ensemble du problème donc point de départ mes feuilles "Feuil4", "Feuil1", "Feuil15", "Feuil16", "Feuil22", "Feuil23", "Feuil25", "Feuil29", "Feuil30", "Feuil31", "Feuil32", "Feuil33", "Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6" sont respectivement nommés password, total, colette, groupe, etc....etc....
Maintenant voici mon module actuel
Sub m()
Application.ScreenUpdating = False
Dim spwd As String, sh
spwd = InputBox("Entrer le mot de passe")
If spwd <> "Yldie" Then
MsgBox ("Mot de passe invalide")
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil16", _
"Feuil22", "Feuil23", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = xlVeryHidden
Next sh
Sheets("INTRO").Activate
Else
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil16", _
"Feuil22", "Feuil23", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets("sh").Visible = True
Next sh
End If
End Sub
ma feuille 'INTRO'
Private Sub CommandButton1_Click()
m
End Sub
Private Sub Worksheet_Activate()
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil16", _
"Feuil22", "Feuil23", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = False
End Sub
THISWORBOOK
'- Il faut protéger ton projet pour empêcher l'utilisateur de visualiser les
'macros et donc le mot de passe
'- Si les macros ne sont pas activées à l'ouverture du classeur, la
'protection est inefficace. Il te faut rajouter les macros suivantes dans
'"ThisWorkBook" :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil16", _
"Feuil22", "Feuil23", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = xlVeryHidden
End Sub
Private Sub Workbook_Open()
For Each sh In Array("Feuil4", "Feuil1", "Feuil15", "Feuil16", _
"Feuil22", "Feuil23", "Feuil25", "Feuil29", _
"Feuil30", "Feuil31", "Feuil32", "Feuil33", _
"Feuil34", "Feuil35", "Feuil36", "Feuil39", "Feuil6")
Sheets(sh).Visible = xlVeryHidden
End Sub
'Private Sub Workbook_SheetActivate(ByVal Sh As Object)
' Dim spwd As String
' If Sh.Name = "Feuil4" Then
' spwd = InputBox("Entrer le mot de passe")
' If spwd <> "password" Then
' MsgBox ("Mot de passe invalide")
' Sheets("INTRO").Activate
' End If
' End If
'End Sub