MASQUER

MASQUER - VB/VBA/VBS - Programmation

Marsh Posté le 25-03-2005 à 08:11:07    

Sur Excel 2000, je veux pouvoir autoriser le masquage  même si la feuille est protégée.
 
(je veux qu en appuyant sur un bouton les lignes 10 à 15 soit masquer donc j enregistre la macro en effectuant les manips suivante:
oter protection; je tape le code; je masque mes lignes; je reverrouille avec le même code; j arrete l enregistrement; j assimile un bouton à la macro commande..... J essaye et là il me demande le code sauf que je veux qu il le connaisse automatiquement et qu il reverrouille automatiquement avec le même code)
 
MERCI DE VOTRE AIDE  

Reply

Marsh Posté le 25-03-2005 à 08:11:07   

Reply

Marsh Posté le 25-03-2005 à 08:43:28    

   ActiveSheet.Unprotect ("test" )
   Rows("7:11" ).Select
   Selection.EntireRow.Hidden = True
   ActiveSheet.Protect ("test" )


 
Edit -> Pense à mettre un mot de passe sur ton projet pour que les utilisateurs ne puissent pas voir ton mot de passe dans le code.


Message édité par AlainTech le 25-03-2005 à 08:45:05

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 25-03-2005 à 09:16:55    

Ma  macro est la suivante:
je veux que cette macro deverouille automatiquement avec le bon mot de passe. je veux pas qu elle me demande le mot de passe... car sinon les utilisateurs devront le connaitre. disons que le mot de passe est LUMIERE ... comment faire pour que la macro deverouille la feuille avec ce mot de passe et la reverouille est le même mot de passe.  
 
 
Sub ESSAI()
'
' ESSAI Macro
'  
    ActiveSheet.Unprotect
    Rows("32:41" ).Select
    Selection.EntireRow.Hidden = True
    Range("F31" ).Select
    ActiveCell.FormulaR1C1 = "NON"
    Range("F42" ).Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
End Sub
 
MERCI ALAIN
 
 

Reply

Marsh Posté le 25-03-2005 à 09:18:32    

As-tu lu ce que je t'ai proposé????


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 25-03-2005 à 09:23:47    

marcodeloris a écrit :

Sub ESSAI()
'
' ESSAI Macro
'  
    ActiveSheet.Unprotect
    Rows("32:41" ).Select  
    Selection.EntireRow.Hidden = True  
    Range("F31" ).Select
    ActiveCell.FormulaR1C1 = "NON"
    Range("F42" ).Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
End Sub
 
MERCI ALAIN


 

Sub ESSAI()
'
' ESSAI Macro
'  
    ActiveSheet.Unprotect ("LUMIERE" )
    Rows("32:41" ).EntireRow.Hidden = True
    [F31] = "NON"
    [F42].Select
    ActiveSheet.Protect ("LUMIERE" )
 
End Sub


 
Besogne mâchée et petit nettoyage pour la clarté du code :na:


Message édité par AlainTech le 25-03-2005 à 09:27:58

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 25-03-2005 à 09:32:21    

je n avais pas compris 'test' ds ton message.
 
Merci je vais essayer de verrouiller mon projet comme tu me l'as conseillé

Reply

Marsh Posté le 25-03-2005 à 09:45:24    

un dernier détail...comment je peux bloquer la sélection des lignes concernées ds la macro.
car si ds ma feuille j insère une ligne plus haut alors il décale la sélection d'une ligne ($ ne fonctionne pas...)

Reply

Marsh Posté le 25-03-2005 à 15:26:17    

Comment fais-tu toi (humain) pour savoir quelles lignes il faut cacher?
Sur quoi te bases-tu?
Un contenu?
Si c'est le cas, cherche la ligne qui a le contenu qui te sers de critère.
Une autre manière est de nommer une cellule et de s'y référer par son nom.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed