Hej Viktoria
En variant kan vara att spara filen med kod när programmet stängs ned. Då blir konsekvensen istället att man inte längre kan utnyttja stäng ner utan att spara om man gjort fel. Detta kan man visseliggen hantera med spara ner backupfiler med jämna mellanrum, eller låta koden spara en version av filen när denna öppnas, samt att vid stänging låta användaren välja "inte spara", och om sparning inte sker, återgå till den backupade filen. Koden nedan hanterar inte undantagsscenariot jag just beskrev, men hanterar problemet med dina synliga flikar.
Mvh
Christian
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Blad2.Visible = xlSheetVeryHidden
Blad3.Visible = xlSheetVeryHidden
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim Ans As String: Ans = InputBox("Enter pass to see hidden sheets")
If Ans = "Gubbe31" Then
Blad2.Visible = xlSheetVisible
Blad3.Visible = xlSheetVisible
End If
End Sub