Fermer les onglets à l'enregistrement

Bonjour le forum

Je fais un double Click pour ouvrir et fermer les onglets sauf le 1er (normal). Quelle macro pour aussi faire le double Click et fermer les onglets à l'enregistrement.

Voici les macros

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.Columns("K:M").Hidden = True
    Range("A1").Select
     Next Sh
    Sheets(1).Select
     Columns("K:M").Hidden = False
    Application.ScreenUpdating = True

End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Vue As Integer, I As Integer
  If Not Intersect(Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row + 1), Target) Is Nothing Then
    Cancel = True
    Application.EnableEvents = False
    If Target = "" Then
      If Not IsError(Application.Match(CSng(Date), Columns("G"), 0)) Then
        MsgBox "Une Consultation existe déjà à cette date"
        Target.ClearContents
        Target.Offset(, 6).ClearContents
      Else
        Target.Offset(, 6).Value = Date
        Target = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))
      End If
    ElseIf Target.Row = Range("A" & Rows.Count).End(xlUp).Row Then
      Target.ClearContents
      Target.Offset(, 6).ClearContents
    End If
    Application.EnableEvents = True
  ElseIf Target.Address = "$F$2" Then
    Cancel = True
    Target.Offset(, 1).EntireColumn.Hidden = Not Target.Offset(, 1).EntireColumn.Hidden

  ElseIf Target.Address = "$A$2" Then
    Application.ScreenUpdating = False
    Cancel = True
    Vue = Not Sheets(2).Visible
    For I = 2 To Sheets.Count
      Sheets(I).Visible = Vue
    Next I
  End If
  Range("A1").Select

Merci pour vos éventuels retours

Cordialement

Rechercher des sujets similaires à "fermer onglets enregistrement"