XL 2016 VBA

[Thierry K]

Bonjour, je suis à la recherche d'aide. J'ai souvent des clients qui me demande d'automatiser certaines choses sur Excel, mais lorsque je finis ils ont dû mal à me rénumener. Donc, j'ai décidé de me créer une version d'évaluation pour 30 jours. Mais je ne sais pas comment m'y prendre.

 

[Lone-wolf]

Bonjour Thierry et bienvenue sur XLD 🙂

Bien que nous soyons pas énumerer 😵 ... ouuuupps rémunerer 😉

Un essai avec ceci

Sub Evaluation()
Dim deb As Date
   'En AA1, tu inscrit une date et tu colorie le texte en blanc
    deb = [AA1] + 30
    If Date = deb Then
        MsgBox "Le temps d'essai est arrivé à expiration", , "Essai terminé"
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        Application.Quit
    End If
End Sub

Après, savoir ou la personne enregistre le fichier pour pouvoir le supprimer, pour moi c'est une autre histoire.

 

[Thierry K]

Bonjour Thierry et bienvenue sur XLD 🙂

Bien que nous soyons pas énumerer 😵 ... ouuuupps rémunerer 😉

Un essai avec ceci

Sub Evaluation()
Dim deb As Date
   'En AA1, tu inscrit une date et tu colorie le texte en blanc
    deb = [AA1] + 30
    If Date = deb Then
        MsgBox "Le temps d'essai est arrivé à expiration", , "Essai terminé"
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        Application.Quit
    End If
End Sub

Après, savoir ou la personne enregistre le fichier pour pouvoir le supprimer, pour moi c'est une autre histoire.

Merci

 

[Staple1600]

Bonsoir le fil, le forum

@Thierry K
Pour infos
1) Il suffit d'ouvrir ton classeur sans activer les macros pour continuer à utiliser le classeur
2) Il suffit de modifier le code VBA (aprés le 1)
Sub Way()
Dim deb As String
deb="Achtung_Baby!"
If Len(deb) Then
'on commente les lignes qui suivent
End if
End Sub
3) Toujours après le 1), ALT+F11 -> CTRL+A-> Barre outils Edition -> Clic sur "Commenter Bloc"

Bref, pas sur que ce soit efficace 😉

Si ce sont des clients, tu as du émettre une facture, non ?
Dans ce cas, en cas d'impayés, direction le contentieux, le tribunal etc...

EDITION: Bonsoir Lone-Wolf

 

[Lone-wolf]

Bonsoir Jean Marie 🙂

@Staple1600

Si ce sont des clients, tu as du émettre une facture, non ?
Dans ce cas en cas d'impayés, direction le contentieux, le tribunal etc...

Je Like 😀😉

 

[Thierry K]

Merci beaucoup votre aide

 

[Staple1600]

Bonjour le fil, le forum

@Thierry K
Tu as bien lu le message#4?

 

[Thierry K]

Bonjour le fil, le forum

@Thierry K
Tu as bien lu le message#4?

Oui, je l'ai lu

 

[Staple1600]

Re

Donc tu as bien conscience que cette protection n'en est pas vraiment une, alors?

 

[Thierry K]

Oui, effectivement.