Microsoft 365 protection/dé protection

Michest94

XLDnaute Occasionnel
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

1625816477603.png


Si quelqu'un à une idée

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)

AMPERE0004_S_AMP_P1-AMPERE PASSY AMP/PYN°90-533,850004_S_AMP_P2-AMPERE RESEAU HAUT AMP/RHN°110-1033,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
 
Solution
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088