R
Reyes
Guest
Bonjour à tous,
J'aurais besoin d'un peu d'aide dans l'écriture d'une macro.
Je souhaite verrouiller le contenu d'une plage sélectionnée à la souris.
Je bloque car je ne sais pas comment appeler le reste de la feuille (NonPlage dans mon code) pour le déverrouiller.
Sub Rectangle1_Clic()
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez la plage à verrouiller", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionnée est :" & Plage.Address)
If MsgBox("êtes-vous certain de valider ?" & Chr(13) & _
"Vous ne pourrez plus modifier les entrées.", vbQuestion + vbYesNo) = vbYes Then
End If
ActiveSheet.Unprotect
Plage.Copy
Plage.Locked = True
'Set NonPlage = ?
'NonPlage.Locked = False
ActiveSheet.Protect
End Sub
J'espère que c'est assez clair.
Merci d'avance de vous intéresser à ce petit problème.
Bonne journée,
Reyes
J'aurais besoin d'un peu d'aide dans l'écriture d'une macro.
Je souhaite verrouiller le contenu d'une plage sélectionnée à la souris.
Je bloque car je ne sais pas comment appeler le reste de la feuille (NonPlage dans mon code) pour le déverrouiller.
Sub Rectangle1_Clic()
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez la plage à verrouiller", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionnée est :" & Plage.Address)
If MsgBox("êtes-vous certain de valider ?" & Chr(13) & _
"Vous ne pourrez plus modifier les entrées.", vbQuestion + vbYesNo) = vbYes Then
End If
ActiveSheet.Unprotect
Plage.Copy
Plage.Locked = True
'Set NonPlage = ?
'NonPlage.Locked = False
ActiveSheet.Protect
End Sub
J'espère que c'est assez clair.
Merci d'avance de vous intéresser à ce petit problème.
Bonne journée,
Reyes