avrei bisogno di un aiuto nel compilare quanto segue;
In un workbook condiviso vorrei ogni qualvolta viene premuto il tasto salva predefinito di Excel un autorizzazione al salvataggio questo script che inserisco è quello che ho provato a fare ma alla chiusura del file mi chiede sempre di salvare nuovamente
- Codice: Seleziona tutto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Message, Title, Default, MyValue As String
Message = "Controllo Autorizzati" '
Title = "Autorizzazione al salvataggio"
Default = " INSERISCA IL CODICE "
MyValue = InputBox(Message, Title, Default)
If MyValue = "CCCAAA" Then
Cancel = True
Else
ActiveWorkbook.Close
End If
End Sub
Oltre a quanto chiesto per sicurezza vorrei salvare anche una copia sul desktop, tipo questo
- Codice: Seleziona tutto
ActivateWorkbook .SaveAs "C:\Users\Minni\Desktop"
Quindi riassumendo il tutto vorrei che con il click su pulsante salva di Excel verifichi se autorizzato,ed in caso affermativo, avviene salvataggio dove si trova il file condiviso e in più anche sul Desktop-
Grazie