Bonjour, j'ai un bout de code pour verrouiller l'impression mais je voudrais le faire par mon bouton sauf que cela verrouille tout

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub
je voudrais deverrouiller le verrouillage et a la fin reverrouiller l'impression

mon bouton

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim i As Byte
Dim plage As Range
Unload Me
For i = 1 To 12
If Controls("checkbox" & i) = True Then Range(Controls("checkbox" & i).Tag).PrintOut
 
' impression en couleurs
With ActiveSheet.PageSetup.BlackAndWhite = False
 
End With
Next
End Sub
merci