Bonjour,
je suis en VBA, et je voudrais une macro qui m'affiche la page 1 de mon
classeur, et sélectionne la cellule C3. Comment faire?
*****
je voudrais aussi trouver une macro afin de vérouiller (et aussi
dévérouiller), toutes les feuilles de mon classeur avec un mot de passe.
actuellement, j'arrive à verrouiller les celulles de la feuille active:
Sub VALID()
pw = InputBox("Entrer le mot de passe")
If pw = "h" Then
ActiveSheet.Unprotect
Range("A1:M1500").Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect
Else
MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe"
End If
End Sub
---------
Merci. YANN
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Pour la première question, enregistre une macro et regarde le résultat. Pour la protection/déprotection, voici une méthode :
Sub Macro_Protect() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub Sub Macro_Unprotect() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets DeprotegeFeuille f.Name, mdp Next f End Sub
End Sub Function DeprotegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnOs DeprotegeFeuille = Worksheets(nomf).Unprotect(mdp) Exit Function YaUnOs: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, je suis en VBA, et je voudrais une macro qui m'affiche la page 1 de mon classeur, et sélectionne la cellule C3. Comment faire?
***** je voudrais aussi trouver une macro afin de vérouiller (et aussi dévérouiller), toutes les feuilles de mon classeur avec un mot de passe. actuellement, j'arrive à verrouiller les celulles de la feuille active: Sub VALID() pw = InputBox("Entrer le mot de passe") If pw = "h" Then ActiveSheet.Unprotect Range("A1:M1500").Select Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect Else MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe" End If End Sub --------- Merci. YANN
Bonjour
Pour la première question, enregistre une macro et regarde le résultat.
Pour la protection/déprotection, voici une méthode :
Sub Macro_Protect()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
ProtegeFeuille f.Name, mdp
Next f
End Sub
Sub Macro_Unprotect()
Dim mdp As String
mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de
passe ?", Type:=2)
If mdp <> "h" Then _
MsgBox "Désolé mauvais mot de passe", vbCritical, _
"Erreur": Exit Sub
Dim f As Worksheet
For Each f In Sheets
DeprotegeFeuille f.Name, mdp
Next f
End Sub
End Sub
Function DeprotegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnOs
DeprotegeFeuille = Worksheets(nomf).Unprotect(mdp)
Exit Function
YaUnOs:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Function ProtegeFeuille(nomf As String, mdp As String)
On Error GoTo YaUnBinz
ProtegeFeuille = Worksheets(nomf).Protect(mdp)
Exit Function
YaUnBinz:
msg = "Problème rencontré dans l'exécution : "
msg = vbLf & vbLf & Err.Description
MsgBox msg
End Function
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 3DA76F79-5436-46EE-820C-3090752D8850@microsoft.com...
Bonjour,
je suis en VBA, et je voudrais une macro qui m'affiche la page 1 de mon
classeur, et sélectionne la cellule C3. Comment faire?
*****
je voudrais aussi trouver une macro afin de vérouiller (et aussi
dévérouiller), toutes les feuilles de mon classeur avec un mot de passe.
actuellement, j'arrive à verrouiller les celulles de la feuille active:
Sub VALID()
pw = InputBox("Entrer le mot de passe")
If pw = "h" Then
ActiveSheet.Unprotect
Range("A1:M1500").Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect
Else
MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe"
End If
End Sub
---------
Merci. YANN
Bonjour Pour la première question, enregistre une macro et regarde le résultat. Pour la protection/déprotection, voici une méthode :
Sub Macro_Protect() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets ProtegeFeuille f.Name, mdp Next f End Sub Sub Macro_Unprotect() Dim mdp As String mdp = Application.InputBox(prompt:="Saisir le Mot de passe", Title:="Mot de passe ?", Type:=2) If mdp <> "h" Then _ MsgBox "Désolé mauvais mot de passe", vbCritical, _ "Erreur": Exit Sub Dim f As Worksheet For Each f In Sheets DeprotegeFeuille f.Name, mdp Next f End Sub
End Sub Function DeprotegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnOs DeprotegeFeuille = Worksheets(nomf).Unprotect(mdp) Exit Function YaUnOs: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Function ProtegeFeuille(nomf As String, mdp As String) On Error GoTo YaUnBinz ProtegeFeuille = Worksheets(nomf).Protect(mdp) Exit Function YaUnBinz: msg = "Problème rencontré dans l'exécution : " msg = vbLf & vbLf & Err.Description MsgBox msg End Function
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Bonjour, je suis en VBA, et je voudrais une macro qui m'affiche la page 1 de mon classeur, et sélectionne la cellule C3. Comment faire?
***** je voudrais aussi trouver une macro afin de vérouiller (et aussi dévérouiller), toutes les feuilles de mon classeur avec un mot de passe. actuellement, j'arrive à verrouiller les celulles de la feuille active: Sub VALID() pw = InputBox("Entrer le mot de passe") If pw = "h" Then ActiveSheet.Unprotect Range("A1:M1500").Select Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect Else MsgBox ("Désolé"), vbCritical, "Mauvais mot de passe" End If End Sub --------- Merci. YANN