Verrouillage d'une plage après sélection à la souris

[Reyes]

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

 

[pierrejean]

Re : Verrouillage d'une plage après sélection à la souris

Bonjour Reyes

Suggestion:

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
Activesheet.cells.locked=False
Plage.Copy
Plage.Locked = True
ActiveSheet.Protect
End Sub

 

[don_pets]

Re : Verrouillage d'une plage après sélection à la souris

'lo tous,

PierreJean t'es un champion !

 

[Reyes]

Re : Verrouillage d'une plage après sélection à la souris

Merci beaucoup Pierre Jean pour cette réponse rapide !!

Il me reste un petit soucis. En effet, la procédure de verrouillage de la plage a lieu même si je réponds Non à la question "Etes vous sûr de valider?"

Auriez-vous une petite idée à ce sujet ?

 

[Robert]

Re : Verrouillage d'une plage après sélection à la souris

Bonjour le fil, bonjour le forum,

Le End If n'est pas à la bonne place :

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
    ActiveSheet.Unprotect
    ActiveSheet.Cells.Locked = False
    Plage.Copy
    Plage.Locked = True
    ActiveSheet.Protect
End If
End Sub

 

[Reyes]

Re : Verrouillage d'une plage après sélection à la souris

Merci beaucoup Robert. ça marche maintenant.
Bonne soirée

Reyes