XL 2010 copier cellules visibles seulement d'une feuille protégée

[DAVAWAY]

Bonjour,

En cette fin de semaine, je suis confronté à une difficulté et me tourne vers les esprits éclairés d'Excel..

Pouvez vous me dire s'il est possible de copier des cellules issues d'un filtre _ sélection via accueil/(édition) recherche et sélectionner/sélectionner les cellules/cellules visibles seulement d'une feuille protégée ?

J'ai un message qui me précise que je ne peux pas exécuter cette commande avec une feuille protégée..

Une solution _ idée ??

Bon weekend, merci de m'avoir lu et pour votre aide.

David

 

[DoubleZero]

Bonjour à toutes et à tous,

...Une solution _ idée ??...

Un fichier exemple ?... Avec le mot de passe.

A bientôt

 

[DAVAWAY]

DoubleZero je te remercie pour ta sollicitude, je poste le fichier mardi prochain ! Bonne soirée ☺

 

[DAVAWAY]

Coucou,
Je poste le fichier test (mot de passe : test).
A l'origine c'est un fichier excel 2010.
Pour des raisons pratiques, je travaille actuellement sur un poste avec excel 2007 et..
je rencontre le même souci pour copier les valeurs des cellules affichées (onglet échantillon : A3:C44).
Après avoir sélectionné ces cellules, le bouton 'cellule' de la fenêtre atteindre (F5) est grisé lorsque la feuille est protégée..
DoubleZero, quelqu'un aurait une solution ?
merci pour votre aide,
David

 

[DoubleZero]

Bonjour, DAVAWAY, le Forum,

... Je poste le fichier test (mot de passe : test).
... quelqu'un aurait une solution ?...

Mot de passe de l'onglet = "test" : OK.

Quel est le mt de passe du projet VBA ?

A bientôt

 

[DAVAWAY]

Tu pourras accéder aux modules avec le code : dtiej
Merci pour ton suivi

 

[Staple1600]

Bonsoir à tous,

DAVAWAY

Pour ton information et pour t'éviter de vaines dépenses caloriques dans VBE

Tu pourras accéder aux modules avec le code : dtiej
Merci pour ton suivi

On peut accéder sans connaitre ton mot de passe aux modules (tout comme on peut déprotéger la feuille sans le mot de passe)
La méthodologie pour ce faire est disponible sur le net (et non pas sur le darknet) en utilisant n'importe quel moteur de recherche.

Sachant cela, est-il vraiment utile de mettre des mots de passe sur un classeur Excel ?

 

[DAVAWAY]

Bonsoir Staple1600,

Effectivement des méthodes existent pour cracker les mots de passe (d'ailleurs pour avoir déjà pratiqué..), mais le dilemme est de protéger la feuille pour éviter les erreurs de manipe..et si la protection peut être ôter facilement (ss password), il y aura très vite plus de protection et des soucis d'utilisation (...).
Et le but de l'outil sera perdu...gagner du temps ! cet outil est à destination de collaborateurs dont peu ont des réflexes du genre =somme(..
Il est vrai que trouver une solution s'avère compliqué..

Bonne soirée ¨¨

 

[DAVAWAY]

Une ligne de code vba permettant de protéger / déprotéger la feuille 'échantillon' avec le mot de passe dtiej est possible (après ajout d'un bouton 'feuille protégée' par exemple) ?
Quelqu'un est inspiré ??
Merci aux érudits d'excel

 

[DAVAWAY]

Bonjour,
Quelqu'un peut m'aider à reprendre une ligne de code qui devrait permettre de protéger effectivement la feuille avec le mot de passe en question (test) car pour le moment je parviens à protéger / déprotéger la feuille mais sans que ce mot de passe soit actif..

Bon appétit :

Sub proteger_feuille()
'
' proteger_feuille Macro
'

'
ActiveSheet.Protect MotDePasse = "test"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True
End Sub
Sub retirer_protection_feuille()
'
' retirer_protection_feuille Macro
'

'
ActiveSheet.Unprotect "test"
End Sub

 

[Yurperqod]

Bonjour le forum

Ecrit ainsi, ca fonctionne sur mon PC

Sub protéger()
ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub déprotéger()
ActiveSheet.Unprotect Password:="test"
End Sub

 

[DAVAWAY]

Impec' Yurperqod, merci beaucoup pour le coup de main

 

[DAVAWAY]

Hello les excelleurs et déjà bonne matinée !

Qui peut m'aider, j'ai une erreur de compilation (syntaxe) ? MERCI

Sub aleaML1_20()
nb = Range("AY65536").End(xlUp).Row
If Range("AY6").HasFormula Then
Range("AY6:AY" & nb).Copy
Range("AY6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
formule = "=SI(ET($A6<>"";$F6<>"";$C6=$AY$1;$O6<>"0. Pas de sortie positive";$AO6="non");ALEA();0)"
[AY6].FormulaLocal = formule
Range("AY6:AY" & nb).FillDown
End If
End Sub

 

[Yurperqod]

Bonjour le forum

Testes ta macro avec cette modification

Sub aleaML1_20_corrigée()
nb = Range("AY65536").End(xlUp).Row
If Range("AY6").HasFormula Then
Range("AY6:AY" & nb).Copy
Range("AY6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
formule = "=SI(ET($A6<>"""";$F6<>"""";$C6=$AY$1;$O6<>""0. Pas de sortie positive"";$AO6=""non"");ALEA();0)"
[AY6].FormulaLocal = formule
Range("AY6:AY" & nb).FillDown
End If
End Sub

 

[DAVAWAY]

Ca gères ++, bravo et merci
Bonne journée