protéger une feuille en vue

Salut

un exemple à mettre dans le module thisworkbook
avec une 4ème feuille vide pour éviter la désactivation des macros au départ

et des mots de passe tete toto et titi
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
For i = 1 To 3
Sheets(i).Visible = xlVeryHidden
Next
Sheets(4).Visible = True
End Sub

Private Sub Workbook_Open()
On Error Resume Next
rep = InputBox(" MDP please ?")
rep1 = Evaluate("match(" & """" & rep & """" &
",{""tete"",""toto"",""titi""},0)")
If Err <> 0 Then End
For i = 1 To rep1
Sheets(i).Visible = True
Next
Sheets(4).Visible = false
End Sub

a+
rural thierry

"Jean-Michel Renard" <jm.renard@insad.net.no.spam> a écrit dans le message
de news: eMpnWhbiEHA.2908@TK2MSFTNGP10.phx.gbl...

Bonjour,

Soit un fichier excel avec 3 feuille
Je souhaiterais suivant le mot de passe indiqué que certains utilisateurs
ne

voient qu'une ou deux ou trois feuilles.

Cette option existe ? Dans la négative existe-t-il des macros toutes
prêtes

pour ça ?

Merci pour vos infos

cdt

jmr

bonjour,
un autre exemple à télécharger sur excelabo :
http://www.excelabo.net/moteurs/compteclic.php?nom½f-autorisations

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 24/08/2004 11:29:

Salut

un exemple à mettre dans le module thisworkbook
avec une 4ème feuille vide pour éviter la désactivation des macros au départ

et des mots de passe tete toto et titi
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
For i = 1 To 3
Sheets(i).Visible = xlVeryHidden
Next
Sheets(4).Visible = True
End Sub

Private Sub Workbook_Open()
On Error Resume Next
rep = InputBox(" MDP please ?")
rep1 = Evaluate("match(" & """" & rep & """" &
",{""tete"",""toto"",""titi""},0)")
If Err <> 0 Then End
For i = 1 To rep1
Sheets(i).Visible = True
Next
Sheets(4).Visible = false
End Sub

a+
rural thierry

"Jean-Michel Renard" <jm.renard@insad.net.no.spam> a écrit dans le message
de news: eMpnWhbiEHA.2908@TK2MSFTNGP10.phx.gbl...

Bonjour,

Soit un fichier excel avec 3 feuille
Je souhaiterais suivant le mot de passe indiqué que certains utilisateurs

ne

voient qu'une ou deux ou trois feuilles.

Cette option existe ? Dans la négative existe-t-il des macros toutes

prêtes

pour ça ?

Merci pour vos infos

cdt

jmr