Résultats pour "protection"

417 résultats pour cette recherche

Bonjour au forum,

J'ai essayé de remonté un sujet mais n'ayant pas de retour, je crée donc celui-ci.

J'aimerai qu'à l'ouverture de mon fichier, l'affichage des requêtes Power query (Ruban_Données_Afficher les requêtes) ne puissent pas se faire mais uniquement sur cette feuille, car si l'utilisateur donne un nom d'utilisateur et mot de passe valide alors je ne souhaite pas bloquer les requêtes.

J'ai essayé ces codes mais ils ne fonctionnent pas ...

 Application.CommandBars.ExecuteMso ("PowerQueryManageWorkbookQueries").Visible= False 
 Application.CommandBars.("PowerQueryManageWorkbookQueries").Visible= False [code]

Peut on adapter ce code [code] structure=True Windows=False

?

Merci d'avance pour l'aide apportée,

Vous pouvez vous connecté au fichier avec utilisateur : daniel et mot de passe 123

Idem le code VBA est accessible avec le mot de passe 123

Merci d'avance

Cordialement,

Bonjour,

Je sollicite de l'aide auprès des connaisseurs s'il vous plait.

La protection de mes macros dans les propriétés empêche l'accès aux codes mais les boutons crées dans mes feuilles de calcules pour faire appel aux macros restent modifiables et lorsque je protège ma feuille pour éviter la modification de ces boutons macros sur ma feuille ou une modification quelconque (texte ou titre) ou simplement les cellules de ma feuille, plus rien ne fonctionne c'est un vrai casse tête.

Problème 1: Lorsque je protège ma feuille "ORODIS ENG LTD" je ne parviens pas a renseigner mes cases lorsque j'active le "Panel".

Le fctionnement est simple

1 panel

2 remplissage des cases

3 Save entry + choix date

4 la ligne se déplace vers le bas et je peux remplir la prochaine ligne.

Problème 2 : A l'ouverture du fichier et après avoir utilisé la touche "delete error "dans "panel", un problème avec le calendrier survient. Le calendrier s'ouvre deux fois. La première fois je le ferme et la seconde fois je rentre la date souhaitée. Sinon la première date sélectionnée se met dans une case aléatoire. Après cela, tout fonctionne correctement.

Je ne suis pas une bete en VBA, débutant depuis quelques jours, merci de simplifier les équations pour ma compréhension SVP.

Bonsoir à tous, j'espère que vous allez bien.

Premier post pour moi, en effet je commence l'apprentissage de VBA en autodidacte, merci à ceux qui se pencherons sur mon sujet !

Dans le cadre de projets perso et notamment pour l'école, j'aimerais développer dans un milieu professionnel des macros afin d'automatiser des processus exécutés sur Excel grâce au VBA. Jusque là tout va bien, c'est cool. Cependant, les fichiers utilisés doivent être rendus au client sur une plateforme commune, à laquelle les entreprises concurrentes ont aussi accès. La problématique que je me (vous) pose est donc la suivante : comment protéger ses macros de la concurrence ?

- Existe t-il un moyen de bloquer complètement la visualisation du code, ou l'accès à l'onglet développeur ?

- Est-il possible de conserver les programmes sur un autre classeur en interne, et d'exécuter toutes les macros sur un autres classeur ?

- Connaissez-vous d'autres moyens ?

Merci et bon weekend !

Bonjour,

Je cherche à créer une feuille Excel collaborative qui puisse prévoir plusieurs protections de zone de cellule. Je m'explique :

Le sujet 1, 2 et 3 peuvent voir la feuille excel.

Seul le sujet 1 peut modifier la zone de cellule X

Seul le sujet 2 peut modifier la zone de cellule Y

Seul le sujet 3 peut modifie la zone de cellule Z

Je sais qu'il est possible de protéger une feuille entière par un mot de passe. Est il possible de protéger plusieurs zone de cellule sur une même feuille excel ?

Merci

Bonjour,

Voila mon problème : dans le fichier joint je supprime toutes les lignes dans l'onglet test (colonne B) qui contiennent la lettre définie dans la case jaune de l'onglet REFERENCE à l'aide du bouton 1.

Dans l'onglet "Problème" je voudrais que les formules contenue en colonne B ne changent pas lors de la suppression et ne génèrent donc pas d'erreurs.

Pas simple à expliqué.

Merci par avance.

4test.xlsm (21.87 Ko)

Bonjour à tous !

Dans une feuille protégée, comment faut-il faire pour laisser certaines cellules modifiables svp ?

Bonjour,

Comment puis je faire en sorte qu'une cellule ne soit pas modifiée une fois renseignée?

Ce fichier sert a plusieurs personnes, je ne peux donc pas utiliser la protection de cellule, il faut donc éviter l'écrasement par inattention .

je vous joint le fichier .

merci d'avance pour votre aide.

3serotheque.xlsx (15.24 Ko)

Bonjour,

Je trouve énormément d'aide via tous les posts qui se trouvent dans ce forum, c'est une énorme richesse. Merci !

Malgré tout, je n'arrive pas à résoudre mon problème : j'essaie de protéger via une macro unique plusieurs cellules (beaucoup) de 3 feuilles, en retirant d'abord la protection des feuilles, puis en remettant la protection.

Etapes :

  • Sélectionner les 3 feuilles concernées
  • Retirer la protection des 3 feuilles (avec mot de passe)
  • Protéger les cellules (identiques sur les 3 feuilles)
  • Remettre la protection avec le mot de passe sur les 3 feuilles

Voici la macro qui ne fonctionne pas (trop de cellules apparemment).

Comment faire ?

Merci pour vos retours.

Florent.

Sub Macro8()

Worksheets(Array("Feuil11", "Feuil12", "Feuil13")).Select

Sheets("Feuil1").Unprotect

Sheets("Feuil2").Unprotect

Sheets("Feuil3").Unprotect

ActiveSheet.Unprotect "motdepasse"

Range("B6:B12,D6:D12,F6:F12,H6:H12,J6:J12,L6:L12,B18:B24,D18:D24,F18:F24,H18:H24,J18:J24,L18:L24,B30:B36,D30:D36,F30:F36,H30:H36,J30:J36,L30:L36,B42:B48,J78:J84,L78:L84,B90:B96,D90:D96,F90:F96,H90:H96,J90:J96,L90:L96,B102:B108,D102:D108,F102:F108,H102:H108,J102:J108,L102:L108,B114:B120,D114:D120,F114:F120,H114:H120,J114:J120,L114:L120,B126:B132,D126:D132,F126:F132,H126:H132,J126:J132,L126:L132,B138:B144,D138:D144,F138:F144,H138:H144,J138:J144,L138:L144,B150:B156,D150:D156,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162:D168,F162:F168,H162:H168,J162:J168,L162:L168,F150:F156,H150:H156,J150:J156,L150:L156,B162:B168,D162:D168,F162:F168,H162:H168,J162:J168,L162:L168D42:D48,F42:F48,H42:H48,J42:J48,L42:L48,B54:B60,D54:D60,F54:F60,H54:H60,J54:J60,L54:L60,B66:B72,D66:D72,F66:F72,H66:H72,J66:J72,L66:L72,B78:B84,D78:D84,F78:F84,H78:H84").Select

Selection.Locked = True

Selection.FormulaHidden = False

ActiveSheet.Protect "motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Bonjour,

Je voudrais savoir le code vba pour activer la protection excell apres chaque enregistrement.

Merci de votre aide

Bonjour,

Ci-dessous une macro prise sur le forum pour masquer les feuilles n'aynat pas comme non "accueil" avant la fermeture

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sht As Object
  ' Afficher la feuille d'Accueil
  With Sheets("Accueil")
    .Visible = xlSheetVisible
    .Activate
  End With
  ' Masquer les feuilles
  For Each Sht In ThisWorkbook.Sheets
    If Sht.Name <> "Accueil" Then Sht.Visible = xlSheetVeryHidden
  Next Sht
End Sub

Je souhaite rajouter la seconde macro pour masquer des colonnes de la feuille 2 et activer la protection de la feuille 2 :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Select
ActiveSheet.Unprotect Password:="12"
Columns("E:F").EntireColumn.Hidden = True
ActiveSheet.Protect Password:="12", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Question: comment cumuler les deux macros Workbook_BeforeClose svp? (note: la seconde doit s'executer avant la première macro je suppose).

Merci et Désolé mais les macros et moi......

Bonjour,

Comment faire pour rajouter un mot de passe à la macro suivante svp :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Feuil2").Select

Columns("E:F").Select

Selection.EntireColumn.Hidden = True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Ce que je cherche, c'est que en plus de masquer les colonnes E et F, et de proteger la feuille, je veux mettre un mot de passe pour la protection de la feuille, de sorte qu'à la prochaine ouverture du fichier, il demande ce mot de passe pour lever la protection.

Merci.

Bonjour,

Ci-joint un fichier T1 avec un tableau.

Peut on pour le tableau (ListObjects("Tableau1")) interdire :

1 de rajouter ou supprimer une colonne du tableau

2 de déplacer une colonne du tableau

3 de modifier les titres du tableau

Merci

1t1.xlsx (9.37 Ko)

Bonjour,

J'ai un souci avec une macro.

Elle fonctionne très bien si la feuille n'est pas protégée, mais ne fonctionne plus après avoir protégé la feuille.

Il s'agit d'une macro qui transforme une serie de chiffre en format datte. Par exemple, je tape 01012020 et s'affiche à l'écran 01/01/2020.

Ma macro s'applique sur toute la feuille, je me demandais si elle ne s'appliquait qu'à ma cellule (K1, dans mon cas) qui n'est pas verrouillée, peut-être fonctionnerait-elle.

Quelqu'un pourrait-il me dire comment transformer ma macro qui s'applique à toute la feuille, juste à la cellule K1.

voici la macro :

Private Sub Worksheet_Change(ByVal Target As Range)

'---Convertit un nombre de 7 ou 8 chiffres en date---

Dim d As Variant

Set Target = Target.Cells(1, 1)

d = Target.Value2

If Not (d Like "#######" Or d Like "########") Then Exit Sub

d = Left(Right(d, 6), 2) & "/" & Left(Right(0 & d, 8), 2) & "/" & Right(d, 4) 'mm/dd/yyyy'

d = ExecuteExcel4Macro("DATEVALUE(""" & d & """)")

If IsNumeric(d) Then

Target.NumberFormat = "dd/mm/yyyy"

Target = d

Else

Target.NumberFormat = "General"

End If

End Sub

Merci d'avance

Bonjour,

J'ai une feuille qui contient deux colonnes Emploi et Poste dont les cellules sont des listes déroulantes (chaque liste se trouve dans une feuille séparée).

Je veux protéger ces deux colonnes du copier_coller d'une valeur qui ne se trouve pas sur la liste déroulante et qui vient l'écraser.

Pour protéger la première colonne Emploi, j'ai réussi à le faire grâce à un code récupéré du forum que je mets en bas. Toutefois, pour l'appliquer sur la deuxième colonne, le code ne fonctionne pas. J'ai mis le même code après le premier en changeant les références aux colonnes et aux listes déroulantes.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 And Not Intersect(Target, Range("F3:F447")) Is Nothing Then
        ' on arrête la surveillance événementielle pendant l'excécution du code
        Application.EnableEvents = False
        ' on fait juste un UNDO pour revenir en arrière
        Application.Undo
        ' on remet la surveillance événementielle en marche
        Application.EnableEvents = True
        Exit Sub
    End If
    If Not Intersect(Target, Range("F3:F447")) Is Nothing Then
        ' on arrête la surveillance événementielle pendant l'excécution du code
        Application.EnableEvents = False
        ' on définie une variable objet Range
        Dim C As Range
        ' avec la feuille 2
        With Sheets(2)
            'on attribue à C la cellule de la liste de choix correspondant à la valeur de la cellule A1
            Set C = Sheets("Emploi").Range("Emploi").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
            ' s'il y a bien une cellule d'attribuée, c'est que la valeur est "valide"
            If Not C Is Nothing Then
                ' on vide la mémoire de C
                Set C = Nothing
                ' dans le cas où la bonne valeur vienne d'un copier coller et qui peut
                ' avoir effacer la validation de données
                With Target.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=Emploi"
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
                ' on remet la surveillance événementielle en marche
                Application.EnableEvents = True
                ' on sort du code
                Exit Sub
            ' si C est vide alors la valeur ne fait pas partie de la liste de choix
            Else
                ' on fait juste un UNDO pour revenir en arrière
                Application.Undo
            End If
        ' on a fini avec la feuille 2
        End With
        ' on remet la surveillance événementielle en marche
        Application.EnableEvents = True
    ' fin du premier if
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 And Not Intersect(Target, Range("G3:G447")) Is Nothing Then
        ' on arrête la surveillance événementielle pendant l'excécution du code
        Application.EnableEvents = False
        ' on fait juste un UNDO pour revenir en arrière
        Application.Undo
        ' on remet la surveillance événementielle en marche
        Application.EnableEvents = True
        Exit Sub
    End If
    If Not Intersect(Target, Range("G3:G447")) Is Nothing Then
        ' on arrête la surveillance événementielle pendant l'excécution du code
        Application.EnableEvents = False
        ' on définie une variable objet Range
        Dim C As Range
        ' avec la feuille 2
        With Sheets(2)
            'on attribue à C la cellule de la liste de choix correspondant à la valeur de la cellule A1
            Set C = Sheets("Poste").Range("Poste").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
            ' s'il y a bien une cellule d'attribuée, c'est que la valeur est "valide"
            If Not C Is Nothing Then
                ' on vide la mémoire de C
                Set C = Nothing
                ' dans le cas où la bonne valeur vienne d'un copier coller et qui peut
                ' avoir effacer la validation de données
                With Target.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=Poste"
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
                ' on remet la surveillance événementielle en marche
                Application.EnableEvents = True
                ' on sort du code
                Exit Sub
            ' si C est vide alors la valeur ne fait pas partie de la liste de choix
            Else
                ' on fait juste un UNDO pour revenir en arrière
                Application.Undo
            End If
        ' on a fini avec la feuille 2
        End With
        ' on remet la surveillance événementielle en marche
        Application.EnableEvents = True
    ' fin du premier if
    End If
End Sub

Prière de m'aider à résoudre ce problème. J'utilise VBA pour la première fois.

Merci beaucoup

Bonjour,

Ci-joint un fichier "personnel"

Est il possible d'avoir une macro du style:

Si la cellule de la colonne [STATUT] est "V" alors, la ligne n'est pas modifiable.

Merci

2personnel.xlsx (9.59 Ko)

Bonjour,

Ci-joint un tableau avec une macro pour protéger les colonnes 1 et 2.

Quand je trie une colonne, j'ai un message qui s'affiche. ci-joint la capture d'ecran du message.

Merci de m'éclaircir

c1
7aa.xlsm (16.45 Ko)

bonjour,

je viens vers vous car je ne trouve pas de solutions

voila, j'ai un fichier qui doit être accessible à tous (TS) pour lecture via un RZ, et modifiable par 1 personne (A).

mode Normal:

le problème vient du fait que si la personne A ouvre le fichier après TS, il ne peut pas car il est déjà ouvert ou en copie

mode partagé:

j'ai essayé de le partager le fichier, mais celui-ci ne peut pas être protégé ou déprotégé.

je suis ouvert à toutes propositions

cordialement

Bastian

Bonjour,

fichier ci joint

J'aimerai avoir comme sur ma pages "inventaires" 3 bouton ( je les est crées) je voudrais pour chacun ( utilisateur up et utilisateur que ça active la protection de toutes mes feuilles avec un mot de passe ) et que pour administrateur ça désactive la protection de toutes les feuilles)

attention 1: tout j'ai décocher les endroit ou je ne veux pas le verouillage il faudrait juste du cou une macro qui dit " proteger la feuille "

Attention 2: j'ai des pages qui ce masque et j'aimerai que ça reste le cas

cdt;

2aaa.xlsm (101.34 Ko)

Bonjour,

Je voudrais ôter la protection et affichés des feuilles d'un fichier excel donné par un ami, quelqu’un peut m'aider?

J'ai beau essayer j'ai rien pu faire

Merci d'avance

8v2-copie.xlsx (737.74 Ko)

Bonjour,

J'essaie vainement de protéger quelques cellules d'une feuille de tableur.

Sur le tableur EXCEL pas de souci.

Une fois mon tableur importé sur google sheets, je suis les tutos avec attention, mais j'arrive quand même à écrire partout dans mon tableau.

Google sheets empêche-t-il vraiment d'écrire sur les zones sélectionnées, ou prévient-il seulement que ces zones sont protégées ?

Si vous le souhaite, je peux vous fournir le tableau en question.

En vous remerciant,

Philippe

Recherches récentes

stock client emplacementclientcalcul date accouchemententree sortieconsolidation feuillesstock clientconsolidation vbacode vba ouvrir fichier reseaujaugedonnees manquantesinserer colonneinserer fichiergestion stockbilletteriebilletsalimenter listbox viatableaux wordtransport grilleposition tableau word vbaimage userform