Microsoft 365 protection/dé protection

[Michest94]

Bonjour le forum,

Mon fichier fonctionnait nickel depuis le passage entre les mains (plutôt de têtes, vgendron,chti160,... ) pro d'excel (vba) et j'ai bien avancé dans sa mise en forme mais voila comme à chaque fois y 'a toujours le petit grain de sable et comme le fichier je veux le partager dans un groupe de travail il faut qu'il soit bien ficelés sans beug je me retrouve avec ce message

Si quelqu'un à une idée

Page de téléchargement du fichier partagé

mon-partage.fr

je m'apprêtais dans mon avancement du fichier de travailler sur :

faire un parallèle entre la feuille 'base' est la feuille 'capteur' de savoir la possibilitée.

exemple : pour le site AMPERE

1er de la liste dans la feuille "capteur' j'ai ces infos en (colonne B et F)

AMPERE

0004_S_AMP_P1-AMPERE PASSY AMP/PY

N°9

0-5

33,85

0004_S_AMP_P2-AMPERE RESEAU HAUT AMP/RH

N°11

0-10

33,85

donc 2 capteurs de pressions.

Je souhaitais avoir le nb de 2 dans la feuille ' base ' en (col AI lig5) et que dans ma feuille 'bilans' je puisse récupéré l'info (colonne O ligne 52)
il doit y avoir un lien avec la feuille 'instrumentation' dans cette affaire ....

Michest94

 

[fanch55]

Salut, le code du classeur joint est protégé par mot de passe ....

 

[Michest94]

ADMIN1967
Accès et vba

 

[Michest94]

ADMIN1967
Accès et vba

 

[herve62]

Salut
Ah oui c'est ton fameux fichier récupéré !!! avec l'auteur disparu ..
Bon c'est bien ton erreur , mais elle se provoque en faisant Quoi ???

 

[fanch55]

Salut,
Quand le classeur a été enregistré, la feuille Cpt était protégée .

A l'ouverture du classeur, vous essayez d'ajouter une ligne dans le tableau Compteur qui est sur la feuille Cpt toujours protégée .... d'où erreur .

Soit vous la déprotégez dans le bloc de code du workbook.open

For Each ws In ActiveWorkbook.Sheets 'Masquage des feuilles sauf Login
    If ws.Name <> "Login" Then
        ws.Visible = False
    Select Case ws.Name
        Case "ACCUEIL", "Intervenant", "Prestataire", "Documentations", "Base", "Bilans", "Utilisateurs"
            ws.Protect MotDePasse 'on protège la feuille
        Case Else
            'on ne protège pas la feuille
            ws.Unprotect MotDePasse
    End Select
    End If
Next ws

Soit vous l'affichez, la déprotégez et vous sauvegardez .

 

[Michest94]

Salut
Ah oui c'est ton fameux fichier récupéré !!! avec l'auteur disparu ..
Bon c'est bien ton erreur , mais elle se provoque en faisant Quoi ???

Bj oui c ce fichier que j ai récupéré et remis en forme grâce au forum en fait c pas une erreur en le fichier à l ouverture doit se protégé mais àpres accès admin...

 

[Michest94]

Salut,
Quand le classeur a été enregistré, la feuille Cpt était protégée .

A l'ouverture du classeur, vous essayez d'ajouter une ligne dans le tableau Compteur qui est sur la feuille Cpt toujours protégée .... d'où erreur .

Soit vous la déprotégez dans le bloc de code du workbook.open

For Each ws In ActiveWorkbook.Sheets 'Masquage des feuilles sauf Login
    If ws.Name <> "Login" Then
        ws.Visible = False
    Select Case ws.Name
        Case "ACCUEIL", "Intervenant", "Prestataire", "Documentations", "Base", "Bilans", "Utilisateurs"
            ws.Protect MotDePasse 'on protège la feuille
        Case Else
            'on ne protège pas la feuille
            ws.Unprotect MotDePasse
    End Select
    End If
Next ws

Soit vous l'affichez, la déprotégez et vous sauvegardez .

OK merci je vais regardé des que possible et vous dirais

 

[Michest94]

Salut,
Quand le classeur a été enregistré, la feuille Cpt était protégée .

A l'ouverture du classeur, vous essayez d'ajouter une ligne dans le tableau Compteur qui est sur la feuille Cpt toujours protégée .... d'où erreur .

Soit vous la déprotégez dans le bloc de code du workbook.open

For Each ws In ActiveWorkbook.Sheets 'Masquage des feuilles sauf Login
    If ws.Name <> "Login" Then
        ws.Visible = False
    Select Case ws.Name
        Case "ACCUEIL", "Intervenant", "Prestataire", "Documentations", "Base", "Bilans", "Utilisateurs"
            ws.Protect MotDePasse 'on protège la feuille
        Case Else
            'on ne protège pas la feuille
            ws.Unprotect MotDePasse
    End Select
    End If
Next ws

Soit vous l'affichez, la déprotégez et vous sauvegardez .

Merci ca fonctionne,
Bonne soirée

 

[Michest94]

Salut,
Quand le classeur a été enregistré, la feuille Cpt était protégée .

A l'ouverture du classeur, vous essayez d'ajouter une ligne dans le tableau Compteur qui est sur la feuille Cpt toujours protégée .... d'où erreur .

Soit vous la déprotégez dans le bloc de code du workbook.open

For Each ws In ActiveWorkbook.Sheets 'Masquage des feuilles sauf Login
    If ws.Name <> "Login" Then
        ws.Visible = False
    Select Case ws.Name
        Case "ACCUEIL", "Intervenant", "Prestataire", "Documentations", "Base", "Bilans", "Utilisateurs"
            ws.Protect MotDePasse 'on protège la feuille
        Case Else
            'on ne protège pas la feuille
            ws.Unprotect MotDePasse
    End Select
    End If
Next ws

Soit vous l'affichez, la déprotégez et vous sauvegardez .

Merci ca fonctionne,
Bonne soirée