Probleme Objet Requis
Bonjour,
J'ai ces deux codes mais lorsque j'applique la macro "Sécurité" ca ne marche pas...
Sub BoutonMagique()
Dim fl As Worksheet
For Each fl In Worksheets
fl.Unprotect "rector"
Next fl
Sheets("CARTOUCHE").Visible = xlSheetVisible
Sheets("RECAPITULATIF").Visible = xlSheetVisible
Sheets("DONNEES").Visible = xlSheetVisible
'Sheets("CARTOUCHE").Visible = True
'Sheets("RECAPITULATIF").Visible = True
'Sheets("DONNEES").Visible = True
End Sub
Sub Securite()
Dim mdp As String
Dim key As String
key = "rector"
mdp = InputBox("Mot de Passe")
If mdp = key Then
DoCmd.RunMacro "BoutonMagique" (j'ai le soucis ici)
Else: MsgBox "Try Again"
End If
End Sub
If mdp = key Then
DoCmd.RunMacro "BoutonMagique" (j'ai le soucis ici)
Else: MsgBox "Try Again"
End If
Bonjour,
Essaye d'écrire que le nom de la macro au lieu de DoCmd.RunMacro.
Cdlt.