Private Sub Workbook_Open()
On Error Resume Next 'si la feuille est masquée
Application.Goto Feuil1.[A1], True
End Sub
Dim autorise As Boolean 'mémorise la variable
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target.EntireRow, Me.UsedRange.EntireRow)
If r Is Nothing Or autorise Then Exit Sub
For Each r In r.Rows 'si sélection multiple
If r.Row Mod 4 = 0 Then
If InputBox("Entrez le mot de passse :", "Mot de passe") <> "toto" Then [A1].Select Else autorise = True
Exit For
End If
Next
End Sub
Dim autorise As Boolean 'mémorise la variable
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target.EntireRow, Me.UsedRange.EntireRow)
If r Is Nothing Or autorise Then Exit Sub
For Each r In r.Rows 'si sélection multiple
If IsNumeric(CStr(r.Cells(1))) Then
If InputBox("Entrez le mot de passse :", "Mot de passe") <> "toto" Then [A1].Select Else autorise = True
Exit For
End If
Next
End Sub
Dim autorise As Boolean 'mémorise la variable
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If autorise Then Exit Sub
Dim derlig&, r As Range
derlig = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1
For Each r In Target.EntireRow.Rows 'si sélection multiple
If r.Row Mod 4 = 0 Or r.Row > derlig Then
UserForm1.Show
autorise = ActiveCell.Row > 1
Exit For
End If
Next
End Sub
Dans ce cas le VBA est inutile, voyez le fichier joint.Ce que je souhaite est plus simple :
Le "blocage" des lignes 4 et multiples doit être automatique : je lance la macro 1 seule fois et c'est bloqué.
Re,
Vous croyez que verrouiller les cellules 4-8-12 etc... est le vrai problème ???
Dans ce cas il n'y a vraiment pas besoin de macro