Mancata autorizzazione al salvataggio

Ciao Mauro,

grazie del link.

Per il salvataggio in locale prima di salvarlo leggo il nome del file "Gestione progetti e notule rev_08 " con in più "- Excel " ma questo è il nome del programma che genera la Notula o il Progetto di notula.

Il programma l'ho (fatto) messo insieme io anche con i tuoi preziosi consigli, manca forse qualcosa per aggiornarlo a Window 10 ?

Lo sapevo che non avrei dovuto farmi convincere da quell'icona che mi importunava ogni mezz'ora e che voleva forzatamente istallare W10, non avrei dovuto fidarmi.

Ciao tullioniccoli

Il problema è nato da dopo l'aggiornamento a Windows 10.

In precedenza tutto funzionava perfettamente, ora quando vado a salvare un file generato da un programma in excell in una direttrice che è la stessa da sempre e che contiene tutte le copie dei progetti di notula e delle notule dei vari anni"\EASYSTORE\contabilita\progetti 2015" o notule 2015. Mi dice che mancano le autorizzazioni, ma gli indirizzi sono gli stessi da sempre e le cartelle condivise.

Da cosa può dipendere ? O meglio: come si rimedia?

Lo stesso vale quando arrivo a chiudere excell che dovrebbe farmi un salvataggio della copia del programma in "C:\contabilità\base progetti*nome file*" invece cerca di salvare "C:\contabilita\ base progetti**1ECD5500",**se chiudo e tento un nuovo salvataggio diventa un altro numero 1B216500 poi ancora C5916500.

Credo tuo problema sia dovuto ad una modifica di diritti con l'installazione del sistema operativo Windows 10. Per rendere disponibile le cartelle di interesse bisognerebbe modificare la proprietà e le autorizzazioni di tali cartelle. 

 I passaggi per modificare la proprietà e le autorizzazioni di cartelle e file sono:

1. Fai clic dx sul file o la cartella, fai clic su Proprietà e quindi fai clic sulla scheda Protezione.
2. Fai clic su Avanzate, quindi fai clic sulla scheda Proprietario.
3. Fai clic su Modifica, quindi effettua una delle seguenti operazioni:

        Per cambiare il proprietario di un utente o un gruppo che non è elencato,

        fai clic su Altri utenti e gruppi e, per l'opzione Immettere il nome

dell'oggetto da selezionare, digita il nome dell'utente o del gruppo, e

        quindi fai clic su OK.

       Per cambiare il proprietario di un utente o gruppo che si elenca nella casella

       Modifica proprietario, fai clic sull'opzione nuovo proprietario.

    4. Se si desidera diventare proprietario del contenuto della cartella, seleziona

       Sostituisci proprietario per l'opzione sottoContenitori e oggetti.

    5. Fai clic su OK, e quindi fai clic su Sì quando viene visualizzato il seguente

      messaggio:

        Non si dispone dell'autorizzazione per leggere il contenuto della

directory nome della cartella. Vuoi sostituire le autorizzazioni sulla

directory con autorizzazioni che concede Controllo completo?

Tutte le autorizzazioni saranno sostituite se si fa clic su Sì.

     NB : il nome della cartella è il nome della cartella di cui si desidera diventare

            proprietario.

   6. Fai clic su OK, e poi riapplica le autorizzazioni e le impostazioni di protezione

      desiderate per la cartella e il suo contenuto.

  Ulteriori considerazioni

• Un amministratore può diventare proprietario di qualsiasi file sul computer.
• Assegnazione di proprietà di un file o di una cartella potrebbe richiedere di elevare le autorizzazioni utilizzando User Access Control

===

Regards,

Norman

Sub Salva_notula()

Dim NumeroNotula As String

Dim Percorso As String

Dim Anno As String

    Application.ScreenUpdating = False

    Sheets("Xnotule").Select

    rif = Cells(17, 3)

    cliente = Cells(12, 5)

    Range("C15").Select

    Selection.NumberFormat = "m/d/yyyy"

    data = Right$(Cells(15, 3), 4)

    NumeroNotula = Cells(14, 3)

    Anno = data

    If Len(NumeroNotula) < 3 Then

        If Len(NumeroNotula) < 2 Then

         NumeroNotula = "00" & NumeroNotula

        Else

         NumeroNotula = "0" & NumeroNotula

         End If

        End If

    Sheets("Xnotule").Select

    nomefile = NumeroNotula & Anno & " " & cliente & " " & rif & " " & ".xls"

    Percorso = "C:\Contabilità" & Anno & "\NOTULE " & Anno & ""

    'NumeroNotula & Anno & " " & cliente & " " & rif & " " & ".xls"

    Sheets("Xnotule").Select

    Sheets("Xnotule").Copy

    Pulsanti_invisibili 'cancella solo pulsanti

    ActiveWorkbook.SaveAs filename:=Percorso & nomefile, _

    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

    ReadOnlyRecommended:=False, CreateBackup:=False

    'ActiveWindow.SelectedSheets.PrintOut copies:=2, Collate:=True

    'indirizzo = Percorso

    'Stampa_PDF

    stampanti

    Application.ScreenUpdating = True

    ActiveWorkbook.Close False

    Pulsanti_visibili

End Sub

_____________________________________________________________________

Questo è il codice Mauro e per favore non metterti a ridere. Remmata la parte che in precedenza stampava il PDF.

La potrei anche togliere vero? Tanto oramai non si può più.

Comunque seguendo in parte le istruzioni di Norman, in parte perché è stato sufficiente "Condividere" la cartella \contabilità\ anche con User ed ha funzionato. Grazie ancora Norman.

Però quello che io mi chiedo è perché prima funzionava egregiamente? , è W10 che se ne frega delle proprietà e delle condivisioni. Considerato che è CONTABILITA\User che fa tutto su questo computer come dovrei impostare la condivisione della cartella C:\contabilita perché sia visibile solo da CONTABILITA che è questo computer ?

Grazie se non Vi scoccia.

Lo sapevo che non avrei dovuto farmi convincere da quell'icona che mi importunava ogni mezz'ora e che voleva forzatamente istallare W10, non avrei dovuto fidarmi.

Io gli faccio una pernacchietta e la chiudo... ;-)

Per favore, posta il codice di salvataggio del file.

Grazie.

Per il salvataggio in rete contatta il gestore della stessa o chiedi qui:

• https://social.technet.microsoft.com/Forums/it-it/home

Per il salvataggio in locale, cosa leggi come nome del file in alto *prima* di salvarlo?

E, capisco bene che il file è generato in automatico da un altro programma? Se sì, hai chiesto a chi ha fatto quel programma se è aggiornato per Windows 10?