probleme mit standard codes von mir

hallo. beim aufbau einer userform mache ich immer die selben codes rein :
arbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub

Private Sub CommandButton3_Click()
If Not TextBox6.Text = "" Then
MsgBox "Falsches Passwort", vbInformation
TextBox6.SetFocus
Exit Sub
End If
Unload UserForm1
Application.Visible = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'   Damit mit X nicht geschloßen werden kann
If CloseMode = 0 Then
MsgBox "Bitte schließen Sie das Programm mit dem Schliessen - Button", vbCritical
Cancel = 1
End If
End Sub