Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel cellule protegee

cellule protegee

5 réponses
Avatar
quiça
Bonjour
Comment faire pour éviter de craker une cellule sur excel protéger par un
mot de passe
je fais circuler un fichier excel par différents services ils arrivent à
craker certaines zones protégées
je dois tout reprendre c' est pénible
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
quiça
Merci
en fait la base doit êrtre enrichie par des infos mais en aucun cas ils
doivent modifier les formules
ors c' est la qu' ils interviennent ils efface la formule et la remplace par
les données
si bien que cela fausse la suite de la base
voila si vous voyez plus merci de me le faire savoir

"PTIFRED DU 62" a écrit dans le
message de news:
salut quiça
essaye ca code a mettre dans thisworkbook

Private Sub Workbook_Open()
Dim mdP As String, alR
Dim t As Byte
alR = MsgBox("Ce Fichier est Protege en Enregistrement et Ouverture par
Mot de Passe " _
& "de ce classeur !" & Chr(10) & "Désirez-vous poursuivre ?", _
4, "Attention...")
If alR <> vbYes Then Exit Sub
mdP = "1964"
t = 0
Do
t = t + 1
anS = Application.InputBox("Quel est le mot magique ?", _
"Tentative " & t, , , , , , 1 + 2)
If anS = mdP Then Exit Sub
Loop While t < 3
inF = MsgBox("Le classeur va être fermé...", vbCritical, _
"Mot de passe invalide...")
ThisWorkbook.Close (0)
End Sub

le mot de passe est 1964 mais tu peut le changer dans le code
surtout ensuite tu protege ton projet (WbaProject...clic
droit...propriete...protection..)
@+


Bonjour
Comment faire pour éviter de craker une cellule sur excel protéger par
un
mot de passe
je fais circuler un fichier excel par différents services ils arrivent à
craker certaines zones protégées
je dois tout reprendre c' est pénible







Avatar
Gildo
Bonjour,
moi je pose ça dans le WorkBook pour moi ça marche du tonnerre les zones
protégées sont inaccessibles mais les filtres restent actifs !

Private Sub Workbook_Open()
'là c'est pan dans les dents
With Sheets("Feuil1")
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
End With
'et plus si tu as des filtres
With Sheets("feuil1")
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub



Merci
en fait la base doit êrtre enrichie par des infos mais en aucun cas ils
doivent modifier les formules
ors c' est la qu' ils interviennent ils efface la formule et la remplace par
les données
si bien que cela fausse la suite de la base
voila si vous voyez plus merci de me le faire savoir

"PTIFRED DU 62" a écrit dans le
message de news:
salut quiça
essaye ca code a mettre dans thisworkbook

Private Sub Workbook_Open()
Dim mdP As String, alR
Dim t As Byte
alR = MsgBox("Ce Fichier est Protege en Enregistrement et Ouverture par
Mot de Passe " _
& "de ce classeur !" & Chr(10) & "Désirez-vous poursuivre ?", _
4, "Attention...")
If alR <> vbYes Then Exit Sub
mdP = "1964"
t = 0
Do
t = t + 1
anS = Application.InputBox("Quel est le mot magique ?", _
"Tentative " & t, , , , , , 1 + 2)
If anS = mdP Then Exit Sub
Loop While t < 3
inF = MsgBox("Le classeur va être fermé...", vbCritical, _
"Mot de passe invalide...")
ThisWorkbook.Close (0)
End Sub

le mot de passe est 1964 mais tu peut le changer dans le code
surtout ensuite tu protege ton projet (WbaProject...clic
droit...propriete...protection..)
@+


Bonjour
Comment faire pour éviter de craker une cellule sur excel protéger par
un
mot de passe
je fais circuler un fichier excel par différents services ils arrivent à
craker certaines zones protégées
je dois tout reprendre c' est pénible












Avatar
teslajack
je suis novice c' est quoi WorkBook dans excel

"Gildo" a écrit dans le message de news:


Bonjour,
moi je pose ça dans le WorkBook pour moi ça marche du tonnerre les zones
protégées sont inaccessibles mais les filtres restent actifs !

Private Sub Workbook_Open()
'là c'est pan dans les dents
With Sheets("Feuil1")
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
End With
'et plus si tu as des filtres
With Sheets("feuil1")
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub



Merci
en fait la base doit êrtre enrichie par des infos mais en aucun cas ils
doivent modifier les formules
ors c' est la qu' ils interviennent ils efface la formule et la remplace
par
les données
si bien que cela fausse la suite de la base
voila si vous voyez plus merci de me le faire savoir

"PTIFRED DU 62" a écrit dans le
message de news:
salut quiça
essaye ca code a mettre dans thisworkbook

Private Sub Workbook_Open()
Dim mdP As String, alR
Dim t As Byte
alR = MsgBox("Ce Fichier est Protege en Enregistrement et Ouverture
par
Mot de Passe " _
& "de ce classeur !" & Chr(10) & "Désirez-vous poursuivre ?", _
4, "Attention...")
If alR <> vbYes Then Exit Sub
mdP = "1964"
t = 0
Do
t = t + 1
anS = Application.InputBox("Quel est le mot magique ?", _
"Tentative " & t, , , , , , 1 + 2)
If anS = mdP Then Exit Sub
Loop While t < 3
inF = MsgBox("Le classeur va être fermé...", vbCritical, _
"Mot de passe invalide...")
ThisWorkbook.Close (0)
End Sub

le mot de passe est 1964 mais tu peut le changer dans le code
surtout ensuite tu protege ton projet (WbaProject...clic
droit...propriete...protection..)
@+


Bonjour
Comment faire pour éviter de craker une cellule sur excel protéger
par
un
mot de passe
je fais circuler un fichier excel par différents services ils arrivent
à
craker certaines zones protégées
je dois tout reprendre c' est pénible














Avatar
teslajack
je ni comprend rien après avoir ouvert outil macro visual basic où faut il
inscrire ou copier coller le code
j' ai une nouvelle fenetre micro visual basic classeur 1 j' y dépose en
copier coler le fichier sans modif et ensuite



"PTIFRED DU 62" a écrit dans le
message de news:
RE
Dis pourquoi ne cache tu pas les colonnes avec les formules et ne laisse
que
les colonnes a remplir visible (ex colonne A clic droit masquer colonne)
pti fred


Merci
en fait la base doit êrtre enrichie par des infos mais en aucun cas ils
doivent modifier les formules
ors c' est la qu' ils interviennent ils efface la formule et la remplace
par
les données
si bien que cela fausse la suite de la base
voila si vous voyez plus merci de me le faire savoir

"PTIFRED DU 62" a écrit dans le
message de news:
salut quiça
essaye ca code a mettre dans thisworkbook

Private Sub Workbook_Open()
Dim mdP As String, alR
Dim t As Byte
alR = MsgBox("Ce Fichier est Protege en Enregistrement et Ouverture
par
Mot de Passe " _
& "de ce classeur !" & Chr(10) & "Désirez-vous poursuivre ?", _
4, "Attention...")
If alR <> vbYes Then Exit Sub
mdP = "1964"
t = 0
Do
t = t + 1
anS = Application.InputBox("Quel est le mot magique ?", _
"Tentative " & t, , , , , , 1 + 2)
If anS = mdP Then Exit Sub
Loop While t < 3
inF = MsgBox("Le classeur va être fermé...", vbCritical, _
"Mot de passe invalide...")
ThisWorkbook.Close (0)
End Sub

le mot de passe est 1964 mais tu peut le changer dans le code
surtout ensuite tu protege ton projet (WbaProject...clic
droit...propriete...protection..)
@+


Bonjour
Comment faire pour éviter de craker une cellule sur excel protéger
par
un
mot de passe
je fais circuler un fichier excel par différents services ils arrivent
à
craker certaines zones protégées
je dois tout reprendre c' est pénible














Avatar
teslajack
"teslajack" a écrit dans le message de news:
45814068$0$21148$
je ni comprend rien après avoir ouvert outil macro visual basic où faut il
inscrire ou copier coller le code
j' ai une nouvelle fenetre micro visual basic classeur 1 j' y dépose en
copier coler le fichier sans modif et ensuite
faut il laisser les espaces au debut de chaque ligne et les guillemets?




"PTIFRED DU 62" a écrit dans le
message de news:
RE
Dis pourquoi ne cache tu pas les colonnes avec les formules et ne laisse
que
les colonnes a remplir visible (ex colonne A clic droit masquer colonne)
pti fred


Merci
en fait la base doit êrtre enrichie par des infos mais en aucun cas ils
doivent modifier les formules
ors c' est la qu' ils interviennent ils efface la formule et la remplace
par
les données
si bien que cela fausse la suite de la base
voila si vous voyez plus merci de me le faire savoir

"PTIFRED DU 62" a écrit dans le
message de news:
salut quiça
essaye ca code a mettre dans thisworkbook

Private Sub Workbook_Open()
Dim mdP As String, alR
Dim t As Byte
alR = MsgBox("Ce Fichier est Protege en Enregistrement et Ouverture
par
Mot de Passe " _
& "de ce classeur !" & Chr(10) & "Désirez-vous poursuivre ?", _
4, "Attention...")
If alR <> vbYes Then Exit Sub
mdP = "1964"
t = 0
Do
t = t + 1
anS = Application.InputBox("Quel est le mot magique ?", _
"Tentative " & t, , , , , , 1 + 2)
If anS = mdP Then Exit Sub
Loop While t < 3
inF = MsgBox("Le classeur va être fermé...", vbCritical, _
"Mot de passe invalide...")
ThisWorkbook.Close (0)
End Sub

le mot de passe est 1964 mais tu peut le changer dans le code
surtout ensuite tu protege ton projet (WbaProject...clic
droit...propriete...protection..)
@+


Bonjour
Comment faire pour éviter de craker une cellule sur excel protéger
par
un
mot de passe
je fais circuler un fichier excel par différents services ils
arrivent à
craker certaines zones protégées
je dois tout reprendre c' est pénible