You are here:--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

  • Autore
    Articoli
  • 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: 505

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

        Ciao By Sal (8-D

         

      • 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: 505

              Ciao mi rimandi il file non riesco ad aprirlo

              Ciao By Sal (8-D

               

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

                  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

                • 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: 505

                      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

                    • BySalvBySalv
                      Amministratore del forum
                        Post totali: 505

                        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

                      • 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 2 settimane, 5 giorni fa da Avatar franc.ciccio.
                        • BySalvBySalv
                          Amministratore del forum
                            Post totali: 505

                            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

                             

                             

                             

                          • 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: 505

                                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

                                 

                                 

                              • BySalvBySalv
                                Amministratore del forum
                                  Post totali: 505

                                  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

                                • 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: 505

                                      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

                                    • Avatarfranc.ciccio
                                      Partecipante
                                        Post totali: 9

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

                                        Intanto ti ringrazio ancora.

                                        fc

                                      Devi essere loggato per rispondere a questa discussione.

                                      Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

                                      Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

                                      Chiudi