Re : Aide pour une macro!!
Re je viens de trouver.
J'aimerais maintenant bloquer l'enregistrement du fichier excel, j'ai trouvé une macro. Mais quand je met les deux macro a la suite ca ne marche pas.
1er
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I15")) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Value = "¨" Then
For i = 2 To 6
Sheets(i).Visible = -1
Next i
Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "
Target.Value = "þ"
Application.EnableEvents = True
Target.Offset(9, 1).Select
Exit Sub
Else
Application.EnableEvents = False
For i = 2 To 6
Sheets(i).Visible = 2
Next i
Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "
Target.Value = "¨"
Cells(9, 1).Select
End If
End If
fin:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
2éme
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then
MsgBox "Veuillez ""enregistrer sous"" et utiliser un nouveau nom"
Cancel = True
Else
MsgBox "Veuillez utiliser un nouveau nom"
End If
End Sub
Avez-vous une idée?
Merci
Pierre