Adaptation de code pour intégrer la protection et la déprotection dans une base de donnée
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:
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 |
