Discussion :

[mouftie]

Bonjour,
A l'ouverture de mon fichier, j'ai un message Microsoft

je n'arrive pas à le supprimer, masquer ou autre...
J'ai essayé dans thisWorkbook_Open

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
''ActiveSheet.Unprotect ("mdp")
Application.DisplayAlerts = False
Workbooks("MonClasseur.xlsm").Activate
Application.Goto (ActiveWorkbook.Sheets("Accueil").Range("A3"))
' Attendre 5 secondes j'ai essayé plusieurs tps
Application.Wait Time + TimeSerial(0, 0, 10) '(h,mn,s)
SendKeys ("{ENTER}") 'simule l'appuie sur la touche entrée
''ActiveSheet.Protect ("mdp")
Application.DisplayFullScreen = True
Application.DisplayAlerts = True
End Sub

De quel commande il s'agit, je ne vois pas : ce fichier est constitué d'une base de données et de différentes feuilles constituées de TCD, d'une page d'accueil avec des boutons pour accéder aux feuilles, et d'une feuille masquée avec mdp pour la mise à jour de la BdD

Le fait de cliquer sur Ok ferme la boîte de dialogue et il n'y a aucune conséquence sur l'utilisation du fichier en mode verrouillé (le bouton MàJ dévérouille toutes les feuilles, donc pas de pb non plus)

Est-ce que quelqu'un peut m'aider, ça me mine le moral
Merci d'avance

[eriiic]

Bonjour,

ActiveSheet.Unprotect ("mdp")
Tout au début de la macro tu ne sais pas quelle feuille est active à l'ouverture, sans doute pas la bonne.
D'autant plus que tu actives ce qu'on suppose être un autre classeur (sinon quel intérêt ?)

Déclare ta feuille en variable au début et travaille avec cette variable.
Teste qq chose comme ça :

Code :

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

1
2
3
4
5
6
7
Workbooks("MonClasseur.xlsm").Activate
Set sh = Sheets("ma feuille")
With sh
  .Activate
  .Unprotect ("mdp") 'là c'est la bonne feuille
  ' .etc
End With

eric

[mouftie]

Bonjour Eric,
Merci de m'avoir répondu.
Voici le code testé ce matin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
Dim Sh As Sheets
Application.DisplayAlerts = False
Set Sh = Sheets("Accueil")
With Sh
    .Activate
    .Unprotect ("mdp")
    .Range("A3").Select
End With
Application.DisplayFullScreen = True
Application.DisplayAlerts = True
Worksheets("Accueil").Protect ("mdp")
End Sub

Mais cela ne fonctionne toujours pas

PS:

D'autant plus que tu actives ce qu'on suppose être un autre classeur (sinon quel intérêt ?)

Non ce n'est pas un autre classeur ; j'ai donc viré (merci)

[(WOLF)]

Avez-vous testé de déprotéger également la feuille où se trouve les données du TCD ?

[mouftie]

Bonsoir Eriic et Wolf
Jai essayé de déprotégé la feuille active + la BDD, cela n'a rien changé, j'ai même essayé de tout déprotégé, puis de tout reprotégé

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
21
Private Sub Workbook_Open()
Dim Sh As Sheets
Dim i As Long
Application.DisplayAlerts = False
Set Sh = Sheets("Accueil")
      For i = 1 To Sheets.Count
         Worksheets(i).Unprotect ("mdp")
      Next i
With Sh("Accueil")
    .Activate
'    .Unprotect ("mdp")
    .Range("A3").Select
End With
      For i = 1 To Sheets.Count
        Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True _
        , Password:="mdp"
      Next i
Application.DisplayFullScreen = True
Application.DisplayAlerts = True
End Sub

Je vous mets le code de fermeture, c'est peut-être là que je fais une erreur ???

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False 'Annulation du Plein écran
'Suppression des filtres sur la BdD
    Call SupFiltre
''*** Protection automatique de toutes les feuilles du classeur
Dim nombre As Integer
Dim i As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True _
        , Password:="DpmJaspTps"
Next i
'***FIN Protection automatique de toutes les feuilles du classeur
Sheets("MàJ").Visible = False   'masque la page MàJ
' ActiveWorkbook.Close savechanges:=False    'empêche l'enregistrement en sortant
End Sub

Merci encore d'essayer de m'aider

[casefayere]

Bonsoir,
fait à main levée (sans tester), essayes

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
21
Private Sub Workbook_Open()
Dim Sh As Worksheet
Dim i As Long
Application.DisplayAlerts = False
Set Sh = Sheets("Accueil")
For Each Sh In Worksheets
  Sh.Unprotect ("mdp")
Next Sh
With Sheets("Accueil")
    .Activate
'    .Unprotect ("mdp")
    .Range("A3").Select
End With
For Each Sh In Worksheets
  Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True _
        , Password:="mdp"
Next Sh
Application.DisplayFullScreen = True
Application.DisplayAlerts = True
End Sub

[mouftie]

Bonsoir casefayere
Merci de ton aide, mais malheureusement, cela ne change rien non plus.

[casefayere]

et si tu enlèves cette partie, quitte à revoir la protection dans un autre evenement

Code :

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

1
2
3
4
5
For Each Sh In Worksheets
  Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True _
        , Password:="mdp"
Next Sh

[mouftie]

casefayere,
Effectivement, en enlevant cette partie dans Private Sub Workbook_Open(), je n'ai plus de message, mais comment faire pour tout protéger après ?

[casefayere]

peut-être en déclarant un évenement "Calculate" entre temps, pas sur mais allez savoir....

j'y pense, les feuilles contenant les TCD, sont-elles à part ?, si oui, peut-être ne pas re-protéger ces feuilles, donc les éviter dans la boucle

[mouftie]

Bonjour casefayere

les feuilles contenant les TCD, sont-elles à part ?,

Oui, elles sont à part, le pb, c'est que j'ai des données sensibles dans la BdD qui ne doivent pas être consultées pour le moment. si je ne protège pas les TCD, les utilisateurs auront accès à la liste des champs, donc aux données sensibles.

C'est pourquoi, je cherchais une solution qui appuye sur le bouton Ok de cette Put... de boite de dialogue
j'avais essayé

Code :

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

1
2
Application.Wait Time + TimeSerial(0, 0, 10) '(h,mn,s)
SendKeys ("{ENTER}") 'simule l'appuie sur la touche entrée

mais ça ne fonctionne pas,serait-ce parce que je ne serai pas sur la boite de dialogue. donc comment faire ?

Le pb c'est que si je met un Wait time de mn, ça attend 1 mn avant d'envoyer le message et la touche Enter agit sur la feuille active, car je me retrouve en A4.

[casefayere]

Bonjour,

Oui, elles sont à part, le pb, c'est que j'ai des données sensibles dans la BdD qui ne doivent pas être consultées pour le moment. si je ne protège pas les TCD, les utilisateurs auront accès à la liste des champs, donc aux données sensibles.

donc si les feuilles ont des données sensibles, les TCD reflètent les données sensibles, ce n'est plus les feuilles qu'il faut protéger, c'est le classeur avec une ouverture par mot de passe en lecture/écriture, à ton avis ?

[mouftie]

casefayere
j'ai modifié mon message précédent pendant que tu me répondais.
Excuse-moi.
Est-ce que tu peux développer ton propos, car je ne vois pas bien
Protéger le classeur au niveau Enregistrer sous ; outils ; Option générales de sauvegarde ; Mot de passe pour la modificaiton
Et je déprotège toutes les feuilles ?

[casefayere]

exactement.

[mouftie]

casefayere
Ok, j'ai fait comme on a dit. Sauf que en lecture seule, les utilisateurs peuvent toujours desmasquer des colonnes de la BdD. Donc j'ai protégé uniquement ma BdD en sortant, ça a l'air de fonctionner, même s'ils enregistrent sous un autre nom.

Donc connais-tu un code particulier pour protéger toutes les feuilles qui n'ont pas de TCD ou dois-je écrire

Code :

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

1
2
3
4
Sheet("Accueil").Protect password:="mdp"
Sheet("BdD").Protect password:="mdp"
Sheet("Tables").Protect password:="mdp"
...

Merci

[casefayere]

Bonjour,

Donc connais-tu un code particulier pour protéger toutes les feuilles qui n'ont pas de TCD

Code :

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

1
2
3
4
5
6
7
For Each Sh In Worksheets
  if sh.name <> "nom de la 1ere feuille TCD" Or sh.name <> "nom de la 2eme feuille TCD"....Then
     Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True _
        , Password:="mdp"
  End If
Next Sh

[vinc_bilb]

Bonjour

Ok, j'ai fait comme on a dit. Sauf que en lecture seule, les utilisateurs peuvent toujours desmasquer des colonnes de la BdD. Donc j'ai protégé uniquement ma BdD en sortant, ça a l'air de fonctionner, même s'ils enregistrent sous un autre nom.

=> si les différents utilisateurs ont des login windows différents, vous pouvez aussi utiliser Application.UserName pour gérer les droits, masquage / protection ....

[mouftie]

Bonjour vinc_bilb

Merci de vous joindre à nous.
Il y a 2 types d'utilisateurs, ceux qui consultent (ils sont nombreux) et ceux qui mettent à jour ; on est 3.
Est-ce que votre proposition évite de rentrer un mot de passe comme avec la solution casefayere ?

Parce que je préfère garder une fenêtre intempestive qui disparait avec un simple clic que de rentrer mon mot de passe une fois à l'entrée, une deuxième fois pour aller dans le code et de toute façon obliger aussi les utilisateurs à cocher "Lecture seule"
Soit je trouve (ou on me trouve...) un truc pour fermer cette fenêtre soit je laisse tomber. parce que si un utilisateur s'amuse à recalculer une moyenne dans un TCD et qu'il ne trouve pas la même chose qu'Excel, il y aura toujours des doutes. donc je ne veux pas qu'ils puissent faire quoi que ce soit dans le fichier.

j'ai aussi trouvé dans l'aide microsoft :

Code :

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

ThisApplication.Windows().Close()

là j'ai un message "Variable non définie" et

Code :

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

Application.Windows().Close() = True

donne "propriété non géré".

Merci

[vinc_bilb]

Bonjour,

Il y a 2 types d'utilisateurs, ceux qui consultent (ils sont nombreux) et ceux qui mettent à jour ; on est 3.

=> Oui, mais ma question était de savoir si ces utilisateurs ont un username différent vu par Excel (hérité de windows), que vous pouvez tester par application.Username à l'ouverture du fichier comme

Code :

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

1
2
3
if Application.username = "mouftie" then 
    call set_edit_mode 
else: call set_protect_mode

[mouftie]

Bonsoir,
Je n'avais pas compris, oui, nous avons tous des identifiants différents
Merci.