Cela semble fonctionner très bien, mais lorsque je ferme et rouvre le classeur, je rencontre le même problème - je ne peux pas développer mes groupes réduits.

Merci beaucoup mon frère, cela fonctionne vraiment bien. Merci beaucoup

J'ai le même problème lorsque je ferme le classeur. Des idées pour y remédier ?

Private Sub Workbook_Open() Dim wsh As Variant For Each wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents : =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Bonjour! J'ai utilisé la première macro avec succès, puis j'ai eu le même problème de fermeture du classeur et la macro ne fonctionnait plus. Je vois la solution ci-dessus mais je n'arrive pas du tout à la faire fonctionner. Cela vous dérangerait-il de me guider ? Dois-je combiner les deux codes ou utiliser simplement le dernier ? Si mon mot de passe est "chien", dois-je remplacer l'une des valeurs du code ? Je ne postule qu'à une seule feuille de calcul ("Sheet1"); est-ce que je l'utilise n'importe où? Merci d'avance!!

S'il vous plaît aidez-moi, je veux réduire et développer certains rouleaux et colonnes dans une feuille de calcul Excel protégée. Comment puis-je utiliser des macros pour faire cela ? J'ai essayé ce que vous avez montré, mais ils ne fonctionnent tout simplement pas sur ma feuille de calcul. S'il vous plaît aider.

Bonjour, aidez-moi à développer et à réduire les rouleaux et les colonnes dans une feuille de calcul Excel protégée. J'ai essayé d'utiliser ceux que vous avez montrés ci-dessus mais ils ne fonctionnent pas.

A-t-il été demandé/répondu ? Où dans le code pouvez-vous spécifier/modifier un mot de passe personnel ?

Comment puis-je changer le mot de passe pour une autre valeur ?

Lorsque j'utilise la commande, je vois un message d'erreur comme indiqué ci-dessous :
Sous-carnet de travail privé_Open ()
Dim wsh comme variante
Pour chaque wsh dans Worksheets(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Vrai
wsh.Protect Password :="260615", DrawingObjects :=False, _
contenu :=Vrai, _
Scénarios :=Vrai, _
AllowFiltering :=Vrai, _
AllowFormattingCells :=Vrai, _
userinterfaceonly : = vrai
Wsh suivant
End Sub
Erreur d'exécution '9' :
Indice hors de portée

cela fonctionne un peu, une fois que vous fermez et rouvrez, cela s'arrête :(

Sous-classeur_Open()
'Mise à jour 20140603
Feuille de travail Dim xWs As
Définir xWs = Application.ActiveSheet
Dim xPws As String
xPws = "rfc" ''Application.InputBox("Mot de passe :", xTitleId, "", Type :=2)
xWs.Protect Password :=xPws, Userinterfaceonly :=True
xWs.EnableOutlining = Vrai
End Sub

J'ai réussi à faire fonctionner ce code. Mais lorsque je ferme et rouvre, je dois aller dans l'onglet développeur, sélectionner le bouton macros, sélectionner exécuter et entrer le mot de passe.

Existe-t-il un moyen de supprimer le mot de passe du code OU un code d'exécution automatique qui exécutera automatiquement ce marco et entrera le mot de passe ?

Pour résoudre le problème de ce qui ne fonctionne pas dans votre fichier après l'avoir fermé et rouvert, vous devez coller le code VBA dans "ThisWorkbook" sous Microsoft Excel Objects au lieu d'un nouveau module. Cela exécutera alors automatiquement la macro à chaque ouverture du fichier.

avez-vous des visuels pour le code VBA discuté il y a 6 jours à peachyclean à propos de ThisWorkbook sous Microsoft Objects au lieu d'un nouveau module. La fonctionnalité est perdue lorsque je retourne dans mon classeur

Quelqu'un pourrait en avoir besoin, je pense que j'ai compris comment faire fonctionner cela.

Tout d'abord, votre code doit être écrit dans "ThisWorkbook" sous Microsoft Excel Objects, comme le suggère @peachyclean.
Deuxièmement, prenez le code que @Sravanthi a écrit et collez-le à l'emplacement mentionné ci-dessus.

Sous-classeur_Open()
'Mise à jour 20140603
Feuille de travail Dim xWs As
Définir xWs = Application.ActiveSheet
Dim xPws As String
xPws = "rfc" ''Application.InputBox("Mot de passe :", xTitleId, "", Type :=2)
xWs.Protect Password :=xPws, Userinterfaceonly :=True
xWs.EnableOutlining = Vrai
End Sub

Le fait est que vous devez être sur la feuille que vous souhaitez protéger mais en autorisant l'utilisation du regroupement, et enregistrer le classeur et le fermer, sans le protéger. Maintenant, si vous l'ouvrez, la macro démarre automatiquement, elle rendra la feuille protégée avec le mot de passe "rfc". Vous pouvez maintenant utiliser le regroupement, la feuille est protégée.

Pour ma solution, j'ai modifié le mot de passe appliqué, vous pouvez donc réécrire n'importe quel mot de passe ICI :
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Mot de passe :", xTitleId, "", Type :=2)

De plus, je ne voulais pas que la feuille à protéger soit active à l'ouverture du fichier, j'ai donc modifié cette partie :
Définir xWs = Application.ActiveSheet ->
Set xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Maintenant, cela fonctionne comme un charme, la feuille nommée 'WRITEANYSHEET'SNAMEHERE' est protégée mais le regroupement s'applique. A la longue, je pense que le problème sera que si je veux modifier ce fichier et garder la solution, je dois déprotéger cette feuille pour qu'elle fonctionne à la prochaine ouverture. Je suppose que vous pouvez écrire une autre macro pour déprotéger automatiquement lors de la fermeture :)


J'espère que cela a aidé.

redoutable

Comment regrouper et dissocier des lignes et des colonnes dans une feuille de calcul protégée ?

putain, ça a volé mon excel plus tard et changé le mot de passe en privé