Discussion :

[jojo86]

Bonjour, j'utilise un classeur fermé en guise de base de données.
Le seul soucis c'est que si je verouille les cellules en ecritures par un mot de passe, les requetes ne peuvent plus s'executer.

Connaissez vous une alternative à ce probleme?
Merci de votre aide.

Jojo

[jojo86]

Apparemment, il faudrait que j'ouvre le classeur de façon transparente et je devrais retirer la protection (Unprotect)...

Voici le code (placé dans un module) :

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
 
Dim wb1 As Workbook
Dim Appli As New Excel.Application
 
Sub UnprotectBase()
Appli.Visible = False
Appli.DisplayAlerts = False
Set wb1 = Appli.Workbooks.Open(ThisWorkbook.Path & "\FM_Base.xls")
wb1.Unprotect "PASSWORD"
End Sub
 
Sub ReprotectBase()
wb1.Close
Set wb1 = Nothing
Appli.Quit
Set Appli = Nothing
End Sub

Si sur une feuille de classeur je place un bouton et que je fais appel a la procedure placée dans le module, le code fonctionne. Mon classeur s'ouvre bien de façon invisible.

Par contre si sur mon bouton je fais :

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton4_Click()
MDivers.UnprotectBase
MRequete.RequeteClasseurFermer
UserForm1.Show
End Sub

Le fichier s'ouvre bien mais il est non masqué après plusieurs essais, le problème est lié à la requête...
Lorsque la requête s'exécute, ça affiche la fenêtre qui était fermée...

Comment faire pour que le fichier base reste A Tout Prix Masqué?

Merci de votre aide.