Problème avec feuille protégée

J

jbat

Guest
bonjour à tous,

voici mon problème: je dois travailler sur une feuille protégée et donc pour lancer ma macro je dois déprotéger ma feuille, réecrire mes résultats et reprotéger ma feuille mais le problème est que la feuille se reprotège mais lorsque je lance 2 fois de suite ma macro et ben la deuxième fois elle plante car elle ne peut pas déprotéger ma feuille....
si quelqu'un a une solution merci mille fois

julien
 
Trier par date Trier par votes
J

jbat

Guest
voici mon code...
merci pour ton aide



Sub translate()

ActiveWorkbook.Unprotect Password:="xxxx"

If Range("an4") = 1 Then
Range("a3") = "Pensionskasse der UBS: Eintrittsberechnungs-Simulation"
ElseIf Range("an4") = 2 Then
Range("a3") = "Caisse de pension de l'UBS : projet d'affiliation"
ElseIf Range("an4") = 3 Then
Range("a3") = "Pension Fund of UBS: simulation of affiliation"
ElseIf Range("an4") = 4 Then
Range("a3") = "Cassa pensione dell'UBS: simulazione di affiliazione"
Else: Range("a3") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("a4") = "1. Angaben"
ElseIf Range("an4") = 2 Then
Range("a4") = "1. Données"
ElseIf Range("an4") = 3 Then
Range("a4") = "1. Personal Details"
ElseIf Range("an4") = 4 Then
Range("a4") = "1. Informazioni"
Else: Range("a4") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("a5") = "Eintrittsdatum"
ElseIf Range("an4") = 2 Then
Range("a5") = "Date d'entrée"
ElseIf Range("an4") = 3 Then
Range("a5") = "Entry date"
ElseIf Range("an4") = 4 Then
Range("a5") = "Data dell'entrata"
Else: Range("a5") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("a6") = "Geburtsdatum"
ElseIf Range("an4") = 2 Then
Range("a6") = "Date de naissance"
ElseIf Range("an4") = 3 Then
Range("a6") = "Date of birth"
ElseIf Range("an4") = 4 Then
Range("a6") = "Data di nascita"
Else: Range("a6") = "Sprache eingeben"
End If


If Range("an4") = 1 Then
Range("a7") = "Geschlecht"
ElseIf Range("an4") = 2 Then
Range("a7") = "Sexe"
ElseIf Range("an4") = 3 Then
Range("a7") = "Sex"
ElseIf Range("an4") = 4 Then
Range("a7") = "Sesso"
Else: Range("a7") = "Sprache eingeben"
End If



If Range("an4") = 1 Then
Range("a8") = "Jahressalär (ohne Zulagen)"
ElseIf Range("an4") = 2 Then
Range("a8") = "Salaire annuel (sans allocations)"
ElseIf Range("an4") = 3 Then
Range("a8") = "Annual base salary (excl. salary supplements)"
ElseIf Range("an4") = 4 Then
Range("a8") = "Stipendio annuo (senza supplementi)"
Else: Range("a8") = "Sprache eingeben"
End If



If Range("an4") = 1 Then
Range("a9") = "2. Alter und Tarif"
ElseIf Range("an4") = 2 Then
Range("a9") = "2. Age et Tarif"
ElseIf Range("an4") = 3 Then
Range("a9") = "2. Age and Tariff"
ElseIf Range("an4") = 4 Then
Range("a9") = "2. Età e Tariffa"
Else: Range("a9") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("a10") = "Alter:"
ElseIf Range("an4") = 2 Then
Range("a10") = "Age:"
ElseIf Range("an4") = 3 Then
Range("a10") = "Age:"
ElseIf Range("an4") = 4 Then
Range("a10") = "Età:"
Else: Range("a10") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("a11") = "BVG-Alter:"
ElseIf Range("an4") = 2 Then
Range("a11") = "Age-LPP:"
ElseIf Range("an4") = 3 Then
Range("a11") = "BVG/LPP-Age:"
ElseIf Range("an4") = 4 Then
Range("a11") = "Età-LPP:"
Else: Range("a11") = "Sprache eingeben"
End If


If Range("an4") = 1 Then
Range("a12") = "Tarif (Tabelle B):"
ElseIf Range("an4") = 2 Then
Range("a12") = "Tarif (Tabelle B):"
ElseIf Range("an4") = 3 Then
Range("a12") = "Tariff (Tabelle B):"
ElseIf Range("an4") = 4 Then
Range("a12") = "Tarif (Tabelle B):"
Else: Range("a12") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("a13") = "Kürzung (Tabelle A):"
ElseIf Range("an4") = 2 Then
Range("a13") = "Réduction (Tabelle A):"
ElseIf Range("an4") = 3 Then
Range("a13") = "Reduction (Tabelle A):"
ElseIf Range("an4") = 4 Then
Range("a13") = "Riduzione (Tabelle A):"
Else: Range("a13") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("e5") = "Beschäftigungsgrad:"
ElseIf Range("an4") = 2 Then
Range("e5") = "Degré d'occupation:"
ElseIf Range("an4") = 3 Then
Range("e5") = "Degree of employment:"
ElseIf Range("an4") = 4 Then
Range("e5") = "Grado di occupazione:"
Else: Range("e5") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("e6") = "Name/Vorname:"
ElseIf Range("an4") = 2 Then
Range("e6") = "Nom/Prénom:"
ElseIf Range("an4") = 3 Then
Range("e6") = "Name/First Name:"
ElseIf Range("an4") = 4 Then
Range("e6") = "Cognome/Nome:"
Else: Range("e6") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("e7") = "Sprachcode:"
ElseIf Range("an4") = 2 Then
Range("e7") = "Code langue:"
ElseIf Range("an4") = 3 Then
Range("e7") = "Language code:"
ElseIf Range("an4") = 4 Then
Range("e7") = "Codice lingua:"
Else: Range("e7") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("e8") = "Eintrittsleistung per Eintritt:"
ElseIf Range("an4") = 2 Then
Range("e8") = "Apport de libre passage à l'entrée:"
ElseIf Range("an4") = 3 Then
Range("e8") = "Transferred termination benefit:"
ElseIf Range("an4") = 4 Then
Range("e8") = "Prestazione d'entrata all'affiliazione:"
Else: Range("e8") = "Sprache eingeben"
End If


If Range("an4") = 1 Then
Range("e10") = "Maximale mögliche Einkaufsumme vor Einkauf:"
ElseIf Range("an4") = 2 Then
Range("e10") = "Montant max. pour l'achat complet du cap. épargne avant achat:"
ElseIf Range("an4") = 3 Then
Range("e10") = "Maximum purchasable amount before repurchase:"
ElseIf Range("an4") = 4 Then
Range("e10") = "Importo d'acquisto massimo ammesso prima di riacquisto:"
Else: Range("e10") = "Sprache eingeben"
End If


If Range("an4") = 1 Then
Range("e11") = "im Rentenplan:"
ElseIf Range("an4") = 2 Then
Range("e11") = "dans le plan de rente:"
ElseIf Range("an4") = 3 Then
Range("e11") = "in the Pension plan:"
ElseIf Range("an4") = 4 Then
Range("e11") = "nel Piani di rendita:"
Else: Range("e11") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("e12") = "im Sparplan:"
ElseIf Range("an4") = 2 Then
Range("e12") = "dans le Plan d'épargne"
ElseIf Range("an4") = 3 Then
Range("e12") = "in the Savings Plan:"
ElseIf Range("an4") = 4 Then
Range("e12") = "nel Piani di risparmio"
Else: Range("e12") = "Sprache eingeben"
End If


If Range("an4") = 1 Then
Range("e13") = "im Kapitalplan:"
ElseIf Range("an4") = 2 Then
Range("e13") = "dans le Plan de capital:"
ElseIf Range("an4") = 3 Then
Range("e13") = "in the Defined Contribution Plan"
ElseIf Range("an4") = 4 Then
Range("e13") = "nel Piano di capitale"
Else: Range("e13") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("e14") = "Total"
ElseIf Range("an4") = 2 Then
Range("e14") = "Total"
ElseIf Range("an4") = 3 Then
Range("e14") = "Total"
ElseIf Range("an4") = 4 Then
Range("e14") = "Totale"
Else: Range("e14") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("d7") = "(1=Mann, 2=Frau)"
ElseIf Range("an4") = 2 Then
Range("d7") = "(1=Homme, 2=Femme)"
ElseIf Range("an4") = 3 Then
Range("d7") = "(1=Man, 2=Woman)"
ElseIf Range("an4") = 4 Then
Range("d7") = "(1=Uomo, 2=Donna)"
Else: Range("d7") = "Sprache eingeben"
End If

If Range("an4") = 1 Then
Range("h7") = "(1=Deutsch, 2=Französisch, 3=Englisch, 4=Italienisch)"
ElseIf Range("an4") = 2 Then
Range("h7") = "(1=Allemand, 2=Français, 3=Anglais, 4=Italien)"
ElseIf Range("an4") = 3 Then
Range("h7") = "(1=German, 2=French, 3=English, 4=Italian)"
ElseIf Range("an4") = 4 Then
Range("h7") = "(1=Tedesco, 2=Francese, 3=Inglese, 4=Italiano)"
Else: Range("h7") = "Sprache eingeben"
End If
ActiveWorkbook.Protect Password:="xxxx"

End Sub
 
Vote positif 0 Vote négatif
Z

Zon

Guest
Re,

tu parles de prtoection de feuille dans le 1 er post, ici tu déprotéges ton classeur, normal que ça, plante:

pour une feuille

sheets("tafeuille").unprotect "tonmotdepasse"

ou activesheet.unprotect pour la feuille active

A+++
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Question
XL 2021 Tableau incrementé dans une feuille excel protégée!
Réponses
1
Affichages
108
fanfan38
fanfan38
D
  • Question
Microsoft 365 Filtrer sur une feuille protégée et avec code macro
Réponses
5
Affichages
211
dd_76
D
A
  • Résolu(e)
XL 2016 Recherche avec deux valeurs
Réponses
3
Affichages
301
amgue
A
Calvus
  • Question
Microsoft 365 Rafraichissement Listbox
2
Réponses
25
Affichages
769
Calvus
Calvus
Roseline
  • Résolu(e)
Microsoft 365 Tri sur feuille protégée
Réponses
4
Affichages
642
Roseline
Roseline
L
  • Résolu(e)
Microsoft 365 Input Duplication feuille en masse
2
Réponses
16
Affichages
678
LuanaDDC
L
M
  • Question
Microsoft 365 Envoi (mail) d'une seule feuille de calcul (active) en pdf
Réponses
7
Affichages
562
patricktoulon
patricktoulon
C
  • Résolu(e)
XL 2021 filtrer données puis envoi sur une autre feuille
Réponses
3
Affichages
253
sylvanu
sylvanu
Caninge
  • Question
XL 2019 Saisie de Résultats avec UserForm
2
Réponses
21
Affichages
775
Caninge
Caninge
drdege
  • Question
XL 2010 Feuille macro systématique à l ouverture d un dossier
Réponses
2
Affichages
287
drdege
drdege

Membres actuellement en ligne

1 membres et 38 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 489
Messages
2 088 855
Membres
103 977
dernier inscrit
Hermet