macro verrouiller cellule

[mix770]

Bonsoir,

j'ai besoin d'un coup de main sur un tableau, celui ci est protégé seul une partie des cellule (C9:AB23) est déprotégé afin de saisir les données. je souhaiterai intégrer à ma macro d'impression la protection des cellules afin d’empêcher des modifications une fois imprimé.

Private Sub CommandButton1_Click()
Sheets(Array("JANV CONV", "JANV CDD ", "récap 01")).Select
Sheets("JANV CONV").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Unload Me
End Sub

merci à vous pour vos idées
cordialement
roland

 

[camarchepas]

Re : macro verrouiller cellule

Bonjour ,

Voici une évolution de ton code Vba

ATTENTION, le mdp est renseigné par la variable code : dans mon exemple Le_tiens " à remplacer par le tiens bien sûr

Private Sub CommandButton1_Click()
Dim Code As String
Dim Onglet As Worksheet
Code = "Le_tiens"
For Each Onglet In Sheets(Array("JANV CONV", "JANV CDD ", "récap 01"))

With Onglet
  .PrintOut Copies:=1, Collate:=True
  .Protect Password:=Code, DrawingObjects:=True, Contents:=True, Scenarios:=True
  .EnableSelection = xlNoSelection
End With
Next
Sheets("JANV CONV").Activate
Unload Me
End Sub

 

[mix770]

Re : macro verrouiller cellule

Bonjour camarchepas,

désolé pour le temps de réaction :-(

merci à toi pour ton aide

je teste ta proposition et te tiens informé

merci
cordialement