Donc ceci ne devrait avoir lieu alors?Les usagers n’auraient pas intéret à craquer quoique ce soit car pas de bénéfice.
De toute façon, à partir du moment où ton classeur aura quitté ton disque dur, tu ne maîtrises plus sa destinée.(hors farfouinage - au moins, pas de mise en alerte flagrante).
Private Sub Workbook_Open()
If Application.Name <> "Microsoft Excel" Then MsgBox "Pour une meilleure expérience nous vous conseillons" & vbLf & "d'ouvrir ce fichier sur Microsoft Excel"
End Sub
Private Sub Workbook_Open()
MsgBox "Pour une meilleure expérience nous vous conseillons" & vbLf & "d'ouvrir ce fichier sur Microsoft Excel", vbExclamation, "Avertissement"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Worksheets
If sh.Name <> "Info" Then sh.Visible = xlSheetVeryHidden
Next sh
End Sub
Private Sub Workbook_Open()
On Error GoTo fin
If Application.Name = "Microsoft Excel" Then
Application.ScreenUpdating = False
For Each sh In Worksheets
sh.Visible = xlSheetVisible
Next sh
Sheets("Info").Visible = xlSheetVeryHidden
End If
fin:
End Sub