1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Privata underWorkbook_Open () Med Sheet1 . Skydda lösenordet: = " hemlighet ", AllowFormattingCells: =True UserInterfaceOnly: =True .EnableOutlining = True Avsluta med Avsluta suben