08. oktober 2010 - 16:17Der er
1 kommentar og 1 løsning
VBA Workbook
Tusind tak for hjælpen. Og så (selvfølgelig!) lige et ekstra spm.
Kan man ændre denne til;
1) Hvis bruger har ændret et eller andet sted i workbook, skal bruger bekræfte, at ændringen er korrekt jf. nedenstående.
2) Hvis bruger alene åbner workbook og derefter lukker workbook, skal der komme en meddelse a la "Dejligt at se dig. Jeg kan se, at du ikke har ændret noget! Jeg lukker uden at gemme"
Dette er den nedenstående :-) Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Hej igen " & Application.UserName & ". Jeg kan se at du vil afslutte." & _ vbCrLf & "Er du sikker på at du har lavet det rigtigt?", vbYesNo) = vbNo Then MsgBox ("Check det igen.") Cancel = True End If
Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved Then '"Dejligt at se dig. Jeg kan se, at du ikke har ændret noget! Jeg lukker uden at gemme" MsgBox "Dejligt at se dig " & Application.UserName & ". Jeg kan se, at du ikke har ændret noget!" & _ vbCrLf & "Jeg lukker uden at gemme" Else If MsgBox("Hej igen " & Application.UserName & ". Jeg kan se at du vil afslutte." & _ vbCrLf & "Er du sikker på at du har lavet det rigtigt?", vbYesNo) = vbNo Then MsgBox ("Check det igen.") Cancel = True End If End If End Sub
Tusind tak for hjælpen. Var lidt sent ude med point, men håber jeg er tilgivet :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.