Ciao @frank_ciccio

1) già altre volte ti ho spiegato che per pubblicare il codice devi utilizzare il TagCode. Vedi dove c'è scritto sulla Dashboard posta in alto (codice VBA)? Ecco devi premere quel pulsante e scrivere in quel editor il tuo codice. mi auguro di non doverlo più ricordare. Adesso il codice che hai pubblicato lo sistemo io.

2) Tornando al tuo problema...la tua macro purtroppo è piena di errori, ad esempio qui:

Dim NomeFoglio, CurFolder, DestFolder, Destfile As String

NomeFoglio, CurFolder eDestFolder le stai dichiarando come Variant e non come String (come dovrebbe essere) e già questo è un errore. Potrai avere dei problemi se non le dichiari correttamente.

Poi le MsgBox restituiscono un valore numerico e non di tipo stringa. Quindi non devi scrivere:

avviso = MsgBox("manca il nome della commessa in B1!", _
vbQuestion + vbOKOnly + vbCritical, "AVVISO!")
If avviso = 7 Then Exit Sub

la variabile avviso l'hai dichiarata come String ma dovrebbe essere Byte, Integer o Long

Ancora...hai utilizzato alcune variabili Stringa simili tra loro:

Dim name1 As String, name2 As String, name3 As String, name4 As String, name5 As String, name6 As String, name7 As String

qui name bisognerebbe evitarla visto che è una parola riservata (Keyword). Esempio: ActiveSheet.Name). Ora tu le hai differenziate come:

Dim name1 As String, name2 As String, name3 As String, ....name7 As String e può anche andar bene ma ha più senso scrivere nome1 As String, nome2 As String, nome3 As String, ...., nome7 As String

Anzi meglio ancora:

Dim nome(1 To 7) As String

nome(1) = "prova1"
nome(2) = "prova2"
nome(3) = "prova3"
....
....

Ad ogni modo il problema che lamenti è dato dal fatto che nel caso di numeri in cella, tu stai valutando una comparazione tra una Stringa e un Numero:

If ActiveSheet.Range("B1") <> "" And ActiveSheet.Name = ActiveSheet.Range("B1") Then

ActiveSheet.Name = stringa

ActiveSheet.Range("B1") = numero se scrivi ad esempio 14

Potresti risolvere scrivendo:

If ActiveSheet.Range("B1") <> "" And ActiveSheet.Name = CStr(ActiveSheet.Range("B1")) Then

ma mi sento di consigliarti di rivedere tutta la struttura della macro. Ad esempio tu inizi rimuovendo la protezione al Foglio, poi chiedi, attraverso MsgBox, all'utente se ha fatto o meno delle cose. Se l'utente sceglie NO, la macro si interrompe ma il foglio rimane senza protezione e per di più con l'aggiornamento dello schermo disabilitato.

Ma non solo questo, la tua macro si può riscriverla in maniera molto più strutturata e corta. Se vuoi ti do una mano a riscriverla ma devo capire a cosa serve questa parte:

Sheets(NomeFoglio).Select
Sheets(NomeFoglio).Copy
      
 '---------------------------------------------------------------------------------------
 
Sheets(NomeFoglio).Protect "123456"
 
       
ActiveWindow.Close 'se non attivo mostra il nuovo file

visto che copia il foglio, gli applica la protezione e basta...quindi? Che deve fare poi?

Oppure se puoi spiega meglio tutta la procedura che avevi in mente di ottenere.

@franck_ciccio quello che non mi è chiaro è perché dopo che crei il file PDF, crei anche una copia del Foglio Attivo in una nuova istanza, gli applichi la protezione e poi chiudi la cartella di lavoro appena creata senza salvarla. Di fatto tu, ad un certo punto, nel codice scrivi:

With Application
 .DisplayAlerts = False
End With

cioè disabiliti gli avvisi, per poi alla fine abilitarli nuovamente con:

With Application
 .DisplayAlerts = True
End With

In questo modo quando fai: ActiveWindow.Close a causa della disabilitazione degli avvisi, ti verrà chiusa la cartella di lavoro appena creata senza avvisarti se salvarla oppure no.

Perché devi creare una copia del Foglio Attivo? Se c'è un motivo, perché non va salvata?

Poi altra cosa: nelle varie variabili che hai definito con name1, name2, name3, ecc...perché non viene mai utilizzata name2?

Non limitarti a pensare che adesso funziona con il suggerimento che ti ho dato prima...questa macro va sistemata. Io una bozza ce l'ho già ma prima di pubblicarla serve che tu dia risposte chiare ai miei dubbi in modo da darti qualcosa di funzionante.

@frank_ciccio vedi se riscritta così va bene, ma soprattutto se sei in grado di apportare eventuali modifiche:

Option Explicit

Sub SALVA_GRAFICO_PDF_2() 'o.k.
    Dim NomeFoglio As String
    Dim DestFolder As String, Destfile As String
    Dim sData As String
    Dim commessa As String
    Dim nome(1 To 7) As String
    
    NomeFoglio = ActiveSheet.Name
    
    commessa = Range("B1").Value
    If Trim(commessa) = "" Then
        MsgBox "non hai inserito il nome della commessa in B1", vbExclamation, "Avviso!"
        Range("B1").Select
        Exit Sub
    End If
    
    If StrComp(NomeFoglio, commessa, vbBinaryCompare) <> 0 Then
        MsgBox "Non hai rinominato il nome del foglio come commessa!", vbExclamation, "Avviso!"
        Exit Sub
    End If
    
    '=== capire meglio l'ordine delle variabili e il loro contenuto!!! ===
    nome(6) = "prova"
    nome(1) = "prova " & nome(6) & " prova"
    nome(3) = Range("M3").Value
    nome(4) = Range("M4").Value
    nome(5) = Range("M5").Value
    nome(7) = Range("M2").Value
    '=====================================================================
             
    If MsgBox("salvo le modifiche al grafico < " & commessa & " > in formato *.pdf?" & String(2, vbCrLf) & _
             "ricorda che prima di salvare il foglio < " & nome(1) & " > in formato *.pdf, di regolare le interruzioni di pagina / colore foglio ecc.." _
             & String(2, vbCrLf) & "Fatto?", vbQuestion + vbYesNo + vbDefaultButton2, "AVVISO!") = vbNo Then Exit Sub
             
    
    On Error GoTo uscitaPulita
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "123456"
    
    NomeFoglio = Join(Array(ActiveSheet.Name, nome(3), nome(4), nome(5)), " - ")
   
    sData = Format(Date, "dd.mm.yyyy") 'data del file salvato
   
    DestFolder = ActiveWorkbook.Path & "\" & nome(1) & "\" & nome(7) & "\" '1a/2a cartella
    Call creaPercorsoCompleto(DestFolder)
     
    Destfile = DestFolder & NomeFoglio & ".pdf" '<<< no num. progress.
         
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Destfile, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False '<<< non si apre il pdf
    
    MsgBox "Fatto", vbInformation, vbNullString
    
uscitaPulita:
    ActiveSheet.Protect "123456"
    Application.ScreenUpdating = True
    Exit Sub

errore:
    MsgBox "Errore: " & Err.Description, vbCritical, "Errore"
    Resume uscitaPulita
End Sub

Sub creaPercorsoCompleto(pathCompleto As String)
    Dim parte As Variant
    Dim percorso As String
    
    For Each parte In Split(pathCompleto, "\")
        If parte <> "" Then
            If percorso = "" Then
                percorso = parte
            Else
                percorso = percorso & "\" & parte
            End If
            
            If InStr(percorso, ":") = 0 Then GoTo NextParte
            If Dir(percorso, vbDirectory) = "" Then MkDir percorso
        End If
NextParte:
    Next parte
End Sub