déboguage de code (aide)

[TITANIC]

Bonsoir, TITANIC, le forum. Merci pour tout votre travail, c'est formidable!
Sous EXCEL 97, une erreur d'exécution sur une macro. Je pense que j'ai mal assimilé le code au niveau de la protection/déprotection de la feuille, l'erreur semble venir de la. Une petite correction me serait bien utile, notament sur la manière d'exprimer ' protéger la feuille '. Un grand merci par avance.
LE CODE :
.......................................
Private Sub CommandButton2_Click()
If MsgBox('confirmer la fonction ?', _
vbYesNo, 'Confirmation') = vbYes Then
ActiveSheet.Unprotect Password:='toto'
Application.ScreenUpdating = False

ICI LE CODE

ActiveSheet.Protect Password:='toto'
End If
End Sub

 

[Mytå]

salut Titanic,

Je viens d'essayer ta macro sur Excel 97
et aucune erreur d'éxectution détectée.

Ou as-tu l'erreur ?

Myta

 

[TITANIC]

Merci Mita.
Effectivement, je n'y comprend pas grand chose moi non plus, j'ai l'impression qu'il y a un 'lou'!!
Comme tu vois, il s'agit de déprotéger momentanément la feuille, et j'ai une erreur d'exécution 1004,la valeur 'unprotect' n'étant pas reconnue pour l'objet worksheet.J'ai essayé:

Activeworksheet.Unprotect(password)

ActiveSheet.Protect Password:='password'

Sheets(I).Unprotect Pasword:= password

Me.Unprotect Password:='password'

rien n'y fait; lors du clic bouton, le bouton demande confirmation, et juste après bing !!
Une erreur d'exécution...
Merci pour ton écoute et ton aide.

 

[Mytå]

Re Titanic

Une solution oter le contrôle au CommandButton

Private Sub CommandButton2_Click()

[A1].Select 'Pour enlever le contrôle au bouton'

If MsgBox('confirmer la fonction ?', vbYesNo, 'Confirmation') = vbYes Then

    ActiveSheet.Unprotect Password:='toto'

    Application.ScreenUpdating = False

        'ICI LE CODE

    ActiveSheet.Protect Password:='toto'

    End If
    
End Sub

Myta

Message édité par: Mytå, à: 30/03/2006 05:26

 

[mikepers]

Merci Mille fois Mita, celà fonctionne à merveille .Merci beaucoup pour ton travail.

 

[myDearFriend!]

Bonsoir TITANIC (mikepers ?), Myta,

En complément de la solution de Myta (un p'tit bonjour en passant),
on peut aussi régler ce problème en mettant 'False' à la propriété TakeFocusOnClick du bouton.

Cordialement,