Re : excel 7 ou 10- empecher la suppression de lignes sans vérrouiller la feuille?
Je met le code avec rectification
il est bon seulement que le codeur a juste fait quelque erreur de ma part
tient ceci ça marche impeccablement
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Msg As String
Dim pWord As String
Dim response As String
pWord = "MyPass"
Msg = "Interdition de supprimer colonne/ligne"
If Target.Address = Target.EntireRow.Address Or _
Target.Address = Target.EntireColumn.Address Then
response = InputBox("Enter password")
If response = pWord Then Exit Sub
With Application
.EnableEvents = False
.Undo
Msg = MsgBox(Msg, 16, "WARNING")
.EnableEvents = True
End With
Else
Exit Sub
End If
End Sub