Macro dans feuille pour mot de passe

Bonjour a toutes et a tous et Bonne et heureuse Année

Voilà j'essai d'intégrer dans un classeur excel une macro mais j'ai un petit soucis, quelle serait la valeur qu'il faudrait mettre de la cellule D12 de la feuille Index avec ce code pour que cela fonctionne ?

Sub Feuil1
 Private Sub Worksheet_Activate()
 Application.ScreenUpdating = True
 MONCODE = Worksheets("Index").Range("d12").Value
 MONCODE2 = Int(Sqr(MONCODE)) * 136
 If MONCODE2 = 32232 Then
 Dim SH As Worksheet
 For Each SH In ActiveWorkbook.Worksheets
 Select Case SH.Visible
 Case xlSheetHidden: SH.Visible = xlSheetVisible
 End Select
 Next SH
 Else
 MsgBox "Impossible de continuez   Mauvais mot de passe"
 ActiveWindow.SelectedSheets.Visible = False
 End If
 End Sub

bonjour,

56169

Cdlt

Merci bcp je viens de comprendre comment ça fonctionne un simple produit en croix.

(la racine carrée de B12) * 136 = 32232

Ok merci j'avais compris autrement

32232 / 136 = 237 et

(237 x 32232) / 136 = 56169