Ajustar um UserForm para o tamanho da tela

E também não deixar o usuário clicar no "X" para fechar o UserForm.
Muito bom para quem gosta de mexer na interface do Excel via VBA, assim é possível voltar todas as configurações colocando o código no botão SAIR.

;-)

Private Sub CommandButton2_Click()
     Application.WindowState = xlMaximized
     Me.Height = Application.Height
     Me.Width = Application.Width
     Me.Left = Application.Left
     Me.Top = Application.Top
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    MsgBox "clicar no botão sair!!!"
End Sub