Ændring af makro

Hello

Jeg tror jeg har to nemme små spørgsmål.

1. Jeg har en makro i to forskellige Excel-filer som skjuler/sletter min værktøjslinie når man lukker excel-filen.
I Excel-fil 1 skjuler den linien i Excel-fil 2 sletter den linien.

Public Sub auto_close()
        Application.CommandBars("min-menu").Visible = False

End Sub
Public Sub auto_close()
        Application.CommandBars("min-menu").Delete

End Sub

Dvs. når man åbner de to excel filer samtidig og får lukket den hvor den sletter linien først, så kommer der en vba-fejl når man vil lukke den anden excel-fil, fordi den forsøger at skjule linien.

Kan man lave makroen så den tester på om værktøjslinien er slettet og hvis den er det skal den ikke skjule den ?

Spørgsmål 2:

Jeg har også nendenstående makro som skrivebeskytter mine ark.

Hvis jeg forsøger at aktivere mine andre makroer når arkene er skrivebeskyttede kommer der også en vba-fejl.

Kan man lave en kode i de andre makroer som siger: hvis arkene er skrivebeskyttet så msgbox "arket er skrivebeskyttet" ellers så fortsæt med den pågældende makro.

Sub Beskyt()
Application.ScreenUpdating = False
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        If wSheet.ProtectContents = True Then
            wSheet.Unprotect
        Else
            wSheet.Protect
        End If
    Next wSheet
Application.ScreenUpdating = True
End Sub