Discussion :

[capi81]

Salut le forum

Le code ci-dessous me permet de renseigner ma base de donnée sans problème.
Pour sécuriser ma base de donnée (feuille de destination), je l'ai protéger et cela empêche le code de bien fonctionner.
Je souhaite qu'on m'aide à adapter le code de sorte qu'il déprotège la feuille de la base de base de donnée à renseigner et la protéger après.
Comment faire car je maitrise pas trop les bases de données.
Je remercie au passage l'auteur du code rdurupt.

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
22
Private Sub Label11_Click()
Dim strsQL As String
Dim Rs
OpenConnexion Fichier
sql = "select * from  [" & Feuille9 & "] where [NUM_PROJET]='" & Trim(TextBox1.Value) & "';"
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else
strsQL = "insert into [" & Feuille9 & "] ([NUM_PROJET]) "
        strsQL = strsQL & "Values ('" & Trim(TextBox1.Value) & "');"
Cnx.Execute strsQL
'Set Cnx = Nothing
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me
 
End Sub

[Quentin77170]

Salut,

Ta base de données est une feuille Excel ?

Si oui, tu peux simplement la verrouiller avec :

Code :

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

Sheets(XXX).Protect Password:="1234" ',[Tes eventuels arguments]

puis pour déprotéger

Code :

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

Sheets(XXX).Unprotect Password:="1234"

Mais le plus simple c'est de la protéger uniquement à l'utilisateur mais cela reste contrôlable par VBA :

Code :

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

Sheets(XXX).Protect Password:="1234",UserInterfaceOnly:=True ',[Tes autres arguments si besoin]

J'espère ne pas être hors sujet :p

Quentin

[capi81]

Salut quentin
Merci pour votre aide.
Je teste et vous reviens.
Je m'excuse du temps mis.