You are here:Home-Domande su Excel VBA e MACRO-modificare macro controllo accessi
modificare macro controllo accessi2019-08-26T19:17:16+02:00

Home Forum Domande su Excel VBA e MACRO modificare macro controllo accessi

Taggato: 

Visualizzazione 17 filoni di risposte
  • Autore
    Post
    • Avatarfranc.ciccio
      Partecipante
        Post totali: 9

        Ciao,

        in un altro forum ho postato un thread posso postarlo anche qui?

        Grazie

        fc

      • BySalvBySalv
        Amministratore del forum
          Post totali: 759

          Ciao Franc.ciccio, qual’è il problema?, nel caso allega il file senza dati sensibili per capire meglio il problema.

          Ciao By Sal (8-D

           

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

        • Avatarfranc.ciccio
          Partecipante
            Post totali: 9

            Ciao ho un workbook per controllare chi accede.

            In Private Sub Workbook_BeforeClose(Cancel As Boolean) c’è questa macro:

            ==========================================================================

             

            Private Sub Workbook_BeforeClose(Cancel As Boolean)
            Dim Urec   As String
            Dim path As String
            Dim name1 As String
            Dim CurFolder, DestFolder As String
            Dim wb As Workbook

            ‘—————————————————————————
            ‘username accesso/chiusura all’avvio/chiusura

            name1 = Foglio1.Range(“A1”).Value

            CurFolder = ActiveWorkbook.path

            DestFolder = CurFolder & “\” & name1 & “\”
            If Dir(DestFolder, vbDirectory) = “” Then MkDir DestFolder

            Open DestFolder & “\accessi.log” For Append As #1
            ‘Open path & “\accessi_PROVA.log” For Append As #1

            If ThisWorkbook.Saved = False Then
            ‘ThisWorkbook.Save

            Urec = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Print #1, Application.UserName, Now & ” CHIUSURA MODIFICATO”
            Print #1, “————————————————-”
            Close #1

            ElseIf ThisWorkbook.Saved = True Then

            Urec = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Print #1, Application.UserName, Now & ” CHIUSURA NON MODIFICATO ”
            Print #1, “————————————————-”
            Close #1

            Else

            ‘Me.Saved = True

            If ThisWorkbook.Saved = True Then

            ‘book.Close SaveChanges:=False
            ‘ActiveWorkbook.Close SaveChanges:=False

            Urec = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Print #1, Application.UserName, Now & ” CHIUSURA NON MODIFICATO ”
            Print #1, “————————————————-”
            Close #1

            End If
            End If

            ‘————————————————————————–

            End Sub

            =======================================================================

             

            le prime due opzioni funzionano.

            La terza:

            modifico qualcosa nel workbook poi scelgo no nell’avviso di excel e nel file txt deve risultare non modificato.

            che dovrebbe essere questa:

             

            =======================================================================

            Else

            If ThisWorkbook.Saved = True Then

            Urec = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Print #1, Application.UserName, Now & ” CHIUSURA NON MODIFICATO ”
            Print #1, “————————————————-”
            Close #1

            End If

            ===========================================================================

             

            non riesco a realizzarla.

            fc

          • Avatarfranc.ciccio
            Partecipante
              Post totali: 9
            • BySalvBySalv
              Amministratore del forum
                Post totali: 759

                Ciao mi rimandi il file non riesco ad aprirlo

                Ciao By Sal (8-D

                 

                Ciao By Sal (8-)
                se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

              • Avatarfranc.ciccio
                Partecipante
                  Post totali: 9
                • BySalvBySalv
                  Amministratore del forum
                    Post totali: 759

                    Ciao Riecco il file

                    http://www.filedropper.com/newaccessi3sceltenew_1

                    almeno per me il problema è che tu hai usato una parola chiave di Excel “Path” nominandola come stringa.

                    Dim path as string

                    non si possono usare parole chiavi di Excel se non per lo scopo a cui sono prefissate, quindi la tua

                    Dim path as string

                    l’ho rinominata

                    Dim Spath as string

                    non ho toccato altro e sembra funzionare.
                    Però per vedere cosa è stato cambiato, se non ricordo male ci deve essere un opzione Excel che ti riporta tutto quello che è stato cambiato e da chi sul foglio.

                    al momento è questo, faccio una ricerca per vedere se trovo l’articolo che ne parla.

                    Ciao By Sal (8-D

                    Ciao By Sal (8-)
                    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                  • Avatarfranc.ciccio
                    Partecipante
                      Post totali: 9

                      Ciao sal,

                      grazie della risposta.

                      Ho provato il file ma non funziona

                      La modifica che chiedo è:

                      se modifico qualcosa e nell’avviso di excel alla chiusura scelgo no deve poi risultare  nel txt “NON MODIFICATO”

                      fc

                    • BySalvBySalv
                      Amministratore del forum
                        Post totali: 759

                        ok ora vedo per il tuo problema, anche perche non mi esce un avviso di dato modificato.

                        ho visto il problema della revisione che ti ho detto, in effetti esiste ancora ma nel menu revisione, ma è nascosto non è visibile, anche perche con l’ultima versione di Excel365 la revisione è insita nel programma perche funziona OnLine.

                        Ciao a dopo

                        Ciao By Sal (8-)
                        se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                      • BySalvBySalv
                        Amministratore del forum
                          Post totali: 759

                          Ciao ecco il file, ti ho inserito un inputBox per la scelta, vedi se va bene.
                          1 scrive modificato
                          2 scrive non modificato

                          fai le prove e fammi sapere
                          Ciao By Sal (8-D

                          http://www.filedropper.com/newaccessi3sceltenew_2

                          Ciao By Sal (8-)
                          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                        • Avatarfranc.ciccio
                          Partecipante
                            Post totali: 9

                            Ciao,

                            ora funziona ma pensavo si potesse fare senza scelta, non è possibile?

                            Nella maniera con inputbox uno può modificare e poi scegliere no

                            fc

                            • Questa risposta è stata modificata 11 mesi, 1 settimana fa da Avatarfranc.ciccio.
                          • BySalvBySalv
                            Amministratore del forum
                              Post totali: 759

                              Ciao Franc.ciccio, ti ho rifatto le macro, vedi adesso.

                              ho anche messo il nome della cartella all’interno delle macro, se uno casualmente cambia il nome della cartella, crei una marea di cartelle, poi non sai quale cartella guardare, in questo modo sai quale cartella guardare.

                              ecco il file

                              http://www.filedropper.com/provaaccessi

                              Ciao By Sal (8-D

                               

                               

                               

                              Ciao By Sal (8-)
                              se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                            • Avatarfranc.ciccio
                              Partecipante
                                Post totali: 9

                                Grazie sal,

                                è un bel lavoro ma il problema è sempre questo:

                                se modifico qualcosa e nell’avviso di excel alla chiusura scelgo no deve poi risultare  nel txt “NON MODIFICATO”

                                questo non si visualizza.

                                fc

                              • BySalvBySalv
                                Amministratore del forum
                                  Post totali: 759

                                  Ciao dove scegli “NO” in quanto, l’unica finestra che esce è quella del salvataggio.

                                  “Salva – Non Salvare – Annulla”

                                  dovrebbe uscire una finestra che come l’input box per la scelta del “NO” e torniamo a quello che hai detto nel post #9090, che uno poi può modificare e poi scegliere “NO”, rendendo vana la notifica in Log.

                                  oppure nel Log far risultare che è stato modificato ma si è scelto “NO” in fase di salvataggio.

                                  Ciao By Sal (8-D

                                   

                                   

                                  Ciao By Sal (8-)
                                  se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                                • BySalvBySalv
                                  Amministratore del forum
                                    Post totali: 759

                                    Ciao eccoti la Modifica, vedi se va bene, prima del salvataggio ti esce un messaggio che chiede il tipo di salvataggio, e anche il messaggio nel .log

                                    Cattura2

                                    se scegli “SI” registra normalmente, altrimenti questo il messaggio nel .log

                                    Cattura

                                    questo il link al file

                                    http://www.filedropper.com/provaaccessi_1

                                    Ciao By Sal (8-D

                                    Ciao By Sal (8-)
                                    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                                  • Avatarfranc.ciccio
                                    Partecipante
                                      Post totali: 9

                                      Ciao sal,

                                      pensavo si potesse fare tutto in automatico senza inputbox e facesse tutto la macro segliendo no nell’avviso di excel.

                                      Nella macro con inputbox un  utente può modificare e poi segliere no alla modifica.

                                      Allora quello che chiedo non è possibile.

                                      Ti ringrazio lo stesso per il tuo impegno.

                                      Un saluto

                                      fc

                                    • BySalvBySalv
                                      Amministratore del forum
                                        Post totali: 759

                                        Ciao come ho detto il problema e come far capire ad excel che non vuoi che venga registrata la modifica.

                                        quando chiudi excel ed hai fatto delle modifiche, ti esce la mascherina del salvataggio con le tre scelte “Salva – Non Salvare – Annulla”

                                        ora se premi salva il log ti esce con “Modificato” e “Non Modificato” secondo se hai fatto qualcosa
                                        se premi “Non salvare” chiude il file senza salvare le modifiche che eventualmente hai fatto

                                        annulla invece rimane ancora con il file aperto

                                        come fa Excel a questo punto a capire che vuoi salvare ma non riportare nel log che è stato modificato, ci deve essere qualche input.

                                        ma mi spieghi perche vuoi questo modo di fare?

                                        perche un modo ci sarebbe, tu prima di salvare dovresti far mettere il flag delle modifiche a Falso, con il lancio di una piccola macro

                                        fai sapere Ciao By Sal (8-D

                                        Ciao By Sal (8-)
                                        se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                                      • Avatarfranc.ciccio
                                        Partecipante
                                          Post totali: 9

                                          Ciao la prossima settimana vedo come usare la tua ultima modifica in ufficio.

                                          Intanto ti ringrazio ancora.

                                          fc

                                      Visualizzazione 17 filoni di risposte
                                      • Devi essere connesso per rispondere a questo topic.