Bonjour,
J'ai un fichier Excel 2003 auquel j'aimerais interdire a tous de sauvegarder si certaines cellule (D1 à I1) n'ont pas pour valeur "0" (zéro),
avec une MsgBox les alertants que ces cellules ont besoin d'être a zero auquel cas ils ne pourront sauvegarder.
En me baladant sur les forums j'ai decouvert Workbook_BeforeSave mais je n'arrive pas a le faire fonctionner, pour l'instant j'ai fait un code qui ne fonctionne pas :
merci pour votre aide
J'ai un fichier Excel 2003 auquel j'aimerais interdire a tous de sauvegarder si certaines cellule (D1 à I1) n'ont pas pour valeur "0" (zéro),
avec une MsgBox les alertants que ces cellules ont besoin d'être a zero auquel cas ils ne pourront sauvegarder.
En me baladant sur les forums j'ai decouvert Workbook_BeforeSave mais je n'arrive pas a le faire fonctionner, pour l'instant j'ai fait un code qui ne fonctionne pas :
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sheet1").Cells(D1,e1,f1,g1,h1,i1).Value <> 0 Then
Cancel = True
MsgBox "Your Modification Impacted the Utiliti, Please Register Your Impact in Order to be Able to Save your Contribution to the File!", vbOKOnly
Else
Cancel = False
End If
End Sub
merci pour votre aide