Bonjour
je souhaite maintenant pouvoir avec l'aide de macros
- Sur certaines feuilles, laisser des cellules modifiables, verrouiller les autres en autorisant les calculs, masquer les formules, et laisser les macros fonctionner.
- Masquer les autres feuilles en laissant les calculs se réaliser
Merci
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
michdenis
Bonjour,
Dans le ThisWrokbook de ton projetVBA, copie ceci :
'------------------------------------- Private Sub Workbook_Open() Dim Sh As Object
Call traitement For Each Sh In Sheets If UCase(Sh.Name) <> "SEM 4" Then Sh.Visible = xlHidden 'OU xlveryhidden Else Sh.EnableSelection = xlUnlockedCells Sh.Protect "MotDePasse", True, True, True, True End If Next End Sub '-------------------------------------
Sub traitement() Dim Arr(), DerLig As Long Dim B As Long
'Un tableau pour les plages d'adresses Arr = Array("C:AJ", "BC:CJ", "DC:EJ", "FC:GJ", "HC:IJ")
With Worksheets("sem 4") .Unprotect ' "motDePasse" si requis .Cells.Locked = True .UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True For Each elt In Arr 'Dernière cellule occupée dans la plage DerLig = .Range(elt).Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row For a = 24 To DerLig Step 4 .Range(elt).Rows(a).Locked = False Next Next .Protect End With End Sub '-------------------------------------
"timili" a écrit dans le message de groupe de discussion :
Bonjour je souhaite maintenant pouvoir avec l'aide de macros
- Sur certaines feuilles, laisser des cellules modifiables, verrouiller les autres en autorisant les calculs, masquer les formules, et laisser les macros fonctionner. - Masquer les autres feuilles en laissant les calculs se réaliser Merci
http://cjoint.com/?dpoR1kxqsV
Bonjour,
Dans le ThisWrokbook de ton projetVBA,
copie ceci :
'-------------------------------------
Private Sub Workbook_Open()
Dim Sh As Object
Call traitement
For Each Sh In Sheets
If UCase(Sh.Name) <> "SEM 4" Then
Sh.Visible = xlHidden 'OU xlveryhidden
Else
Sh.EnableSelection = xlUnlockedCells
Sh.Protect "MotDePasse", True, True, True, True
End If
Next
End Sub
'-------------------------------------
Sub traitement()
Dim Arr(), DerLig As Long
Dim B As Long
'Un tableau pour les plages d'adresses
Arr = Array("C:AJ", "BC:CJ", "DC:EJ", "FC:GJ", "HC:IJ")
With Worksheets("sem 4")
.Unprotect ' "motDePasse" si requis
.Cells.Locked = True
.UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
For Each elt In Arr
'Dernière cellule occupée dans la plage
DerLig = .Range(elt).Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
For a = 24 To DerLig Step 4
.Range(elt).Rows(a).Locked = False
Next
Next
.Protect
End With
End Sub
'-------------------------------------
"timili" <nospam_r.e.michel@free.fr> a écrit dans le message de groupe de discussion :
04adnYHJHczEpgPWRVn_vwA@giganews.com...
Bonjour
je souhaite maintenant pouvoir avec l'aide de macros
- Sur certaines feuilles, laisser des cellules modifiables, verrouiller les
autres en autorisant les calculs, masquer les formules, et laisser les macros
fonctionner.
- Masquer les autres feuilles en laissant les calculs se réaliser
Merci
Dans le ThisWrokbook de ton projetVBA, copie ceci :
'------------------------------------- Private Sub Workbook_Open() Dim Sh As Object
Call traitement For Each Sh In Sheets If UCase(Sh.Name) <> "SEM 4" Then Sh.Visible = xlHidden 'OU xlveryhidden Else Sh.EnableSelection = xlUnlockedCells Sh.Protect "MotDePasse", True, True, True, True End If Next End Sub '-------------------------------------
Sub traitement() Dim Arr(), DerLig As Long Dim B As Long
'Un tableau pour les plages d'adresses Arr = Array("C:AJ", "BC:CJ", "DC:EJ", "FC:GJ", "HC:IJ")
With Worksheets("sem 4") .Unprotect ' "motDePasse" si requis .Cells.Locked = True .UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True For Each elt In Arr 'Dernière cellule occupée dans la plage DerLig = .Range(elt).Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row For a = 24 To DerLig Step 4 .Range(elt).Rows(a).Locked = False Next Next .Protect End With End Sub '-------------------------------------
"timili" a écrit dans le message de groupe de discussion :
Bonjour je souhaite maintenant pouvoir avec l'aide de macros
- Sur certaines feuilles, laisser des cellules modifiables, verrouiller les autres en autorisant les calculs, masquer les formules, et laisser les macros fonctionner. - Masquer les autres feuilles en laissant les calculs se réaliser Merci