Salve a tutti.

Io non ho trovato di meglio che sfruttare un gestore degli errori, ma sono curiosissimo di vedere cos'altro partorirete 🙂
Ecco alcune varianti

`Sub self_destruction_1()
    
    On Error GoTo Exit_Sub
    Debug.Print 1 / CLng(MsgBox("Vuoi formattare il disco C: ?", vbOKCancel + vbQuestion, "Attenzione") <> vbCancel)
    MsgBox "Boom!"
    
Exit_Sub:
    On Error GoTo 0

End Sub


Sub self_destruction_2()
    
    Dim Dumb_Var As Long
    
    On Error GoTo Exit_Sub
    Dumb_Var = Log(Abs(CLng(MsgBox("Vuoi formattare il disco C: ?", vbOKCancel + vbQuestion, "Attenzione") <> vbCancel)))
    MsgBox "Boom!"
    
Exit_Sub:
    On Error GoTo 0

End Sub

Sub self_destruction_3()
    
    On Error GoTo Exit_Sub
    Sheets(Abs(CLng(MsgBox("Vuoi formattare il disco C: ?", vbOKCancel + vbQuestion, "Attenzione") <> vbCancel))).Select
    MsgBox "Boom!"
    
Exit_Sub:
    On Error GoTo 0

End Sub

Sub self_destruction_4()
    
    On Error GoTo Exit_Sub
    Debug.Print Cells(Abs(CLng(MsgBox("Vuoi formattare il disco C: ?", vbOKCancel + vbQuestion, "Attenzione") <> vbCancel)), 1).Value
    MsgBox "Boom!"
    
Exit_Sub:
    On Error GoTo 0

End Sub`

Bravo VF, simpatica sfida.

Visto che il desiderata era di evitare l'uso dei costrutti condizionali (If, Iif e Select) e non di evitare l'uso di MsgBox(), propongo una soluzione molto scarna ma che clona aspetto e comportamento dell'esercizio proposto:

Sub self_destruction()
  Dim answer As Long
      
  answer = MsgBox("Vuoi formattare il disco C: ?", vbOKCancel, "Attenzione")
  On Error GoTo exit_err
  answer = 1 / (answer - 2)
  MsgBox "Boom!"
exit_err:
End Sub

Una soluzione più smart, con gestione personalizzata anche dell'opzione 'annulla':

Sub self_destructionSmart()
  Dim answer As Long, sMess As String ', vRis As Variant
    
  sMess = "paura eh ...?!"
  answer = MsgBox("Vuoi formattare il disco C: ?", vbOKCancel, "Attenzione")

  On Error GoTo exit_err
  answer = 1 / (answer - 2) 'vRis = ...
  sMess = "Boom!"
exit_err:
    Err.Description = sMess
    MsgBox Err.Description
End Sub

le mie 2 soluzioni

'--------- prima -----------
Sub SenzaIF()
Dim answer As Integer, risposte
risposte = Array("Si", "No")
answer = MsgBox("Vuoi formattare il disco C: ?", vbOKCancel, "Attenzione")
Application.Run (risposte(answer - 1))
End Sub

Sub si()
    MsgBox "Boom!"
End Sub

Sub no()
End Sub
'--------- seconda -----------
Sub Senza_IF()
Dim answer As Integer
answer = MsgBox("Vuoi formattare il disco C: ?", vbOKCancel, "Attenzione")
On answer GoTo si, no
si:
    MsgBox "Boom!"
    Exit Sub
no:
End Sub

Beh, ogni tanto qualche idea di un "vecchio" ... viene presa in considerazione.

Meno male.

Ciao,

Mario

Ciao a tutti

Spero abbiate passato un buon WE.

Qui di seguito le mie proposte.  A ben vedere sono parenti (molto strette di altre già postate in precedenza)

Per Riassumere io ho usato:

- Gestione degli errori

- Cicli (Do ... Loop, While ... Wend e For ... NExt)

- Gestione di Routine Secondarie

Tutte le soluzioni sono modificabili a seconda del tipo di Msgbox (OKCancel, Oppure SiNO,....)

Ho cercato di tenere dentro i loop le istruzioni per uscire dalla macro in modo tale che le operazioni richieste in caso affermativo fossero fuori da un ciclo

HO scoperto anche switch e choose che non conoscevo. Pertanto Grazie all'esercizio

Option Explicit
' Promemoria 
'|Costante| Valore | Descrizione |
'|  vbOK  |   1    |     OK      |
'|vbCancel|   2    |   Annulla   |
'|vbAbort |   3    |  Interrompi |
'|vbRetry |   4    |   Riprova   |
'|vbIgnore|   5    |   Ignora    |
'|  vbYes |   6    |      Sì     |
'|  vbNo  |   7    |      No     |

Sub MsGBoxErrore1()
'Macro con Gestione Errori
Dim Scelta
On Error GoTo ErrorHandler
Scelta = 1 / (MsgBox("Procedo?", vbQuestion + vbOKCancel, "SCEGLI") - 2)
On Error GoTo 0
Exit Sub
ErrorHandler:
    MsgBox "Esco"
End Sub

Sub MsgBoxDoNot1()
'Con ciclo Do...Loop
Do While Not CBool(MsgBox("Procedo?", vbQuestion + vbOKCancel, "SCEGLI") = vbOK)
    MsgBox "Esco"
    Exit Sub
Loop
MsgBox "Sto Procedendo"
End Sub

Sub MsgBoxFor()
' Usando un ciclo For...NExt
Dim index as integer
For index = MsgBox("Procedo?", vbQuestion + vbOKCancel, "SCEGLI") To 2 Step -1
    MsgBox "Esco"
    Exit Sub
Next
MsgBox "Sto Procedendo"
End Sub

Sub MsgBoxWhile()
'Con Ciclo While...Wend
While MsgBox("Procedo?", vbQuestion + vbOKCancel, "SCEGLI") = vbCancel
    MsgBox "Esco"
    Exit Sub
Wend
MsgBox "Sto Procedendo"
End Sub

Sub MsgBoxSubSwitch()
' Con Due Macro e Switch
Dim Macro
Dim Risultato
Risultato = MsgBox("Procedo?", vbQuestion + vbOKCancel, "SCEGLI")
Macro = Switch(Risultato = vbOK, "ProcedendoMacro", Risultato = vbCancel, "StopMacro")
Application.Run Macro
End Sub

Sub MsgBoxSubChoose()
' Con Due Macro e Choose
Application.Run Choose(MsgBox("Procedo?", vbQuestion + vbOKCancel, "SCEGLI"), "ProcedendoMacro", "StopMacro")
End Sub

Sub ProcedendoMacro()
'Macro da eseguire per procedere
MsgBox "Sto procedendo"
End Sub

Sub StopMacro()
Macro da eseguire per uscire
MsgBox "Esco"
'End Sconsigliato ma termina tutte le esecuzioni
End Sub

Eccole tutte insieme

Ciao!

Non avete ancora pubblicato un solo esempio con Userform   

Rem Do While + Userform1
Sub self_destruction_Userform()
    prelimin MsgBox("Vuoi formattare il disco C: ?", vbOKCancel, "Attenzione")
End Sub

Function prelimin(silent As Long)
  Do While silent = 1
    UserForm1.Show
    Exit Do
  Loop
End Function

Si possono sempre utilizzare le finestre di "Dialogo "  

In un modulo...

Sub self_destruction_Dialogo()
  With ActiveWorkbook.DialogSheets(1)
    .Buttons(1).OnAction = "myCustomButtonOk"
    .Buttons(2).OnAction = "myCustomButtonExit"
    While .Show = False: Exit Sub: Wend
  End With
  '[More Code]
End Sub

Private Sub myCustomButtonOk()
  MsgBox "Boom!"
End Sub

Private Sub myCustomButtonExit()
'MsgBox "exit"
End Sub