Discussion :

[Un Internaute]

Bonjour le forum,
Je veux faire enregistrer mon classeur sur la première feuille. Je connais la syntaxe mais je ne sais où la placer!
J'ai ça dans ThisWorkbook
Merci pour vos éventuelles réponses
Bonne journée à vous tous
Bien cordialement

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
Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sh As Worksheet
  'Application.ScreenUpdating = False
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Range("A3:D" & Sh.Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Interior.ColorIndex = xlNone
  Next Sh
  Range("A3").Select
End Sub
 
Private Sub Workbook_Open()
Dim wSheet
For Each wSheet In Worksheets
wSheet.Protect UserInterfaceOnly:=True
Next wSheet
End Sub

[Un Internaute]

Avec toutes mes excuses car j'ai eu un "éclair de génie"
Quel C$N!!!
Bonne semaine à vous tous
Cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sh As Worksheet
  'Application.ScreenUpdating = False
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Range("A3:D" & Sh.Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Interior.ColorIndex = xlNone
  Next Sh
  Range("A3").Select
   Sheets(1).Select
End Sub