Discussion :

[Un Internaute]

Bonjour le forum,

J'ai une macro dans ThisWorkbook. Je veux lui faire exécuter à l'ouverture et à la fermeture comme indiqué dans l'intitulé.
J'accroche!!!
Merci pour d'éventuelles réponses de votre part.
Bien cordialement à vous tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date
 
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If Left(Sh.Name, 7) = "Charges" Then  'Le chiffre 7 = Nombre de lettres du mot "Charges".On peut mettre 8 avec un espace après "Charges " pour une sécurité.
    If Not Intersect(Range("B8:B48,E8:E48"), Target) Is Nothing Then
      If Target.Interior.ColorIndex = 2 Then
        ' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)
      End If
    End If
  End If
  Application.EnableEvents = True
End Sub

[SfJ5Rpw8]

bonjour,

et quel est le rapport avec le code posté et ton besoin ?

[Un Internaute]

Bonjour bbil,
Je veux déprotéger le fichier à son ouverture et le reprotéger à la fermeture dans cette macro si c'est possible.
je ne sait pas où caser ces 2 lignes.
Merci de t'intéresser à mon problème.
Bien cordialement

[SfJ5Rpw8]

à lire :
Les évènements du module objet ThisWorkbook

[Un Internaute]

J'ai mis ça et ça fonctionne.
Encore merci
Bon WE
Bien cordialement à toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
Dim wSheet
For Each wSheet In Worksheets
wSheet.Protect UserInterfaceOnly:=True
Next wSheet
End Sub