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