Bloquer l'enregistrement d'un classeur

[so.bg]

Bonjour,

je voudrais savorir s'il y a un moyen de bloquer l'enregistrement d'un classeur lorsque les utilisateurs n'ont pas rempli une cellule obligatoire.

Merci pour votre aide

 

[Temjeh]

Re : Bloquer l'enregistrement d'un classeur

Bonjour

A mettre dans le classeur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Range("A1") = "" Then
	MsgBox "Remplir A1 !", vbExclamation + vbOKOnly, "Attention"
	Cancel = True
End If

End Sub

ALT+F11
Voir image ici


A+


Temjeh

 

[so.bg]

Re : Bloquer l'enregistrement d'un classeur

Merci beaucoup!!

 

[merinos]

Re : Bloquer l'enregistrement d'un classeur

Une autre solution consiste a redefinir la fonction "save"

Private Sub Workbook_Open()
Sheet1.Select
Range("C6").Select
Application.OnKey "^s", "mysave3" ' les touches CTRL-S renvoient vers la function mysave3.
'when openning this workbook, the decimal sign will change to "."
'the auto save time for all open documents is changed to 10 minutes.
With Application
.DecimalSeparator = ","
.ThousandsSeparator = "."
.UseSystemSeparators = False
End With
Application.AutoRecover.Time = 10
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^s" 'here the save function is restored
Application.UseSystemSeparators = True
End Sub