You are here:---Rispondi a: [RISOLTO] Primo salvataggio mediante pulsante
Rispondi a: [RISOLTO] Primo salvataggio mediante pulsante2018-05-27T21:00:20+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Primo salvataggio mediante pulsante Rispondi a: [RISOLTO] Primo salvataggio mediante pulsante

sidsid
Moderatore
    Post totali: 718

    … mentre io non vorrei che in nessun modo si potesse modificare il file originale se non con il pulsante.
    Grazie.

    La soluzione che ti prospettavo:
    Inserisci na variabile pubblica booleana in testa ad un modulo standard
    Public bSalva As Boolean
    Poi nel codice del pulsante (che poi nasconderai) valorizzi la variabile prima del salvaatggio

    bSalva = True
    ActiveWorkbook.SaveAs Filename:=FileNameBin, FileFormat:=xlOpenXMLWorkbookMacroEnabled

    Infine nell’evento BeforeSave del workbook metti questo codice

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If bSalva Then
        bSalva = False
    Else
        MsgBox "Puoi salvare solo da pulsante", vbCritical
        Cancel = True
    End If
    End Sub

    In pratica la variabile diventa True solo da pulsante; nell’evento viene riportata a False dopo il salvataggio del file.
    Spero sia chiaro.

    In questo modo non puoi ne salvare normale, ne salvare con nome; solo da pulsante che riporterai visibile quando lo riterrai opportuno

    • Questa risposta è stata modificata 1 anno, 3 mesi fa da sid sid.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi