luk uden at gemme
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3911
Udskrevet den: 23.Nov.2024 kl. 06:12
Emne: luk uden at gemme
Besked fra: Bjarnehansen
Emne: luk uden at gemme
Posteringsdato: 24.Maj.2019 kl. 10:29
|
kan man ikke lave en knap der lukker hele arket uden at gemme da det et tomt ark hvor der dagligt tastes data ind som gemmes som pdf fil derfor skal arket lukkes uden at gemme så det er tomt til næste dag. ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Svar:
Besked fra: icet
Posteringsdato: 25.Maj.2019 kl. 09:57
|
For at tvinge en projektmappe til at lukke uden at gemme ændringer, skal du skrive følgende kode i et Visual Basic-modul i den pågældende projektmappe. Sub CloseNoSave()
ThisWorkbook.Saved = True End Sub |
Besked fra: Bjarnehansen
Posteringsdato: 25.Maj.2019 kl. 10:45
|
uploads/397/Kortmaskine_2019_2019-05-25_10-43-23.05_2019-05-25_10-43-23.xlsm" rel="nofollow - uploads/397/Kortmaskine_2019_2019-05-25_10-43-23.05_2019-05-25_10-43-23.xlsm jeg har forsøgt at sætte det i dette ark men har ikke kunnet få et til at virke mine forsøg er slette igen.
------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: icet
Posteringsdato: 25.Maj.2019 kl. 11:30
|
prøv at indsætte dette i denne projecktmappe Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True End Sub |
Besked fra: Bjarnehansen
Posteringsdato: 25.Maj.2019 kl. 11:36
|
Det virker på krydset og luk i filer, kan man også ligge den på en knap oppe ved siden af de andre på selve arket? ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: icet
Posteringsdato: 25.Maj.2019 kl. 11:41
|
lav en knap og kald denne i et modul Sub CloseNoSave()
ThisWorkbook.Saved = True If Application.Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close False End If End Sub |
Besked fra: Bjarnehansen
Posteringsdato: 25.Maj.2019 kl. 11:52
|
Takker det virker bare  Go' weekend ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |