> Tous les forums > Forum Bureautique
 Protéger toutes les Feuilles en meme tempsSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
delta70
  Posté le 24/08/2013 @ 15:52 
Aller en bas de la page 
Petit astucien
Bonjour,
2 Macros tirées d'un site d'ami.
Une pour protéger toutes les Feuilles, l'autre pour ôter cette protection.
Mais le code vba du mot passe n'accepte que les lettres (texte : string), et moi je veux utiliser tous les caractères (alphanumérique). Que dois- je ajouter dans ce code vba ?
Merci bien pour vos aides


Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub
Publicité
delta70
 Posté le 24/08/2013 à 18:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Message original par delta70
Bonjour,
2 Macros tirées d'un site d'ami.
Une pour protéger toutes les Feuilles, l'autre pour ôter cette protection.
Mais le code vba du mot passe n'accepte que les lettres (texte : string), et moi je veux utiliser tous les caractères (alphanumérique). Que dois- je ajouter dans ce code vba ?
Merci bien pour vos aides


Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub
Merci bien jpdlex

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
SSD WD Blue SN580 1 To (PCIe 4, NMVe M.2, 4150 Mo/s) à 64,99 €
64,99 € 76,99 € -16%
@Amazon
Lampe écran pour bureau BlitzWolf BW-CML2 (blanc réglable + RGB arrière) à 15,76 €
15,76 € 30 € -47%
@Banggood
Processeur AMD Ryzen 5 8500G à 160,56 €
160,56 € 200 € -20%
@Amazon Espagne
Boitier PC MSI MPG Velox 100P AIRFLOW à 99,95 €
99,95 € 149,99 € -33%
@Amazon
Clé USB 3.1 Type C Sandisk Ultra 256 Go à 25,39 €
25,39 € 42 € -40%
@Amazon Allemagne
Tapis de marche Xiaomi UREVO URTM022 (102,40x40 cm, de 1 à 6 km/h) à 194,38 €
194,38 € 279 € -30%
@Geekbuying

Sujets relatifs
copier sur plusieurs feuilles excel en meme temps
meme code pour toutes les feuilles du classeur
protéger en même temps plusieurs onglets excel
[Astuces] Même mise en forme toutes feuilles
Corriger images toutes en même temps IRFAN VIEW
Supprimer plusieurs styles Photoshop en même temps
Question sur l'envoi de plusieurs mails en même temps
Compatibilité 2 Office en même temps
même titre dans toutes les diapos
Ouvrir et afficher 2documents Open en même temps
Plus de sujets relatifs à Protéger toutes les Feuilles en meme temps
 > Tous les forums > Forum Bureautique