You are here:Home-Domande su Excel VBA e MACRO-modificare macro controllo accessi-Rispondi a: modificare macro controllo accessi
Rispondi a: modificare macro controllo accessi2019-08-27T08:35:43+02:00

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

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