Microsoft 365 protection/dé protection

Michest94 · 12 Juillet 2021

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 · 12 Juillet 2021

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

VB:

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...

fanch55 · 12 Juillet 2021

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

Michest94 · 12 Juillet 2021

ADMIN1967
Accès et vba

Michest94 · 12 Juillet 2021

Michest94 à dit:
ADMIN1967
Accès et vba

herve62 · 12 Juillet 2021

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 · 12 Juillet 2021

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

VB:

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 · 12 Juillet 2021

herve62 à dit:
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 · 12 Juillet 2021

fanch55 à dit:
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

VB:

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 · 12 Juillet 2021

fanch55 à dit:
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

VB:

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 · 12 Juillet 2021

fanch55 à dit:
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

VB:

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

Microsoft 365 protection/dé protection

Michest94

XLDnaute Occasionnel

Page de téléchargement du fichier partagé

fanch55

fanch55

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

herve62

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

Michest94

XLDnaute Occasionnel

Discussions similaires