Limitation duree feuille ou onglet

[Tchti59]

Bonjour à tous


je souhaiterais avoir le code pour limiter la duree d une feuille
Avertir par message " duree limitée jusqu au ....."

faire 15 jours ou 7 jours


et le code pour limiter ou effacer si duree depassée un onglet


je joins un fichier excel pour essai .

et je copierai la macro en photo pour liberer


Merci et bon WE

 

[JCGL]

Re : Limitation duree feuille ou onglet

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Duree_Limite()
Dim X As Byte
For X = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Application.DisplayAlerts = 0
On Error Resume Next
If Cells(X, 1).Value < Now Then Sheets(Cells(X, 2).Value).Delete
Application.DisplayAlerts = 1
Next
End Sub

Dans une feuille :

• en colonne A et le début en ligne 1 : tes dates limites
• en colonne B et le début en ligne 1 : tes noms de feuilles exactes

A+ à tous

 

[Tchti59]

Re : Limitation duree feuille ou onglet

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Duree_Limite()
Dim X As Byte
For X = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Application.DisplayAlerts = 0
On Error Resume Next
If Cells(X, 1).Value < Now Then Sheets(Cells(X, 2).Value).Delete
Application.DisplayAlerts = 1
Next
End Sub

Dans une feuille :

• en colonne A et le début en ligne 1 : tes dates limites
• en colonne B et le début en ligne 1 : tes noms de feuilles exactes

A+ à tous

Merci pour ta reponse
Mais cela ne semble pas fonctionner

mets sur fichier joint ta formule mets ce que tu veux !
merci a toi

 

[JCGL]

Re : Limitation duree feuille ou onglet

Bonjour à tous,

Peux-tu essayer avec le fichier joint ?
Au vu des dates en A seule la feuille 'XLD' devrait être effacée après un click sur le GO

A+ à tous

PS : "mets sur fichier joint ta formule mets ce que tu veux !". Ton fichier déposé est vide de toute information...

 

[Tchti59]

Re : Limitation duree feuille ou onglet

Bonjour à tous,

Peux-tu essayer avec le fichier joint ?
Au vu des dates en A seule la feuille 'XLD' devrait être effacée après un click sur le GO

A+ à tous

PS : "mets sur fichier joint ta formule mets ce que tu veux !". Ton fichier déposé est vide de toute information...

MERCI

cela fonctionne

Merci beaucoup et bon WE

 

[Tchti59]

Re : Limitation duree feuille ou onglet

MERCI

cela fonctionne

Merci beaucoup et bon WE

J ai trouvé ceci mais ce code fonctionne t il soit c est moi qui ne le comprends pas soit je ne sais pas l installé

Le fichier est utilisable pendant 30 jours
Après un délai de 30 jours, l'opérateur ne peut plus visualiser l'onglet utilisateur. - Protection30Jours -

Private Sub Workbook_Open()
If Sheets("secret").[A1] = "" Then
Sheets("secret").[A1] = Date + 30
MsgBox "Valable jusqu'au " & Sheets("secret").[A1]
Sheets("secret").visible = xlVeryHidden
ActiveWorkbook.Save
Else
If Date > Sheets("secret").[A1] Then
Sheets("utilisateur").visible = xlVeryHidden
MsgBox "expiré"
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
End Sub



et j ai trouvé celui ci aussi different



Public Sub tof()
If Date > CDate("29/05/09") Then
MsgBox ("pas autorisé")
Else
MsgBox ("autorisé")
End If
End Sub


je joins une feuille excel vierge

qui peut m installer ces 2 codes ???


FEUIL 1 ET FEUIL 2


PAR EXEMPLE


Merci à celui qui le m aidera

 

[JCGL]

Re : Limitation duree feuille ou onglet

Bonjour à tous,

Il me semblait avoir lu que "mon" code te convenait...

Tu demandes une adaptation d'un code déposé (sans les balises BB) et avec un fichier basique d'ouverture XL (tu n'as même pas tenté de poser les codes...)...

Si tu espères des réponses cela sera sans moi.

A+ à tous

 

[Tchti59]

Re : Limitation duree feuille ou onglet

Bonjour à tous,

Il me semblait avoir lu que "mon" code te convenait...

Tu demandes une adaptation d'un code déposé (sans les balises BB) et avec un fichier basique d'ouverture XL (tu n'as même pas tenté de poser les codes...)...

Si tu espères des réponses cela sera sans moi.

A+ à tous

oui ton code me convient et je te la i dis et remercier
en ce qui concerne les balises je ne savais pas ceci
j ai vu ceci sur Formation Excel VBA JB

merci a l auteur