Nascondere il tasto X di chiusura Excel

Question

Salve,

ho creato un pulsante di chiusura in una Userform e vorrei nascondere o disattivare il tasto X di chiusura di Excel. Ho trovato qualcosa nella community, ma quando vado a chiudere con il pulsante da me creato non si chiude del tutto excel....

Grazie!!!!

Answer 1

Se vuoi impedire la chiusura del file e decidere tu tramite macro ( la m() da attivare come meglio credi).

Nel modulo di ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Cancel = bln

End Sub

Private Sub Workbook_Open()

    bln = True

End Sub

In un modulo standard:

Public bln As Boolean

Public Sub m()

    bln = False

    Application.Quit '<<===

    ThisWorkbook.Close

End Sub

Answer 2

Mauro Gamberini, grazie per la risposta, mi sarà utile per altro ma non è quello che cerco. Io ho bisogno di disattivare la X di chiusura di Excel, di tutti i fogli, e non di una userform.

Grazie!!!

Answer 3

Vedi questo articolo Wiki:

• https://answers.microsoft.com/it-it/msoffice/wiki/msoffice_excel-mso_other/excel-modificare-la-visualizzazione-di-una/94233037-2de2-43df-b68b-2b840fd9d3f6

Answer 4

Allora, ho creato un modulo con questo codice:

Sub ChiudiGVdiet()

Dim Ret As String

Ret = MsgBox("Sei sicuro di voler uscire dal programma? Ricordati che nessun dato sarà salvato!!!", 260 + 0 + 48, "Attenzione!!!")

Select Case Ret

        Case vbYes

        Case vbNo

        Cancel = True

        MsgBox "Continua!!!", vbInformation

End Select

Select Case Ret

Case vbYes

MsgBox "Ciao!!!", vbInformation, ""

Application.Quit

End Select

End Sub

In ThisWorkbook ho inserito questo codice (preso da una discussione nella community)

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If bln Then

        Cancel = False

    Else

        Cancel = True

    End If

End Sub

In un pulsante ho inserito invece questo:

Private Sub CommandButton3_Click()

ChiudiGVdiet

End Sub

Answer 5

Ciao ViGri3881,

ho creato un pulsante di chiusura in una Userform e vorrei nascondere o disattivare il tasto X di chiusura di Excel. Ho trovato qualcosa nella community, ma quando vado a chiudere con il pulsante da me creato non si chiude del tutto excel....

Sarebbe più facile di aiutarti se condividessi il codice che hai trovato e il codice che utilizzi nella Userform.

===

Regards,

Norman