Discussion :

[ericdev67]

Bonjour,

J'ai un classeur avec 3 feuilles. Je masque la feuille 1 et je souhaite que les personnes qui ouvrent mon classeur ne puissent pas ouvrir la feuille 1 : en passant par "Format/feuille/afficher".
J'ai le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Visible = False

qui masque la feuille, j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ActiveWorkbook
 
        .UnprotectSharing '"Password"
        .Worksheets("Feuil1").Protect Contents:=True, UserInterfaceOnly:=True
        .ProtectSharing Filename:=Fichier ', Password:="Password"

Ca empeche d'écrire dans la feuille, mais ça n'empêche pas d'ouvrir (=afficher) la feuille....

Une idée ?
Merci,
A+

[Fvandermeulen]

Salut,
Adapte la ligne comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets("Feuil1").Visible = 2

2 correspondant au VeryHidden. (-1 = Visible et 0 = Hidden)

Si tu passes par le menu Excel tu verras qu'on te propose pas de 'démasquer' de feuille, ça oblige à passer par VBA pour l'afficher à nouveau donc généralement suffisant pour que les autres utilisateurs ne trouvent la faille (je dis ça par expérience...)

A+

P.S. tu peux t'amuser à utiliser ton userID pour l'afficher si c'est toi qui ouvre le fichier et la masquer si c'est un autre.

[ericdev67]

Merci Fvandermeulen,

Tu penses à un petit truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
    'ouverture base des chemins
    ‘ field = numéro de la colonne
 
 
'Définit l'emplacement et le nom du fichier .txt, ou va être enregistré les
'informations d'ouverture et de fermeture.
Private Const Chemin As String = "k:\Sauvegarde\dive.xls"
 
 
'Evenement ouverture du classeur
Sub Workbook_Open()
    Dim Cible As Integer
   Selection.AutoFilter Field:=1, Criteria1:=Environ("username")
    Cible = FreeFile
 
    Open Chemin For Append As #Cible
        Print #Cible, Environ("UserName"), Date
    Close #Cible
End Sub

Merci pour ton aide

A+ pour de prochaines aventures.....

[ericdev67]

En + tu as raison....c'est pas souvent qu'ils pensent à repasser par VBA....

Merci

[Fvandermeulen]

Oui, par exemple (bien que je n'ai pas testé), sinon voici un code que j'ai utilisé,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Const usrPerso = "MonUser" 'remplacer MonUser par ton user
Private Sub Workbook_Open()
 
If LCase(Environ("UserName")) <> LCase(usrPerso) Then
        Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
        ActiveWindow.DisplayHeadings = False 'Dans mon cas je masque les N° ligne et noms colonnes
        Sheets("Feuil1").Select
        Sheets("Parametres").Visible = 2
Else:
        Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
        ActiveWindow.DisplayHeadings = True
        Sheets("Feuil1").Select
        Sheets("Parametres").Visible = -1
End If
 
End Sub

Si tu verrouilles ton code VBA, tu es tranquille, il faut déjà tomber sur un utilisateur qui pensera a utiliser un Cracker (donc, au pire, il s'y connait un peut et mettra pas le bord.. dans ton fichier, toujours par expérience ) et ça évite de devoir protéger les feuilles ce qui personnellement me gêne.

A+

Edit: Encore un petit conseil, remets ta feuille en verryhidden à la fermeture du fichier ça évite qu'elle soit visible si ils désactivent leurs macros (encore de l'expérience...et pourtant je suis pas si vieux )

[ericdev67]

Trop fort, j'avais pas pensé au petit malin qui pourrait ouvrir sans activer les macros...bien vu, merci

Pour ton code, il fonctionne super-bien !!!

Le mien était extrait d'une de mes macros qui permettait d'ouvrir un classeur, d'indiquer dans un fichier qui l'avait ouvert, et de trier automatiquement sur la première colonne et de ne "montrer" que les éléments qui concernait la personne.

Merci,

A+ pour de prochaines aventures