Habe es probiert bei mir einzubauen aber es funktioniert nicht richtig es sieht so bei mir aus:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim xSheet As Worksheet
    Dim xPsw As String
  xPsw = "test"
  
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
        xSheet("CommandButton1").Visible = False
        xSheet("CommandButton2").Visible = False
        xSheet("CommandButton3").Visible = False
    Next

Will er nicht. Auch nicht mit "mso" vor dem False.

Sagt mir Laufzeitfehler "438". Objekt unterstützt diese Eigenschaft oder Methode nicht.

MfG