Excel mi si impianta con macro normalmente funzionante.

di il
5 risposte

Excel mi si impianta con macro normalmente funzionante.

Buongiorno.

Oggi stavo rivedendo alcuni passaggi di una macro e mi sono imbattuto in un problema strano.

Ho scritto due macro che proteggono e sproteggono tutti i fogli abbinati a due pulsanti.

La cosa strana è che le due macro funzionano bene solo in questi casi.

1) Primo foglio senza intestazioni e senza blocco riquadri.(no -no)

2) Primo foglio con intestazione e senza blocco riquadri. (si - no)

3) Primo foglio senza intestazione e con blocca riquadri. (no- si)

 Se tutte e due sono attive (si -si), Excel mi si impianta (CTRL-ALT-CANC), quando uso le due macro,

Alcune volte subito, altre dopo che proteggo e sproteggo i fogli più volte.

Ok... Non blocco più i riquadri e il problema è ok ma mi da fastidio.

Ecco le due macro.

Grazie.

PS: Excel 2019 e 385

Sub ProteggiFoglio()
Dim Parola As String

Parola = "Password"
Application.ScreenUpdating = False

For i = 1 To Sheets.Count
    Sheets(i).Protect Password:=Parola, UserInterFaceOnly:=True
Next i

Sheets("Programma").Select
Range("AAA2").Value = 0 ' Abilito il salvataggio su Google drive
Application.ScreenUpdating = True
Range("F7").Select

End Sub

'-----------------------------------------------
Sub SproteggiFoglio()
Dim Risposta As String
Dim Parola As String

Parola = "Password"

Risposta = Application.InputBox("inserisci la password", "Password Protezione")
If Risposta = "Falso" Then Exit Sub

If Risposta <> Parola Then
   MsgBox "Password non corretta", vbOKOnly
   Exit Sub
End If

Application.ScreenUpdating = False

For i = 1 To Sheets.Count
    Sheets(i).Unprotect Password:=Parola
Next i

Sheets("Programma").Select
Range("AAA2").Value = 1 ' inibisco il salvataggio su Google drive
Application.ScreenUpdating = True
Range("F7").Select

End Sub

5 Risposte

  • Re: Excel mi si impianta con macro normalmente funzionante.

    Puoi postare un file excel di prova senza dati in cui si manifesta il problema?

    Fra l'altro dovresti usare un altro titolo per il thread, xhe sintetizzi il problema riscontrato. Quello che hai usato non ha nessuno scopo

  • Re: Excel mi si impianta con macro normalmente funzionante.

    Ok. Un attimino che provvedo.....

  • Re: Excel mi si impianta con macro normalmente funzionante.

    Se lo riduco ad un solo foglio senza altre macro attive il problema non si presenta.

    Non credo che si possa postare senza dati.

    Alcune volte è sull'uso dei menu a tendina che si blocca (subito dopo aver protetto o sprotetto il foglio).

    Mi rendo conto che non c'è molto su cui lavorare. 

    Se a qualcuno viene un idea.... Grazie.

    PS: Non saprei neanche come postare un file Excel qui... Non trovo alcun pulsante allega.

  • Re: Excel mi si impianta con macro normalmente funzionante.

    Il file lo posti su un sito di sharing gratuito e qui metti il link (o usi dropbox o simili)

    Per "senza dati" intendo senza dati sensibili, con dati inventati

  • Re: Excel mi si impianta con macro normalmente funzionante.

    Buongiorno.

    Sono previdente e faccio sempre dei salvataggi in una cartella "Versioni vecchie".

    Così ho provato a recuperare un file precedente ad alcune modifiche (pesanti) solo software.

    Utilizzandolo non ha mai presentato il problema sopra citato.

    Ho quindi fatto tabula rasa copiando pari pari tutto il software dal file incriminato (aggiornato) al vecchio file (da aggiornare).

    Risultato: 

    Dopo alcune ore di collaudo con proteggi e sproteggi a volontà e attivando e disattivando blocco riquadri e intestazioni tutto funziona bene.

    Probabilmente un file corrotto di Excel...... e non è la prima volta.

    Pazienza. Grazie oregon per la pazienza.

    Saluti.

Devi accedere o registrarti per scrivere nel forum
5 risposte