XL 2019 activer une "CommandButton" à la fermeture du fichier

[Tioneb_h]

bonjour,

j'ai créé deux commandes "CommandButton"...
une pour déverrouiller certaines cellules et l'autre pour reprotéger la feuille.

je voudrais savoir s'il était possible d'exécuter également "Private Sub Proteger_Click()" à la fermeture du fichier au cas, on oublierait de le faire ?

Private Sub Deverrouiller_Click()
Range("F14:F42").Locked = False
Range("P14:P42").Locked = False
End Sub

Private Sub Proteger_Click()
Range("F14:F42").Locked = True
Range("P14:P42").Locked = True
ActiveSheet.Protect Password:="TEST"
End Sub

merci d'avance
Benoît

 

[Deadpool_CC]

bonjour,

il suffit d'appeler ta fonction de protection dans la sub Workbook_BeforeClose(Cancel As Boolean)

 

[Deadpool_CC]

et pendant que j'y pense ... dans la sub before close, après avoir "protéger" pense à forcer un enregistrement du fichier ...sinon ta protection ne sera pas enregistrée ... lol

 

[job75]

Bonjour Tioneb_h, Deadpool_CC,

Les macros améliorées :

Private Sub Deverrouiller_Click()
Protect Password:="TEST", UserInterfaceOnly:=True
Range("F14:F42,P14:P42").Locked = False
End Sub

Private Sub Proteger_Click()
Protect Password:="TEST", UserInterfaceOnly:=True
Range("F14:F42,P14:P42").Locked = True
End Sub

Et dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveSheet 'adapter éventuellement
    .Protect Password:="TEST", UserInterfaceOnly:=True
    .Range("F14:F42,P14:P42").Locked = True
End With
Me.Save 'enregistre le fichier
End Sub

A+

 

[job75]

On peut aussi utiliser dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run ActiveSheet.CodeName & ".Proteger_Click" 'adapter ActiveSheet éventuellement
Me.Save 'enregistre le fichier
End Sub

 

[patricktoulon]

Bonsoir
Ou
ton events en public

public Sub Proteger_Click()
Range("F14:F42").Locked = True
Range("P14:P42").Locked = True
ActiveSheet.Protect Password:="TEST"
End Sub

et dans le beforeclose
change Userform1 pour le nom de ton userform

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 UserForm1.CommandButton1_Click
End Sub