Macro verouillage & Condition avec date

[aerocrash]

Coucou à tous 🙂 je revient avec 2 questions concernant les Macros sur excel

Question 1 :
Je sais faire les conditions comme celle-ci :
If .Cells(i, "A") = "OISEAUX" Then...

maintenant j'aimerai faire quelque chose du genre :
If .Cells(i, "A") < 01/01/2007 Then
En concret, qu'il compare la cellule i, colonne A et si la date inscrite est inférieur a la date que je lui donne (dans le cas 01/01/2007) then ...

Question 2 :
Question sur le verouillage d'un classeur :
Est t'il possible d'affecter un mot de pass a toute les feuilles d'un classeur...
actuellement je connait ceci afin de protéger la feuille, mais il faut que je répéte cette commande pour toute les feuilles (je veux faire une macro générique en faite pour protéger mes documents) :

Sheets("Simulateur").Visible = True
ActiveSheet.Unprotect password:="pass"

De plus, j'aimerai en meme temps, interdir a l'utilisateur de pouvoir sélectionner les case verouiller et les case deverouiller. (quand on le fait à la main dans excel je décoche les 2 cases :
outil/protéger/protection de la feuille/ Sélectionner les cellules vérouiller
outil/protéger/protection de la feuille/ Sélectionner les cellules déverouillées


Merci d'avance 😉

 

[Compte Supprimé 979]

Re : Macro verouillage & Condition avec date

Salut Aerocrash,

Pour ta question 1, je ne pense pas que

If .Cells(i, "A") = "OISEAUX" Then

soit un code qui fonctionne 😕

Pour la colonne "A" comme c'est la première colonne, il faut mettre

If .Cells(i, 1) = "OISEAUX" Then

Ensuite pour la date, il suffit de mettre

If .Cells(i, 1) < DateValue("01/01/2007") Then

Pout ta question 2,
Il faut passer à la moulinette 😀 toutes les feuilles

Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
  Sht.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next Sht

Pour la protection au niveau de la sélection, je ne connais pas le code 😱

A+

 

[aerocrash]

Re : Macro verouillage & Condition avec date

Arf il n'est pas possible de générer une liste des noms de feuilles présente ou quelque chose du genre ? sniff sniff 🙁. Merci pour la question 1.. le code que j'avais donné marché... je ne connaissé pas la fonction DATEVALUE 😉 je vais de ce faite testé ceci !

Pour la question 2.... j'attend encore des réponses on sait jamais !

 

[Compte Supprimé 979]

Re : Macro verouillage & Condition avec date

Re,

Un fil ou j'avais mis un fichier pour, je pense ton besoin 😉

C'était pour afficher ou masquer une feuille, mais il suffit de protéger ou déprotéger à la place
https://www.excel-downloads.com/threads/bouton-montrer-onglets-caches-avec-mdp.97853/

A+

 

[tototiti2008]

Re : Macro verouillage & Condition avec date

Bonjour aerocrash,

1)

If .Cells(i, 1).value < Datevalue("01/01/2007") Then

2)
si tu ne peux ni sélectionner les cellues verrouillées, ni les déverrouillées, tu ne peux plus rien sélectionner dans la feuille de calcul. Or lorsque tu actives une feuile, une cellule est forcément sélectionnée... d'où l'impossibilité d'empêcher de tout sélectionner.

Edit : 12 trains de retard moi... c'est ça quand on est interrompu en plein post 🙂

 

[aerocrash]

Re : Macro verouillage & Condition avec date

au final j'ai bien regarder, c'esrt vrai que c'est du joli boulot qu'il à fait mais en faite c'est pas ca... car quand tu cache totalement des feuille (XLhidden ..) tu peut pu y accéder par lien hypertexte ou autre.
moi ce que je veut c'est juste les verouiller et protéger par mot de pass.

 

[tototiti2008]

Re : Macro verouillage & Condition avec date

eh bien deverrouille tout sauf la cellule A1 et ne permet de sélectionner que les cellules verrouillées ?

 

[Compte Supprimé 979]

Re : Macro verouillage & Condition avec date

Re,

Salut tototiti2008
Faut tout leur macher aux débutants, pffftt 🙄

Ci-joint mon fichier sité plus haut mais avec protection / déprotection
C'est pas difficile tout de même !?

A+

 

[aerocrash]

Re : Macro verouillage & Condition avec date

je viens de revenir. je regarde ca de suite. merci beaucoup