Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Copier feuille sur classeur protégé

T

TechnologyNewStore

XLDnaute Nouveau
Bonjour à tous,

Je vous sollicite pour un problème sur une macro qui a pour objectif de copier une feuille sur un classeur protégé.
Voici le code d'erreur :

Mon classeur dispose de deux feuilles cachées ("MotDePasse" et "BaseDeDonnées") et d'une feuille principale ("RT"). Je souhaite copier cette dernière via un bouton vers une nouvelle feuille visible qui serait nommée par la date du jour avant la feuille "RT'.
Le bouton ouvre un UF qui demande le MdP => si MdP rentré = celui sur la feuille cachée "MotDePasse" en cellule B3 => copie de la feuille active

Voici le code utilisé :
Code: 
Sub AffichageUFMDPNouvellefeuille() 'Affichage du UserForm UFMDPNouvellefeuille

    UFMDPNouvellefeuille.Show
   
End Sub

VB: 
Option Explicit
Option Compare Text
Private Sub BoutonValider_Click() 'Effet lorsqu'on clique sur le bouton "OK"
    If TextBoxMDP.Value = Sheets("MotDePasse").Range("B3").Text Then 'Si le code est correct, on valide la création d'une nouvelle feuille
    Unload UFMDPDesactiverProtection 'Desactivation des protections pour pouvoir faire la copie
With Worksheets("RT")
    .Unprotect Password:=Sheets("MotDePasse").Range("B3").Text
    .EnableSelection = xlNoRestrictions
    .Copy Before:=Sheets("RT") 'Copie de la feuille active
    .Name = Date 'Nomage de la nouvelle feuille par la date du jour
End With
End If
End Sub

Dans l'idéal, j'aimerai que ce bouton puisse être présent uniquement sur la feuille "RT" et qu'il ne soit pas collé sur les autres feuilles de manière à toujours utiliser la feuille "RT" pour copier/coller la feuille.

Merci d'avance,

Bonne soirée.
 
Solution
VB: 
ActiveSheet.Unprotect "chefraisage"
ActiveSheet.Shapes("Nouvellefeuille").Delete
ActiveSheet.Protect "chefraisage"
Quant au classement des feuilles il y a de nombreux exemples sur le forum.
Trier par date Trier par votes
T

TechnologyNewStore

XLDnaute Nouveau
Re-bonjour,

Ok j'ai trouvé le problème, c'est que mon classeur était protégé en plus !
Donc ajout d'un petit "ActiveWorkbook.Unprotect"

Du coup, problème a demi résolu.
Il me reste la question du bouton utilisé pour copier la feuille que je ne souhaite pas retrouver dans la feuille collée => une idée ?
 
Vote positif 0 Vote négatif
T

TechnologyNewStore

XLDnaute Nouveau
Merci beaucoup @job75

J'ai amélioré un peu le code comme ceci sachant que ma forme s'appelle "Nouvellefeuille"
VB: 
Sub Nouvellefeuille_Cliquer()
ActiveWorkbook.Unprotect Password:=Sheets("MotDePasse").Range("B1").Text
Dim Nom As String, DDMMYYYY As String, i As Byte, Verif As Boolean
DDMMYYYY = Format(Date, "dd-mm-yyyy")
    On Error Resume Next
recom:
Verif = False
Nom = InputBox("Définissez le nom de votre nouvelle feuille", "Ajout nouvelle feuille", DDMMYYYY) 'Nom de la nouvelle feuille saisie dans InputBox (par défaut, date du jour)
If Nom = "" Then Exit Sub 'Si pas de nom rentré, la fenêtre se ferme
For i = 1 To Sheets.Count
    If Sheets(i).Name = Nom Then Verif = True 'Verifie si le nom de la feuille existe déjà
Next
If Verif = True Then
    MsgBox "La feuille " & Nom & " existe déjà, veuillez choisir un autre nom svp." 'Affiche que le nom existe déjà et demande de saisir un autre nom
    GoTo recom
End If
ActiveSheet.Copy after:=Worksheets("RT")
ActiveSheet.Name = Nom
Worksheets("Nom").Shapes("Nouvellefeuille").Delete
End Sub

Cependant, la suppression de la forme ne marche pas à tous les coups...
Peut être que mon code est trop lourd et surtout mal codé ?
 
Vote positif 0 Vote négatif
T

TechnologyNewStore

XLDnaute Nouveau
Merci @job75 mais ma forme ne se supprime toujours pas...
Voici ci-joint mon interface en PJ.
J'ai créer un bouton "Ajouter nouvelle feuille" à droite de la feuille lié au module 1 qui me sert à copier la feuille active.
=> Je souhaite que le bouton "Ajouter nouvelle feuille" soit supprimé lorsque l'on dupliquera la feuille (ne marche pas actuellement).
La nouvelle feuille prendra pour nom la date du jour par défaut (pourra être modifié au besoin dans l'Input Box.
=> De plus, je souhaiterai que la feuille "RT" soit toujours positionnée à la fin et que toutes les nouvelles feuilles s'incrémentent les unes à la suite des autres.
Ex : si j'en créer une aujourd'hui, elle se mettra devant la feuille "RT". Si j'en créer une demain, elle se mettra après celle du "25-02-2022" mais toujours avant "RT" soit dans l'ordre suivant : "25-02-2022", "26-02-2022", "RT" (puis les feuilles chachées)
=> Les nouvelles feuilles doivent pouvoir récuperer les mêmes info que la feuille "témoin" "RT" dans les bases de données.
=> De plus, les nouvelles feuilles devront être protégées au même titre que la feuille témoin.

Info : Il y a deux feuilles cachées, une avec la base de données, l'autre avec les mots de passe. Le classeur et protégé par défaut et verrouillé également.
Mot de passe pour ôter les protections et envoyer un mail = "chefraisage"
Mot de passe pour accéder à la base de données et à la macro = "chefdepart"

Je vous remercie d'avance pour votre aide précieuse !
 

Pièces jointes

  • Revue_Technique.xlsm
    135 KB · Affichages: 4
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
VB: 
ActiveSheet.Unprotect "chefraisage"
ActiveSheet.Shapes("Nouvellefeuille").Delete
ActiveSheet.Protect "chefraisage"
Quant au classement des feuilles il y a de nombreux exemples sur le forum.
 
Vote positif 1 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
579
laurent950
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
153
sebastien176
S
  • Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
475
jeanmi
N
  • Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
215
Nonoo
N
  • Question
Microsoft 365 Copier et coller formes sans changer de feuille
Réponses
2
Affichages
561
Chasse
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
215
Etoto
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
400
Le Rouky
L
C
  • Question
Microsoft 365 Copier une cellule suite macro sur un tableau externe
Réponses
2
Affichages
167
Chounoé
C
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
440
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…